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

浆轴

Browse Source
This commit is contained in:
“ddf” 2025-03-01 15:39:32 +08:00
parent 53e8f4820d
commit d89a45b5f3
13 changed files with 4635 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
E02梭织经轴仓库/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject>
<Transactions/>
<Default.Personality>
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\WarpBeamStk.dproj"/>
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\WarpBeamStk.dproj"/>
</Default.Personality>
</BorlandProject>

28
E02梭织经轴仓库/U_GetDllForm.pas
View File

@ -20,7 +20,7 @@ uses
U_EmptyBeamInList, U_EmptyBeamOutList, U_EmptyBeamStkList, U_TatWBOutputList,
U_TatWBOutputList1, U_WarpBeamQianList, U_TatWBOutputList_CZ,
U_TatWBOutputList_SZ, U_TatWBOutputList_JT, U_TatWBOutputList_XB,
U_TatWBOutputList_XZ;
U_TatWBOutputList_XZ, U_TatOutputList1, U_TatWBPlan;
/////////////////////////////////////////////////////////////////
@ -80,7 +80,7 @@ begin
user := 'rtsa';
pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// DParameters1:='高权限';
Parameters1 := '管理';
Parameters2 := '空轴';
Parameters2 := '经轴';
end
@ -131,6 +131,30 @@ begin
//调用子模块窗口
case FormID of
511: //浆纱计划管理
begin
with TfrmTatWBPlan.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;
521: //浆纱产量管理
begin
with TfrmTatOutputList1.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;
111: //盘头名称定义 轴管编号
begin
with TfrmWarpBeamInfoList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //

522
E02梭织经轴仓库/U_TatOutputList1.dfm Normal file
View File

@ -0,0 +1,522 @@
inherited frmTatOutputList1: TfrmTatOutputList1
Caption = #27974#32433#36710#38388#20135#37327#31649#29702
ClientHeight = 582
ClientWidth = 1473
WindowState = wsMaximized
ExplicitWidth = 1489
ExplicitHeight = 621
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1473
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 97
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_WarpBeamStk.ImageList_new32
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_WarpBeamStk.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
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 TBdel: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TBdelClick
end
object ToolButton2: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #20135#37327#24037#36164
ImageIndex = 3
OnClick = ToolButton2Click
end
object TBPrint: TToolButton
Left = 308
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
Visible = False
end
object TBExport: TToolButton
Left = 379
Top = 0
AutoSize = True
Caption = #23548#20986'Excel'
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton1: TToolButton
Left = 480
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 575
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1473
Height = 43
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
object Label3: TLabel
Left = 448
Top = 13
Width = 24
Height = 12
Caption = #21345#21495
end
object Label1: TLabel
Left = 24
Top = 13
Width = 48
Height = 12
Caption = #21047#21345#26085#26399
end
object Label2: TLabel
Left = 246
Top = 13
Width = 12
Height = 12
Caption = #33267
end
object Label13: TLabel
Left = 288
Top = 128
Width = 24
Height = 12
Caption = #23458#25143
end
object Label17: TLabel
Left = 440
Top = 128
Width = 36
Height = 12
Caption = #19994#21153#21592
end
object Label7: TLabel
Left = 604
Top = 124
Width = 36
Height = 12
Caption = #33457#22411#21495
end
object Label4: TLabel
Left = 624
Top = 13
Width = 24
Height = 12
Caption = #24037#24207
end
object pcid: TEdit
Tag = 2
Left = 478
Top = 9
Width = 80
Height = 20
TabOrder = 0
OnChange = pcidChange
end
object BegDate: TDateTimePicker
Left = 73
Top = 9
Width = 90
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 1
end
object EndDate: TDateTimePicker
Left = 255
Top = 9
Width = 90
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 2
end
object customerNoName: TEdit
Tag = 2
Left = 314
Top = 124
Width = 100
Height = 20
TabOrder = 3
OnChange = pcidChange
end
object ywy: TEdit
Tag = 2
Left = 478
Top = 124
Width = 100
Height = 20
TabOrder = 4
OnChange = pcidChange
end
object lbHx: TEdit
Tag = 2
Left = 642
Top = 120
Width = 80
Height = 20
TabOrder = 5
OnChange = pcidChange
end
object begtime: TDateTimePicker
Left = 157
Top = 9
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 39780.000000000000000000
Kind = dtkTime
TabOrder = 6
end
object endTime: TDateTimePicker
Left = 339
Top = 9
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 0.999317129630071600
Kind = dtkTime
TabOrder = 7
end
object GlideName: TEdit
Tag = 2
Left = 654
Top = 9
Width = 80
Height = 20
TabOrder = 8
OnChange = pcidChange
end
end
object cxGrid2: TcxGrid [2]
Left = 0
Top = 81
Width = 1473
Height = 501
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Format = #20849' 0 '#34892
Kind = skCount
Column = Tv1Column5
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1Column8
end
item
Kind = skSum
Column = Tv1Column17
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv1Column14: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'ssel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 45
end
object Tv1Column12: TcxGridDBColumn
Caption = #26085#26399
DataBinding.FieldName = 'GOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 94
end
object Tv1Column5: TcxGridDBColumn
Caption = #21345#21495
DataBinding.FieldName = 'pcid'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1Column6: TcxGridDBColumn
Caption = #24037#24207
DataBinding.FieldName = 'GlideName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object Tv1Column8: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object Tv1Column15: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object Tv1Column18: TcxGridDBColumn
Caption = #21592#24037
DataBinding.FieldName = 'StaffName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object Tv1Column10: TcxGridDBColumn
Caption = #25805#20316#21592
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object Tv1Column11: TcxGridDBColumn
Caption = #25805#20316#26102#38388
DataBinding.FieldName = 'FillTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 106
end
object Tv1Column1: TcxGridDBColumn
Caption = #26426#21488#21495
DataBinding.FieldName = 'MachineNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 84
end
object Tv1Column2: TcxGridDBColumn
Caption = #32463#35268#26684
DataBinding.FieldName = 'WB_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column3: TcxGridDBColumn
Caption = #22836#32441
DataBinding.FieldName = 'WB_YarnQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column4: TcxGridDBColumn
Caption = #32433#21517
DataBinding.FieldName = 'WB_YarnName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column7: TcxGridDBColumn
Caption = #32463#20135#21697#21517
DataBinding.FieldName = 'WB_ClothName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column9: TcxGridDBColumn
Caption = #32467#26463#20154
DataBinding.FieldName = 'Ender'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
end
object Tv1Column13: TcxGridDBColumn
Caption = #32467#26463#26102#38388
DataBinding.FieldName = 'EndTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object Tv1Column16: TcxGridDBColumn
Caption = #29992#26102'('#20998')'
DataBinding.FieldName = 'JGSJ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
end
object Tv1Column17: TcxGridDBColumn
Caption = #20135#37327#24037#36164
DataBinding.FieldName = 'OutMoney'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 82
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1
end
end
object MovePanel2: TMovePanel [3]
Left = 351
Top = 244
Width = 289
Height = 49
BevelInner = bvLowered
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
Visible = False
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Left = 249
Top = 168
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Left = 137
Top = 161
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Parameters = <>
Left = 804
Top = 288
end
object ADOQueryMain: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 852
Top = 280
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 764
Top = 288
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 896
Top = 360
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 888
Top = 144
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 768
Top = 376
end
object RMGridReport1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 720
Top = 136
ReportData = {}
end
object PopupMenu1: TPopupMenu
Left = 544
Top = 192
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
end

315
E02梭织经轴仓库/U_TatOutputList1.pas Normal file
View File

@ -0,0 +1,315 @@
unit U_TatOutputList1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, RM_System, RM_Common,
RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxCheckBox, Vcl.Menus,
dxScrollbarAnnotations;
type
TfrmTatOutputList1 = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBExport: TToolButton;
TBPrint: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
cxGridPopupMenu1: TcxGridPopupMenu;
Label3: TLabel;
pcid: TEdit;
Label1: TLabel;
Label2: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CDS_Main: TClientDataSet;
Tv1: TcxGridDBTableView;
cxGrid2Level1: TcxGridLevel;
cxGrid2: TcxGrid;
MovePanel2: TMovePanel;
RMGridReport1: TRMGridReport;
customerNoName: TEdit;
Label13: TLabel;
ywy: TEdit;
Label17: TLabel;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
lbHx: TEdit;
Label7: TLabel;
TBdel: TToolButton;
Tv1Column15: TcxGridDBColumn;
begtime: TDateTimePicker;
endTime: TDateTimePicker;
ToolButton1: TToolButton;
Tv1Column14: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Label4: TLabel;
GlideName: TEdit;
Tv1Column17: TcxGridDBColumn;
ToolButton2: TToolButton;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Tv1Column18: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure pcidChange(Sender: TObject);
procedure PRTColorChange(Sender: TObject);
procedure TBdelClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
private
FLeft, FTop: Integer;
procedure InitGrid();
{ Private declarations }
public
fsyrName, canshu1: string;
{ Public declarations }
end;
var
frmTatOutputList1: TfrmTatOutputList1;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_OutPutHelp;
{$R *.dfm}
procedure TfrmTatOutputList1.FormDestroy(Sender: TObject);
begin
inherited;
frmTatOutputList1 := nil;
end;
procedure TfrmTatOutputList1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmTatOutputList1.FormCreate(Sender: TObject);
begin
inherited;
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 30;
fsyrName := trim(DdataBase);
canshu1 := trim(DParameters1);
end;
procedure TfrmTatOutputList1.InitGrid();
var
Msql, mbegdate, menddate: string;
begin
Msql := '';
if SGetFilters(Panel1, 1, 2) <> '' then
Msql := Msql + ' and ' + SGetFilters(Panel1, 1, 2);
mbegdate := FormatDateTime('yyyy-MM-dd', begdate.Date) + ' ' + FormatDateTime('HH:nn', begTime.Time);
menddate := FormatDateTime('yyyy-MM-dd', enddate.Date) + ' ' + FormatDateTime('HH:nn', endTime.Time);
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
Filtered := False;
sql.Add('select A.* ');
sql.Add(',B.WB_Spec,B.WB_YarnQty,B.WB_YarnName,B.WB_ClothName ');
sql.Add(',JGSJ=DATEDIFF(MI, A.FillTime, A.EndTime) ');
sql.Add(' from Tat_Plan_OutPut A left join Tat_WB_Card B on A.Pcid=B.WBCID ');
sql.add('where A.GOTime>=''' + trim(mbegdate) + ''' ');
sql.Add('and A.GOTime<''' + trim(menddate) + ''' ');
sql.Add('and GlideName in (''上浆'',''整经'') ');
sql.Add(Msql);
sql.Add('order by GOTime,pcid');
// showmessage(sql.Text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
finally
ADOQueryMain.EnableControls;
end;
TBFind.Click;
end;
procedure TfrmTatOutputList1.N1Click(Sender: TObject);
begin
SelOKNo(CDS_Main, true);
end;
procedure TfrmTatOutputList1.N2Click(Sender: TObject);
begin
SelOKNo(CDS_Main, False);
end;
procedure TfrmTatOutputList1.TBRafreshClick(Sender: TObject);
begin
MovePanel2.Visible := True;
MovePanel2.Refresh;
InitGrid();
MovePanel2.Visible := False;
end;
procedure TfrmTatOutputList1.ToolButton1Click(Sender: TObject);
begin
WriteCxGrid(self.Caption + tv1.Name, Tv1, '成品仓库');
end;
procedure TfrmTatOutputList1.ToolButton2Click(Sender: TObject);
var
MGOIDS: string;
begin
if CDS_Main.IsEmpty then
exit;
if not CDS_Main.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
with CDS_Main do
begin
DisableControls;
while CDS_Main.Locate('SSel', True, []) do
begin
MGOIDS := MGOIDS + Trim(CDS_Main.fieldbyname('GOID').AsString) + ',';
CDS_Main.Delete;
end;
EnableControls;
end;
try
frmOutPutHelp := TfrmOutPutHelp.Create(Application);
with frmOutPutHelp do
begin
FGOIDS := MGOIDS;
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmOutPutHelp.Free;
end;
end;
procedure TfrmTatOutputList1.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmTatOutputList1.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatOutputList1.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(self.Caption + tv1.Name, Tv1, '成品仓库');
canshu1 := self.fParameters1;
initgrid();
end;
procedure TfrmTatOutputList1.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
// SelExportData(tv1,ADOQueryMain,self.Caption);
TcxGridToExcel(self.Caption, cxGrid2);
end;
procedure TfrmTatOutputList1.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
end;
end;
procedure TfrmTatOutputList1.pcidChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmTatOutputList1.PRTColorChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmTatOutputList1.TBdelClick(Sender: TObject);
begin
if CDS_Main.IsEmpty then
Exit;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Tat_Plan_OutPut where GOID=''' + Trim(CDS_Main.fieldbyname('GOID').AsString) + '''');
ExecSQL;
end;
////////////////// 更新进度 //////////////////
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('insert into Nap_Need_Up(UType,UDataId) values(''机台刷卡'',' + quotedstr(Trim(CDS_Main.fieldbyname('GOID').AsString)) + ') ');
execsql;
end;
////////////////// 更新进度 //////////////////
CDS_Main.Delete;
except
application.MessageBox('删除失败！', '提示信息', 0);
end;
end;
end.

828
E02梭织经轴仓库/U_TatWBPlan.dfm Normal file
View File

@ -0,0 +1,828 @@
inherited frmTatWBPlan: TfrmTatWBPlan
Left = 249
Top = 194
Caption = #27974#32433#35745#21010#21015#34920
ClientHeight = 652
ClientWidth = 1540
Font.Height = -16
Position = poScreenCenter
ExplicitWidth = 1556
ExplicitHeight = 691
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_WarpBeamStk.ImageList_new32
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_WarpBeamStk.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 5
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 TBPrint: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = TBPrintClick
end
object TBView: TToolButton
Left = 355
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 4
OnClick = TBViewClick
end
object TBDel: TToolButton
Left = 426
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TBDelClick
end
object btnChk: TToolButton
Left = 497
Top = 0
AutoSize = True
Caption = #24320#22987
ImageIndex = 20
OnClick = btnChkClick
end
object btnReChk: TToolButton
Left = 568
Top = 0
AutoSize = True
Caption = #25764#38144#24320#22987
ImageIndex = 11
OnClick = btnReChkClick
end
object TBEnd: TToolButton
Left = 663
Top = 0
AutoSize = True
Caption = #32467#26463
ImageIndex = 20
OnClick = TBEndClick
end
object TBNoEnd: TToolButton
Left = 734
Top = 0
AutoSize = True
Caption = #25764#38144#32467#26463
ImageIndex = 11
OnClick = TBNoEndClick
end
object TBExport: TToolButton
Left = 829
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton1: TToolButton
Left = 900
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 995
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1540
Height = 45
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 6
object Label1: TLabel
Left = 18
Top = 14
Width = 64
Height = 21
Caption = #30331#35760#26085#26399
end
object Label2: TLabel
Left = 202
Top = 14
Width = 21
Height = 21
Caption = '---'
end
object Label7: TLabel
Left = 341
Top = 14
Width = 32
Height = 21
Caption = #23458#25143
end
object Label3: TLabel
Left = 491
Top = 14
Width = 48
Height = 21
Caption = #32463#35268#26684
end
object BegDate: TDateTimePicker
Left = 86
Top = 10
Width = 112
Height = 29
Date = 44378.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464742650459811600
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 227
Top = 10
Width = 110
Height = 29
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009100
TabOrder = 1
end
object CustName: TEdit
Tag = 2
Left = 377
Top = 10
Width = 110
Height = 29
TabOrder = 2
OnChange = ConNoChange
OnKeyPress = CustNameKeyPress
end
object WB_Spec: TEdit
Tag = 2
Left = 543
Top = 10
Width = 110
Height = 29
TabOrder = 3
OnChange = ConNoChange
OnKeyPress = CustNameKeyPress
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 111
Width = 974
Height = 541
Align = alLeft
TabOrder = 2
ExplicitTop = 117
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
Column = v1Column6
end
item
Kind = skSum
Column = v1Column6
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTOrderQty
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Column6
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv1Column2: TcxGridDBColumn
Caption = #27974#32433#21333#21495
DataBinding.FieldName = 'TWPId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column31: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 87
end
object v1Column5: TcxGridDBColumn
Caption = #26085#26399
DataBinding.FieldName = 'FillTIme'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object Tv1Column1: TcxGridDBColumn
Caption = #20844#21496#25260#22836
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 82
end
object v1Column19: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Width = 82
end
object v1Column21: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'WB_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 92
end
object v1Column2: TcxGridDBColumn
Caption = #24635#32463#26681#25968
DataBinding.FieldName = 'WB_YarnQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 73
end
object v1Column6: TcxGridDBColumn
Caption = #24635#31859#25968
DataBinding.FieldName = 'WB_YarnTotalLen'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 59
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #39044#35745#36724#25968
DataBinding.FieldName = 'WB_Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 92
end
object v1Column7: TcxGridDBColumn
Caption = #39044#35745#27974#26009#25104#26412
DataBinding.FieldName = 'SizingAgentCost'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 98
end
object v1Column4: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'OrdNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 83
Width = 1540
Height = 28
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#24453#24320#22987
#24050#24320#22987
#24050#32467#26463
#20840#37096)
OnChange = cxTabControl1Change
ClientRectBottom = 30
ClientRectRight = 1540
ClientRectTop = 30
end
object Panel2: TPanel [4]
Left = 974
Top = 111
Width = 566
Height = 541
Align = alClient
Caption = 'Panel2'
TabOrder = 4
object cxGrid2: TcxGrid
Left = 1
Top = 67
Width = 564
Height = 233
Align = alClient
PopupMenu = PM_1
TabOrder = 0
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = TV2FocusedRecordChanged
DataController.DataSource = DS_2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object cxGridDBColumn1: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 42
end
object V2Column4: TcxGridDBColumn
Caption = #36724#21345#21495
DataBinding.FieldName = 'WBCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object TV1Column5: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'WB_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object V2Column3: TcxGridDBColumn
Caption = #25972#32463#38271#24230
DataBinding.FieldName = 'WB_YarnLen'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #22836#32441
DataBinding.FieldName = 'WB_YarnQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object TV1Column3: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 146
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
object ToolBar2: TToolBar
Tag = 1
Left = 1
Top = 1
Width = 564
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_WarpBeamStk.ImageList_new32
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_WarpBeamStk.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 1
object ToolButton2: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #24320#36724
ImageIndex = 2
OnClick = ToolButton2Click
end
object ToolButton4: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = ToolButton4Click
end
object ToolButton3: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 0
OnClick = ToolButton3Click
end
end
object cxTabControl2: TcxTabControl
Left = 1
Top = 39
Width = 564
Height = 28
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#32463#36724
#27974#36724)
OnChange = cxTabControl2Change
ClientRectBottom = 30
ClientRectRight = 564
ClientRectTop = 30
end
object cxGrid3: TcxGrid
Left = 1
Top = 300
Width = 564
Height = 240
Align = alBottom
TabOrder = 3
LockedStateImageOptions.AssignedValues = [lsiavFont]
LockedStateImageOptions.Font.Charset = GB2312_CHARSET
LockedStateImageOptions.Font.Color = clWindowText
LockedStateImageOptions.Font.Height = -19
LockedStateImageOptions.Font.Name = #24494#36719#38597#40657
LockedStateImageOptions.Font.Style = [fsBold]
object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end>
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 = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object v2Column10: TcxGridDBColumn
Caption = #21407#26009#20195#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 131
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #21407#26009#21517#31216
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
Width = 138
end
object v2Column2: TcxGridDBColumn
Caption = #32433#32447#21697#29260
DataBinding.FieldName = 'Brand'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
Width = 111
end
object v2Column6: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 99
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #37197#27604
DataBinding.FieldName = 'Y_Ratio'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 69
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV3
end
end
end
inherited cxProgressBar2: TcxProgressBar
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Left = 214
Top = 216
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Left = 89
Top = 217
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 525
Top = 318
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Parameters = <>
Left = 503
Top = 190
end
object ADOQueryMain: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 399
Top = 194
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 605
Top = 191
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 650
Top = 319
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 584
Top = 318
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 646
Top = 423
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 585
Top = 422
end
object GPM_2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 531
Top = 423
end
object DS_3: TDataSource
DataSet = CDS_3
Left = 644
Top = 514
end
object CDS_3: TClientDataSet
Aggregates = <>
Params = <>
Left = 590
Top = 512
end
object GPM_3: TcxGridPopupMenu
Grid = cxGrid3
PopupMenus = <>
Left = 533
Top = 516
end
object ADO_2: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 440
Top = 425
end
object ADO_3: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 445
Top = 512
end
object PM_1: TPopupMenu
Left = 777
Top = 304
object N5: TMenuItem
Caption = #20840#36873
OnClick = N5Click
end
object N6: TMenuItem
Caption = #20840#24323
OnClick = N6Click
end
end
end

835
E02梭织经轴仓库/U_TatWBPlan.pas Normal file
View File

@ -0,0 +1,835 @@
unit U_TatWBPlan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
cxPC, cxCheckBox, dxScrollbarAnnotations, Vcl.Menus, cxContainer,
cxProgressBar;
type
TfrmTatWBPlan = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBAdd: TToolButton;
TBEdit: TToolButton;
TBDel: TToolButton;
TBPrint: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Label1: TLabel;
Label2: TLabel;
GPM_1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
TBExport: TToolButton;
CDS_1: TClientDataSet;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column2: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
TBView: TToolButton;
v1Column19: TcxGridDBColumn;
v1Column21: TcxGridDBColumn;
v1Column31: TcxGridDBColumn;
CustName: TEdit;
Label7: TLabel;
cxTabControl1: TcxTabControl;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
TBEnd: TToolButton;
TBNoEnd: TToolButton;
ToolButton1: TToolButton;
btnChk: TToolButton;
btnReChk: TToolButton;
Panel2: TPanel;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
V2Column4: TcxGridDBColumn;
TV1Column5: TcxGridDBColumn;
V2Column3: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
ToolBar2: TToolBar;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
DS_2: TDataSource;
CDS_2: TClientDataSet;
GPM_2: TcxGridPopupMenu;
Label3: TLabel;
WB_Spec: TEdit;
ToolButton4: TToolButton;
cxTabControl2: TcxTabControl;
cxGrid3: TcxGrid;
TV3: TcxGridDBTableView;
v2Column10: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
DS_3: TDataSource;
CDS_3: TClientDataSet;
GPM_3: TcxGridPopupMenu;
ADO_2: TADOQuery;
ADO_3: TADOQuery;
PM_1: TPopupMenu;
N5: TMenuItem;
N6: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBPrintClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure ConNoChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBViewClick(Sender: TObject);
procedure OrdTypeChange(Sender: TObject);
procedure C_CodeKeyPress(Sender: TObject; var Key: Char);
procedure BatchNoHZKeyPress(Sender: TObject; var Key: Char);
procedure CustNameKeyPress(Sender: TObject; var Key: Char);
procedure C_NameKeyPress(Sender: TObject; var Key: Char);
procedure cxTabControl1Change(Sender: TObject);
procedure TBEndClick(Sender: TObject);
procedure TBNoEndClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure btnChkClick(Sender: TObject);
procedure btnReChkClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure cxTabControl2Change(Sender: TObject);
procedure TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure ToolButton3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
private
FInt, PFInt: Integer;
procedure InitGrid();
procedure InitCard();
procedure InitCardYarn();
procedure InitForm();
function DelData(): Boolean;
procedure InitButton();
{ Private declarations }
public
canshu1, FCheJian: string;
{ Public declarations }
end;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatWBPlanInPut,
U_TatWBPlanCardInPut;
{$R *.dfm}
procedure TfrmTatWBPlan.InitCard();
begin
with ADO_2 do
begin
Close;
sql.Clear;
sql.Add('select A.* ');
sql.Add(' from Tat_WB_Card A ');
sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString)));
case cxTabControl2.TabIndex of
0:
begin
sql.Add('and WB_Type =''经轴'' ');
end;
1:
begin
sql.Add('and WB_Type =''浆轴'' ');
end;
end;
Open;
end;
SCreateCDS(ADO_2, CDS_2);
SInitCDSData(ADO_2, CDS_2);
end;
procedure TfrmTatWBPlan.InitCardYarn();
begin
with ADO_3 do
begin
Close;
sql.Clear;
sql.Add('select A.* ');
sql.Add(' from Tat_WB_Card_Yarn A ');
sql.Add('where WBCID=' + quotedstr(trim(CDS_2.fieldbyname('WBCID').AsString)));
Open;
end;
SCreateCDS(ADO_3, CDS_3);
SInitCDSData(ADO_3, CDS_3);
end;
procedure TfrmTatWBPlan.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmTatWBPlan.InitButton();
begin
TBAdd.Enabled := False;
TBEdit.Enabled := False;
TBDel.Enabled := False;
TBEnd.Enabled := False;
TBNoEnd.Enabled := False;
btnChk.Enabled := False;
btnReChk.Enabled := False;
if Trim(canshu1) = '录入' then
begin
case cxTabControl1.TabIndex of
0:
begin
TBAdd.Enabled := true;
TBDel.Enabled := true;
TBEdit.Enabled := true;
btnChk.Enabled := true;
end;
1:
begin
TBAdd.Enabled := true;
TBEnd.Enabled := true;
TBEdit.Enabled := true;
btnReChk.Enabled := true;
end;
2:
begin
TBNoEnd.Enabled := true;
end;
end;
end;
if Trim(canshu1) = '管理' then
begin
case cxTabControl1.TabIndex of
0:
begin
TBAdd.Enabled := true;
TBDel.Enabled := true;
TBEdit.Enabled := true;
btnChk.Enabled := true;
end;
1:
begin
TBAdd.Enabled := true;
TBEnd.Enabled := true;
TBEdit.Enabled := true;
btnReChk.Enabled := true;
end;
2:
begin
TBNoEnd.Enabled := true;
end;
end;
end;
end;
procedure TfrmTatWBPlan.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatWBPlan.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('select A.* ');
sql.Add(' from Tat_WB_Plan A ');
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.DateTime)) + '''');
sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''');
end;
end;
sql.add('order by A.FILLTIME DESC');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmTatWBPlan.N5Click(Sender: TObject);
begin
SelOKNo(CDS_2, True);
end;
procedure TfrmTatWBPlan.N6Click(Sender: TObject);
begin
SelOKNo(CDS_2, False);
end;
procedure TfrmTatWBPlan.InitForm();
begin
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '坯布生产管理');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '坯布生产管理');
ReadCxGrid(trim(self.Caption) + 'Tv3', Tv3, '坯布生产管理');
BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 30;
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
InitButton();
InitGrid();
end;
procedure TfrmTatWBPlan.TBFindClick(Sender: TObject);
begin
TBRafresh.Click;
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmTatWBPlan.TBNoEndClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Tat_WB_Plan SET status=''0'',Comper=null,Comptime=null ');
sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('生产单撤销结束')));
sql.Add(',' + quotedstr(trim('计划单号：' + trim(CDS_1.FieldByName('TWPId').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
end;
application.MessageBox('撤销结束成功！', '提示信息');
TBRafresh.Click;
except
application.MessageBox('撤销结束失败！', '提示信息', 0);
end;
end;
procedure TfrmTatWBPlan.TBEditClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('浆纱计划单修改')));
sql.Add(',' + quotedstr(trim('计划单号：' + trim(CDS_1.FieldByName('TWPId').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
ExecSQL;
end;
try
frmTatWBPlanInPut := TfrmTatWBPlanInPut.Create(Application);
with frmTatWBPlanInPut do
begin
PState := 1;
FTWPId := Trim(Self.CDS_1.fieldbyname('TWPId').AsString);
if ShowModal = 1 then
begin
InitGrid();
Self.CDS_1.Locate('TWPId', frmTatWBPlanInPut.FTWPId, []);
end;
end;
finally
frmTatWBPlanInPut.Free;
end;
end;
procedure TfrmTatWBPlan.TBEndClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Tat_WB_Plan SET status=''10'' ,Comper=''' + trim(DName) + ''',Comptime=getdate() ');
sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('生产单结束')));
sql.Add(',' + quotedstr(trim('计划单号：' + trim(CDS_1.FieldByName('TWPId').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
end;
application.MessageBox('结束成功！', '提示信息');
TBRafresh.Click;
except
application.MessageBox('结束失败！', '提示信息', 0);
end;
end;
procedure TfrmTatWBPlan.TBDelClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
with ADOQueryTemp do
begin
Close;
sql.Clear;
SQL.Add('select A.*');
sql.Add('from Tat_Plan_Card A');
sql.Add(' where A.TWPId=''' + Trim(CDS_1.fieldbyname('TWPId').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
Application.MessageBox('已产生安排数据不能删除!', '提示', 0);
Exit;
end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if DelData() then
begin
CDS_1.Delete;
end;
end;
function TfrmTatWBPlan.DelData(): Boolean;
begin
try
Result := false;
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Tat_WB_Plan where TWPId=''' + Trim(CDS_1.fieldbyname('TWPId').AsString) + '''');
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('整经单删除')));
sql.Add(',' + quotedstr(trim('整经计划单号：' + trim(CDS_1.FieldByName('TWPId').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('数据删除异常！', '提示', 0);
end;
end;
procedure TfrmTatWBPlan.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
TcxGridToExcel('坯布生产单', cxGrid1);
end;
procedure TfrmTatWBPlan.TBPrintClick(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
WSql := Trim(CDS_1.fieldbyname('TWPId').AsString);
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TatWBPlan';
FFiltration1 := WSql;
FFiltration2 := WSql;
FFiltration3 := WSql;
if ShowModal = 1 then
begin
// Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatWBPlan.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTatWBPlan.TBAddClick(Sender: TObject);
begin
try
frmTatWBPlanInPut := TfrmTatWBPlanInPut.Create(Application);
with frmTatWBPlanInPut do
begin
PState := 0;
FTWPId := '';
FSubId := '';
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmTatWBPlanInPut.Free;
end;
end;
procedure TfrmTatWBPlan.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 TfrmTatWBPlan.FormShow(Sender: TObject);
begin
inherited;
canshu1 := Self.fParameters1;
InitForm();
end;
procedure TfrmTatWBPlan.TBViewClick(Sender: TObject);
begin
try
frmTatWBPlanInPut := TfrmTatWBPlanInPut.Create(Application);
with frmTatWBPlanInPut do
begin
PState := 1;
FTWPId := Trim(Self.CDS_1.fieldbyname('TWPId').AsString);
TBSave.Visible := False;
ToolBar3.Visible := False;
ScrollBox1.Enabled := False;
if ShowModal = 1 then
begin
end;
end;
finally
frmTatWBPlanInPut.Free;
end;
end;
procedure TfrmTatWBPlan.ToolButton1Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '坯布生产管理');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '坯布生产管理');
WriteCxGrid(trim(self.Caption) + 'Tv3', Tv3, '坯布生产管理');
end;
procedure TfrmTatWBPlan.ToolButton2Click(Sender: TObject);
begin
try
frmTatWBPlanCardInPut := TfrmTatWBPlanCardInPut.Create(Application);
with frmTatWBPlanCardInPut do
begin
FTWPId := Trim(self.CDS_1.fieldbyname('TWPId').AsString);
case cxTabControl2.TabIndex of
0:
begin
FWB_Type := '经轴';
end;
1:
begin
FWB_Type := '浆轴';
end;
end;
if ShowModal = 1 then
begin
InitCard();
end;
end;
finally
frmTatWBPlanCardInPut.Free;
end;
end;
procedure TfrmTatWBPlan.ToolButton3Click(Sender: TObject);
var
rtvalues: TArray<string>;
begin
if CDS_2.IsEmpty then
Exit;
Tv2.OnFocusedRecordChanged := nil;
if CDS_2.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
rtvalues := SelCDSKey(CDS_2, ['WBCID']);
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('exec P_TatWB_Card_Del ');
Sql.Add('@WBCIDS=' + quotedstr(Trim(rtvalues[0])));
Sql.Add(',@DCode=' + Quotedstr(DCode));
Sql.Add(',@DName=' + Quotedstr(DName));
Open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
begin
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
end;
ADOQueryCmd.Connection.CommitTrans;
InitCard();
application.MessageBox('删除成功！', '提示信息');
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmTatWBPlan.ToolButton4Click(Sender: TObject);
var
RTValues: TArray<string>;
begin
if CDS_2.IsEmpty then
Exit;
RTValues := SelCDSKey(CDS_2, ['WBCID']);
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FPreviewPrint := False;
case cxTabControl2.TabIndex of
0:
begin
FLMType := 'TatWBCard1';
end;
1:
begin
FLMType := 'TatWBCard2';
end;
end;
FFiltration1 := RTValues[0];
if ShowModal = 1 then
begin
// Self.InitGrid();
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update Tat_WB_Card ');
// sql.Add(' set PRTer=' + quotedstr(DName));
// sql.Add(', PRTCount=PRTCount+1');
// sql.Add(', PRTDate=getdate()');
// sql.Add(' where WBCID in (' + WSql + ')');
// ExecSQL;
// end;
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatWBPlan.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
InitCard();
end;
procedure TfrmTatWBPlan.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
InitCardYarn();
end;
procedure TfrmTatWBPlan.btnChkClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Tat_WB_Plan SET status=''9'',chker=''' + trim(DName) + ''',Chktime=getdate() ');
sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('生产单开始')));
sql.Add(',' + quotedstr(trim('计划单号：' + trim(CDS_1.FieldByName('TWPId').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
end;
application.MessageBox('开始成功！', '提示信息');
TBRafresh.Click;
except
application.MessageBox('开始失败！', '提示信息', 0);
end;
end;
procedure TfrmTatWBPlan.btnReChkClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Tat_WB_Plan SET status=''0'',chker=null,Chktime=null ');
sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('生产单撤销开始')));
sql.Add(',' + quotedstr(trim('计划单号：' + trim(CDS_1.FieldByName('TWPId').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
end;
TBRafresh.Click;
except
application.MessageBox('计划单撤销开始失败！', '提示信息', 0);
end;
end;
procedure TfrmTatWBPlan.OrdTypeChange(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmTatWBPlan.C_CodeKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
TBRafresh.Click();
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmTatWBPlan.BatchNoHZKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
TBRafresh.Click();
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmTatWBPlan.CustNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
TBRafresh.Click();
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmTatWBPlan.cxTabControl1Change(Sender: TObject);
begin
InitButton();
InitGrid();
end;
procedure TfrmTatWBPlan.cxTabControl2Change(Sender: TObject);
begin
InitCard();
end;
procedure TfrmTatWBPlan.C_NameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
TBRafresh.Click();
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
end.

660
E02梭织经轴仓库/U_TatWBPlanCardInPut.dfm Normal file
View File

@ -0,0 +1,660 @@
inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Left = -35
Top = 98
Caption = #32463#36724#35745#21010
ClientHeight = 667
ClientWidth = 1540
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307
Position = poMainFormCenter
OnClose = FormClose
ExplicitWidth = 1556
ExplicitHeight = 706
PixelsPerInch = 96
TextHeight = 12
object Panel2: TPanel [0]
Left = 0
Top = 0
Width = 1540
Height = 667
Align = alClient
TabOrder = 0
object Panel1: TPanel
Left = 1
Top = 1
Width = 1538
Height = 83
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
object Label8: TLabel
Left = 377
Top = 50
Width = 54
Height = 12
Caption = #22836' '#32441
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 377
Top = 21
Width = 54
Height = 12
Caption = #36724' '#25968
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 561
Top = 50
Width = 52
Height = 12
Caption = #25972#32463#38271#24230
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 763
Top = 21
Width = 54
Height = 12
Caption = #22791' '#27880
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 201
Top = 21
Width = 54
Height = 12
Caption = #26085' '#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 40
Top = 254
Width = 53
Height = 12
Caption = #20379' '#24212' '#21830
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label18: TLabel
Left = 18
Top = 21
Width = 52
Height = 12
Caption = #27974#32433#35745#21010
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 17
Top = 50
Width = 54
Height = 12
Caption = #21697' '#21517
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 40
Top = 217
Width = 53
Height = 12
Caption = #30424' '#22836' '#21495
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object WB_YarnQty: TEdit
Tag = 1
Left = 436
Top = 45
Width = 100
Height = 20
TabOrder = 0
end
object edtCardQty: TEdit
Tag = 1
Left = 435
Top = 20
Width = 282
Height = 20
TabOrder = 1
end
object WB_Spec: TEdit
Tag = 1
Left = 76
Top = 46
Width = 282
Height = 20
TabOrder = 2
end
object WB_YarnLen: TEdit
Tag = 1
Left = 619
Top = 45
Width = 100
Height = 20
TabOrder = 3
end
object Note: TRichEdit
Tag = 2
Left = 823
Top = 20
Width = 282
Height = 49
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
Zoom = 100
end
object WBData: TDateTimePicker
Left = 258
Top = 17
Width = 100
Height = 20
Date = 44378.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464742650459811600
TabOrder = 5
end
object FtyCoName: TBtnEditC
Left = 99
Top = 250
Width = 100
Height = 20
ReadOnly = True
TabOrder = 6
OnBtnUpClick = FtyCoNameBtnUpClick
OnBtnDnClick = FtyCoNameBtnDnClick
end
object TWPId: TEdit
Tag = 1
Left = 76
Top = 17
Width = 100
Height = 20
ReadOnly = True
TabOrder = 7
end
object WBNo: TBtnEditC
Left = 99
Top = 213
Width = 100
Height = 20
ReadOnly = True
TabOrder = 8
Visible = False
OnBtnUpClick = WBNoBtnUpClick
OnBtnDnClick = FtyCoNameBtnDnClick
end
end
object Panel4: TPanel
Left = 1
Top = 84
Width = 1538
Height = 582
Align = alClient
Caption = 'Panel4'
TabOrder = 0
object Panel3: TPanel
Left = 1
Top = 1
Width = 1536
Height = 580
Align = alClient
TabOrder = 0
object cxPageControl1: TcxPageControl
Left = 1
Top = 282
Width = 1534
Height = 297
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 0
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ClientRectBottom = 297
ClientRectRight = 1534
ClientRectTop = 0
end
object cxGrid1: TcxGrid
Left = 1
Top = 42
Width = 1534
Height = 240
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end>
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 = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object v2Column10: TcxGridDBColumn
Caption = #21407#26009#20195#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 131
end
object cxGridDBColumn1: TcxGridDBColumn
Caption = #21407#26009#21517#31216
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
Width = 138
end
object v2Column2: TcxGridDBColumn
Caption = #32433#32447#21697#29260
DataBinding.FieldName = 'Brand'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
Width = 111
end
object v2Column6: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 99
end
object TV1Column2: TcxGridDBColumn
Caption = #37197#27604
DataBinding.FieldName = 'Y_Ratio'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 69
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV1
end
end
object Panel5: TPanel
Left = 1
Top = 1
Width = 1534
Height = 41
Align = alTop
TabOrder = 2
object Panel6: TPanel
Left = 1
Top = 1
Width = 184
Height = 39
Align = alLeft
TabOrder = 0
object Label21: TLabel
Left = 37
Top = 7
Width = 84
Height = 20
Caption = #32463#32433#37197#27604
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
end
object ToolBar1: TToolBar
Tag = 1
Left = 185
Top = 1
Width = 308
Height = 39
Align = alLeft
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
DisabledImages = DataLink_WarpBeamStk.ImageList_new32
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_WarpBeamStk.ImageList_new32
List = True
ParentFont = False
ShowCaptions = True
TabOrder = 1
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #24320#21345
ImageIndex = 16
OnClick = TBSaveClick
end
object ToolButton1: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 5
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
end
object TBClose: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
end
object cxGrid2: TcxGrid
Left = 1
Top = 282
Width = 1534
Height = 297
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
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 = 'C_Code'
end>
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 = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object cxGridDBColumn2: TcxGridDBColumn
Caption = #21407#26009#20195#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 131
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #21407#26009#21517#31216
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
Width = 138
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #32433#32447#21697#29260
DataBinding.FieldName = 'Brand'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
Width = 111
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 99
end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #37197#27604
DataBinding.FieldName = 'Y_Ratio'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 69
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV2
end
end
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Left = 722
Top = 338
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Left = 596
Top = 342
end
inherited ImageList_new32: TImageList
Left = 680
Top = 416
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Parameters = <>
Left = 1028
Top = 328
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 866
Top = 338
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 1
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 793
Top = 416
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 614
Top = 183
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 547
Top = 181
end
object PopupMenu1: TPopupMenu
Left = 553
Top = 412
object N2: TMenuItem
Caption = #20840#36873
end
object N3: TMenuItem
Caption = #20840#24323
end
end
object GPM_2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 484
Top = 242
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 546
Top = 239
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 614
Top = 240
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 481
Top = 186
end
end

356
E02梭织经轴仓库/U_TatWBPlanCardInPut.pas Normal file
View File

@ -0,0 +1,356 @@
unit U_TatWBPlanCardInPut;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, cxPC,
Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList,
dxScrollbarAnnotations, cxImageList;
type
TfrmTatWBPlanCardInPut = class(TfrmBaseInput)
ADOQueryCmd: TADOQuery;
ADOQueryTemp: TADOQuery;
RMXLSExport1: TRMXLSExport;
Panel2: TPanel;
DS_1: TDataSource;
CDS_1: TClientDataSet;
PopupMenu1: TPopupMenu;
N2: TMenuItem;
N3: TMenuItem;
Panel4: TPanel;
Panel1: TPanel;
Label8: TLabel;
Label2: TLabel;
Label6: TLabel;
Label4: TLabel;
WB_YarnQty: TEdit;
edtCardQty: TEdit;
WB_Spec: TEdit;
WB_YarnLen: TEdit;
Note: TRichEdit;
GPM_2: TcxGridPopupMenu;
Label7: TLabel;
WBData: TDateTimePicker;
Label10: TLabel;
FtyCoName: TBtnEditC;
Label18: TLabel;
TWPId: TEdit;
Label19: TLabel;
Label12: TLabel;
WBNo: TBtnEditC;
Panel3: TPanel;
cxPageControl1: TcxPageControl;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
v2Column10: TcxGridDBColumn;
cxGridDBColumn1: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Panel5: TPanel;
Panel6: TPanel;
Label21: TLabel;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
ToolBar1: TToolBar;
TBSave: TToolButton;
ToolButton2: TToolButton;
TBClose: TToolButton;
CDS_2: TClientDataSet;
DS_2: TDataSource;
GPM_1: TcxGridPopupMenu;
ToolButton1: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FtyCoNameBtnUpClick(Sender: TObject);
procedure FtyCoNameBtnDnClick(Sender: TObject);
procedure WB_CodeBtnDnClick(Sender: TObject);
procedure WB_MachNoBtnUpClick(Sender: TObject);
procedure WBNoBtnUpClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
private
function TestData(): Boolean;
procedure InitYarn();
{ Private declarations }
public
FTWPId, FWB_Type: string;
{ Public declarations }
end;
var
frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_CompanySel, U_YarnInfoSel,
U_WarpBeamInfoSel;
{$R *.dfm}
procedure TfrmTatWBPlanCardInPut.InitYarn();
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.* ');
sql.Add(' from Tat_WB_Plan A ');
sql.Add(' where A.TWPId=''' + Trim(FTWPId) + '''');
Open;
end;
if FWB_Type = '经轴' then
begin
WB_Spec.Text := ADOQueryTemp.FieldByName('WB_Spec').AsString;
edtCardQty.Text := ADOQueryTemp.FieldByName('WB_Qty').AsString;
WB_YarnLen.Text := ADOQueryTemp.FieldByName('WB_YarnLen').AsString;
WB_YarnQty.Text := ADOQueryTemp.FieldByName('WB_YarnQty').AsString;
end
else
begin
WB_Spec.Text := ADOQueryTemp.FieldByName('WB_Spec').AsString;
WB_YarnQty.Text := ADOQueryTemp.FieldByName('WB_Qty_YJMJZGS').AsString;
edtCardQty.Text := ADOQueryTemp.FieldByName('WB_Qty_YJJZZS').AsString;
WB_YarnLen.Text := ADOQueryTemp.FieldByName('WB_Qty_YJMJZMS').AsString;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.* ');
sql.Add(' from Tat_WB_Plan_Yarn A ');
sql.Add(' where YRType=''大轴经丝'' and A.TWPId=''' + Trim(FTWPId) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_1);
SInitCDSData(ADOQueryTemp, CDS_1);
SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2);
end;
function TfrmTatWBPlanCardInPut.TestData(): Boolean;
begin
try
if StrToIntDef(WB_YarnQty.Text, 0) = 0 then
raise Exception.Create('头纹不能为空！');
if StrToIntDef(WB_YarnLen.Text, 0) = 0 then
raise Exception.Create('整经长度不能为空！');
Result := True;
except
Result := false;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmTatWBPlanCardInPut.WBNoBtnUpClick(Sender: TObject);
begin
try
frmWarpBeamInfoSel := TfrmWarpBeamInfoSel.Create(Application);
with frmWarpBeamInfoSel do
begin
if ShowModal = 1 then
begin
Self.WBNo.Text := Trim(frmWarpBeamInfoSel.CDS_Main.fieldbyname('WBNo').AsString);
end;
end;
finally
frmWarpBeamInfoSel.Free;
end;
end;
procedure TfrmTatWBPlanCardInPut.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmTatWBPlanCardInPut.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(Trim(self.Caption) + 'Tv2', Tv2, '坯布轴卡');
WBData.DateTime := SGetServerDate(ADOQueryTemp);
TWPId.Text := FTWPId;
if FWB_Type = '经轴' then
TV1.OptionsData.Editing := False;
InitYarn();
end;
procedure TfrmTatWBPlanCardInPut.FtyCoNameBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).TxtCode := '';
TBtnEditC(Sender).Text := '';
end;
procedure TfrmTatWBPlanCardInPut.FtyCoNameBtnUpClick(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '供应商';
if ShowModal = 1 then
begin
FtyCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmTatWBPlanCardInPut.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatWBPlanCardInPut.TBSaveClick(Sender: TObject);
var
MWBCID: string;
i, j: integer;
begin
if TestData() = false then
exit;
try
ADOQueryCmd.Connection.BeginTrans;
////////////////// 插入轴卡 //////////////////////
if GetLSNo(ADOQueryTemp, MWBCID, 'ZK1', 'Tat_WB_Card', 3, 1) = False then
begin
raise Exception.Create('取布票流水号失败!');
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' insert into Tat_WB_Card(WBCID,WBNo,TWPId,WB_Spec,WB_YarnQty,WB_YarnLen ');
sql.Add(' ,WBData,FtyCoNo,FtyCoName');
sql.Add(' ,WB_Type,Note,FillId,Filler) values');
for i := 1 to StrToIntdef(edtCardQty.Text, 1) do
begin
if i > 1 then
sql.Add(',');
sql.Add(' (' + Quotedstr(Trim(MWBCID) + IntToStr(i)));
sql.Add(',' + Quotedstr(Trim(WBNO.Text)));
sql.Add(',' + Quotedstr(Trim(FTWPId)));
sql.Add(',' + Quotedstr(Trim(WB_Spec.Text)));
sql.Add(',' + (Trim(WB_YarnQty.Text)));
sql.Add(',' + (Trim(WB_YarnLen.Text)));
sql.Add(',' + Quotedstr(Trim(FormatDateTime('yyyy-MM-dd', WBData.DateTime))));
sql.Add(',' + Quotedstr(Trim(FtyCoName.TxtCode)));
sql.Add(',' + Quotedstr(Trim(FtyCoName.Text)));
sql.Add(',' + Quotedstr(FWB_Type));
sql.Add(',' + Quotedstr(Trim(Note.Text)));
sql.Add(',' + Quotedstr(Trim(DCode)));
sql.Add(',' + Quotedstr(Trim(DName)));
sql.Add(' )');
end;
for i := 1 to StrToIntdef(edtCardQty.Text, 1) do
begin
sql.Add(' insert into Tat_WB_Card_Yarn(YRId,WBCID,Y_Code,Y_Name,Brand,Y_Color,Y_Ratio');
sql.Add(',Filler) values');
CDS_1.DisableControls;
CDS_1.first;
j := 1;
while not CDS_1.eof do
begin
if j > 1 then
sql.Add(',');
sql.Add(' (' + Quotedstr(Trim(MWBCID) + IntToStr(i) + IntToStr(j)));
sql.Add(',' + Quotedstr(Trim(MWBCID) + IntToStr(i)));
sql.Add(',' + Quotedstr(Trim(CDS_1.FieldByName('Y_Code').AsString)));
sql.Add(',' + Quotedstr(Trim(CDS_1.FieldByName('Y_Name').AsString)));
sql.Add(',' + Quotedstr(Trim(CDS_1.FieldByName('Brand').AsString)));
sql.Add(',' + Quotedstr(Trim(CDS_1.FieldByName('Y_Color').AsString)));
sql.Add(',' + Quotedstr(Trim(CDS_1.FieldByName('Y_Ratio').AsString)));
sql.Add(',' + Quotedstr(Trim(DName)));
sql.Add(' )');
CDS_1.Next;
j := j + 1;
end;
CDS_1.enableControls;
end;
// ShowMessage(sql.Text);
ExecSQL;
end;
////////////////// 插入轴卡 //////////////////////
ADOQueryCmd.Connection.CommitTrans;
ModalResult := 1;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmTatWBPlanCardInPut.ToolButton1Click(Sender: TObject);
begin
CDS_1.Delete;
end;
procedure TfrmTatWBPlanCardInPut.ToolButton3Click(Sender: TObject);
begin
WriteCxGrid(Trim(self.Caption) + 'Tv2', Tv2, '坯布轴卡');
end;
procedure TfrmTatWBPlanCardInPut.WB_CodeBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmTatWBPlanCardInPut.WB_MachNoBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
end.

655
E02梭织经轴仓库/U_TatWBPlanInPut.dfm Normal file
View File

@ -0,0 +1,655 @@
inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Left = 212
Top = 14
Caption = #27974#32433#35745#21010#24405#20837
ClientHeight = 541
ClientWidth = 952
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307
Position = poScreenCenter
ExplicitWidth = 968
ExplicitHeight = 580
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 952
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
DisabledImages = DataLink_WarpBeamStk.ImageList_new32
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_WarpBeamStk.ImageList_new32
List = True
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = TBSaveClick
end
object ToolButton8: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
end
object TBClose: TToolButton
Left = 166
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel2: TPanel [1]
Left = 0
Top = 192
Width = 952
Height = 349
Align = alClient
TabOrder = 1
object cxPageControl1: TcxPageControl
Left = 1
Top = 42
Width = 950
Height = 306
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 0
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ClientRectBottom = 306
ClientRectRight = 950
ClientRectTop = 0
end
object cxGrid2: TcxGrid
Left = 1
Top = 42
Width = 950
Height = 306
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end>
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 = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object v2Column10: TcxGridDBColumn
Caption = #21407#26009#20195#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 131
end
object cxGridDBColumn1: TcxGridDBColumn
Caption = #21407#26009#21517#31216
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
Width = 138
end
object v2Column2: TcxGridDBColumn
Caption = #32433#32447#21697#29260
DataBinding.FieldName = 'Brand'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
Width = 111
end
object v2Column6: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 99
end
object Tv2Column2: TcxGridDBColumn
Caption = #37197#27604
DataBinding.FieldName = 'Y_Ratio'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 69
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
object Panel5: TPanel
Left = 1
Top = 1
Width = 950
Height = 41
Align = alTop
TabOrder = 2
object Panel6: TPanel
Left = 1
Top = 1
Width = 184
Height = 39
Align = alLeft
TabOrder = 0
object Label21: TLabel
Left = 37
Top = 7
Width = 84
Height = 20
Caption = #32463#32433#37197#27604
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
end
object ToolBar3: TToolBar
Tag = 1
Left = 185
Top = 1
Width = 142
Height = 39
Align = alLeft
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_WarpBeamStk.ImageList_new32
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_WarpBeamStk.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 1
object ToolButton3: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = ToolButton3Click
end
object ToolButton4: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton4Click
end
end
end
end
object ScrollBox1: TScrollBox [2]
Left = 0
Top = 38
Width = 952
Height = 154
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 2
object Label3: TLabel
Left = 12
Top = 29
Width = 67
Height = 12
Caption = #21697' '#21517#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 14
Top = 6
Width = 65
Height = 12
Caption = #20844#21496#25260#22836#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 470
Top = 6
Width = 65
Height = 12
Caption = #20132#36135#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label16: TLabel
Left = 12
Top = 72
Width = 67
Height = 12
Caption = #22791' '#27880#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label47: TLabel
Left = 238
Top = 6
Width = 67
Height = 12
Caption = #23458' '#25143#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 240
Top = 29
Width = 65
Height = 12
Caption = #24635#32463#26681#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 431
Top = 29
Width = 104
Height = 12
Caption = #23458#25143#19979#21333#24635#31859#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 1
Top = 53
Width = 78
Height = 12
Caption = #39044#35745#32463#36724#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 201
Top = 53
Width = 104
Height = 12
Caption = #39044#35745#27599#32463#36724#31859#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 444
Top = 53
Width = 91
Height = 12
Caption = #39044#35745#29992#27974#25104#26412#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 683
Top = 6
Width = 91
Height = 12
Caption = #27974#32433#25490#21333#31859#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 696
Top = 29
Width = 78
Height = 12
Caption = #39044#35745#27974#36724#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 696
Top = 53
Width = 78
Height = 12
Caption = #27599#27974#36724#26681#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 696
Top = 76
Width = 78
Height = 12
Caption = #27599#27974#36724#31859#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 735
Top = 99
Width = 39
Height = 12
Caption = #36724#38271#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object DlyDate: TDateTimePicker
Left = 532
Top = 2
Width = 120
Height = 20
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548000
ShowCheckbox = True
TabOrder = 2
end
object OrdNote: TRichEdit
Left = 81
Top = 72
Width = 571
Height = 66
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
Zoom = 100
OnKeyPress = ConNoKeyPress
end
object WB_Spec: TEdit
Left = 81
Top = 26
Width = 120
Height = 18
TabOrder = 0
OnKeyPress = ConNoKeyPress
end
object CustName: TBtnEditC
Left = 301
Top = 2
Width = 120
Height = 20
ReadOnly = True
TabOrder = 3
OnBtnUpClick = CustNameBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
object OurCoName: TBtnEditC
Left = 81
Top = 2
Width = 120
Height = 20
ReadOnly = True
TabOrder = 4
OnBtnUpClick = OurCoNameBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
object WB_YarnQty: TEdit
Left = 301
Top = 25
Width = 120
Height = 18
TabOrder = 5
OnKeyPress = ConNoKeyPress
end
object WB_YarnTotalLen: TEdit
Left = 532
Top = 26
Width = 120
Height = 18
TabOrder = 6
OnKeyPress = ConNoKeyPress
end
object WB_Qty: TEdit
Left = 81
Top = 50
Width = 120
Height = 18
TabOrder = 7
OnKeyPress = ConNoKeyPress
end
object WB_YarnLen: TEdit
Left = 301
Top = 50
Width = 120
Height = 18
TabOrder = 8
OnKeyPress = ConNoKeyPress
end
object SizingAgentCost: TEdit
Left = 532
Top = 50
Width = 120
Height = 18
TabOrder = 9
OnKeyPress = ConNoKeyPress
end
object WB_Qty_JSPDMS: TEdit
Left = 771
Top = 3
Width = 120
Height = 18
TabOrder = 10
OnKeyPress = ConNoKeyPress
end
object WB_Qty_YJJZZS: TEdit
Left = 770
Top = 26
Width = 120
Height = 18
TabOrder = 11
OnKeyPress = ConNoKeyPress
end
object WB_Qty_YJMJZGS: TEdit
Left = 771
Top = 50
Width = 120
Height = 18
TabOrder = 12
OnKeyPress = ConNoKeyPress
end
object WB_Qty_YJMJZMS: TEdit
Left = 771
Top = 73
Width = 120
Height = 18
TabOrder = 13
OnKeyPress = ConNoKeyPress
end
object WB_Len: TEdit
Left = 771
Top = 96
Width = 120
Height = 18
TabOrder = 14
OnKeyPress = ConNoKeyPress
end
end
inherited ADOQueryBaseCmd: TADOQuery
Left = 1185
Top = 88
end
inherited ADOQueryBaseTemp: TADOQuery
Left = 1225
Top = 193
end
inherited ImageList_new32: TImageList
Left = 1272
Top = 200
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1090
Top = 89
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Parameters = <>
Left = 1410
Top = 225
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 363
Top = 394
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 436
Top = 393
end
end

419
E02梭织经轴仓库/U_TatWBPlanInPut.pas Normal file
View File

@ -0,0 +1,419 @@
unit U_TatWBPlanInPut;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxDropDownEdit,
StrUtils, cxPC, ShellAPI, cxCalendar, Math, cxLookAndFeels,
cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, dxDateRanges,
U_BaseInput, System.ImageList, Vcl.ImgList, Vcl.Menus, dxScrollbarAnnotations,
cxImageList;
type
TfrmTatWBPlanInPut = class(TfrmBaseInput)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ToolButton8: TToolButton;
Panel2: TPanel;
cxPageControl1: TcxPageControl;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
v2Column10: TcxGridDBColumn;
cxGridDBColumn1: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Panel5: TPanel;
Panel6: TPanel;
Label21: TLabel;
ToolBar3: TToolBar;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
CDS_1: TClientDataSet;
DS_1: TDataSource;
ScrollBox1: TScrollBox;
Label3: TLabel;
Label14: TLabel;
Label5: TLabel;
Label16: TLabel;
Label47: TLabel;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
DlyDate: TDateTimePicker;
OrdNote: TRichEdit;
WB_Spec: TEdit;
CustName: TBtnEditC;
OurCoName: TBtnEditC;
WB_YarnQty: TEdit;
WB_YarnTotalLen: TEdit;
WB_Qty: TEdit;
WB_YarnLen: TEdit;
SizingAgentCost: TEdit;
WB_Qty_JSPDMS: TEdit;
WB_Qty_YJJZZS: TEdit;
WB_Qty_YJMJZGS: TEdit;
WB_Qty_YJMJZMS: TEdit;
WB_Len: TEdit;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure C_CodeKeyPress(Sender: TObject; var Key: Char);
procedure ConNoKeyPress(Sender: TObject; var Key: Char);
procedure MCTypeBtnUpClick(Sender: TObject);
procedure CustNameBtnUpClick(Sender: TObject);
procedure CustNameBtnDnClick(Sender: TObject);
procedure OurCoNameBtnUpClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
private
procedure InitData();
function SaveData(): Boolean;
{ Private declarations }
public
PState, FCopyInt: Integer;
FConNo, FTWPId, FSubId: string;
{ Public declarations }
end;
var
frmTatWBPlanInPut: TfrmTatWBPlanInPut;
newh: hwnd;
implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_YarnInfoSel;
{$R *.dfm}
procedure TfrmTatWBPlanInPut.TBCloseClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmTatWBPlanInPut.InitData();
var
PBNO, PBFlag: string;
begin
if PState = 1 then
begin
end;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_WB_Plan A where A.TWPId=''' + Trim(FTWPId) + '''');
Open;
end;
SCSHData(ADOQueryTemp, ScrollBox1, 0);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.* from Tat_WB_Plan_Yarn A ');
sql.Add(' where YRType=''大轴经丝'' and A.TWPId=''' + Trim(FTWPId) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_1);
SInitCDSData(ADOQueryTemp, CDS_1);
if FCopyInt = 1 then
begin
FConNo := '';
FTWPId := '';
FSubId := '';
end;
end;
procedure TfrmTatWBPlanInPut.FormShow(Sender: TObject);
begin
InitData();
end;
function TfrmTatWBPlanInPut.SaveData(): Boolean;
var
maxno, maxsubno, maxpbno, maxpzno, maxsjno: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
if Trim(FTWPId) = '' then
begin
if GetLSNo(ADOQueryCmd, maxno, 'SZ', 'Tat_WB_Plan', 4, 1) = False then
raise Exception.Create('生成流水号异常！');
end
else
begin
maxno := Trim(FTWPId);
end;
////////////////////////// 保存主表 //////////////////////////
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from Tat_WB_Plan where TWPId=''' + Trim(FTWPId) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(FTWPId) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
end;
FieldByName('TWPId').Value := Trim(maxno);
RTSetsavedata(ADOQueryCmd, 'Tat_WB_Plan', ScrollBox1, 0);
Post;
end;
////////////////////////// 保存主表 //////////////////////////
////////////////////////// 保存经丝配比表 //////////////////////////
with CDS_1 do
begin
First;
while not Eof do
begin
if Trim(CDS_1.fieldbyname('YRId').AsString) = '' then
begin
if GetLSNo(ADOQueryTemp, maxpbno, 'WY', 'Tat_WB_Plan_Yarn', 4, 1) = False then
raise Exception.Create('取配比子流水号失败！');
end
else
begin
maxpbno := Trim(CDS_1.fieldbyname('YRId').AsString);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_WB_Plan_Yarn where ');
sql.Add(' YRId=''' + Trim(maxpbno) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(CDS_1.fieldbyname('YRId').AsString) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
end;
FieldByName('YRType').Value := '大轴经丝';
FieldByName('TWPId').Value := Trim(maxno);
FieldByName('YRId').Value := Trim(maxpbno);
RTSetsavedataCDS(ADOQueryCmd, Tv2, CDS_1, 'Tat_WB_Plan_Yarn', 0);
Post;
end;
CDS_1.Edit;
CDS_1.FieldByName('TWPId').Value := Trim(maxno);
CDS_1.FieldByName('YRId').Value := Trim(maxpbno);
Next;
end;
end;
////////////////////////// 保存经丝配比表 //////////////////////////
ADOQueryCmd.Connection.CommitTrans;
FTWPId := Trim(maxno);
FSubId := Trim(maxsubno);
Result := True;
except
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmTatWBPlanInPut.TBSaveClick(Sender: TObject);
var
FReal: Double;
maxConNo: string;
begin
if Trim(CustName.Text) = '' then
begin
Application.MessageBox('客户不能为空!', '提示', 0);
Exit;
end;
if SaveData() then
begin
Application.MessageBox('保存成功！', '提示', 0);
ModalResult := 1;
end;
end;
procedure TfrmTatWBPlanInPut.ToolButton3Click(Sender: TObject);
begin
try
frmYarnInfoSel := TfrmYarnInfoSel.Create(Application);
with frmYarnInfoSel do
begin
if ShowModal = 1 then
begin
with self.CDS_1 do
begin
Append;
FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value;
FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').Value;
FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').Value;
FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value;
FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').Value;
FieldByName('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value;
FieldByName('Y_Ratio').Value := 0;
Post;
end;
end;
end;
finally
frmYarnInfoSel.Free;
end;
end;
procedure TfrmTatWBPlanInPut.ToolButton4Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
if Trim(CDS_1.fieldbyname('YRId').AsString) <> '' then
begin
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Tat_WB_Plan_Yarn where YRId=''' + Trim(CDS_1.fieldbyname('YRId').AsString) + '''');
ExecSQL;
end;
end;
CDS_1.Delete;
end;
procedure TfrmTatWBPlanInPut.OurCoNameBtnUpClick(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '我司';
if ShowModal = 1 then
begin
OurCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
// FtyCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
// FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmTatWBPlanInPut.C_CodeKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SelectNext(ActiveControl as TWinControl, True, True);
end;
end;
procedure TfrmTatWBPlanInPut.MCTypeBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TBtnEditC(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TBtnEditC(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTatWBPlanInPut.ConNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SelectNext(ActiveControl as TWinControl, True, True);
end;
end;
procedure TfrmTatWBPlanInPut.CustNameBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).TxtCode := '';
TBtnEditC(Sender).Text := '';
end;
procedure TfrmTatWBPlanInPut.CustNameBtnUpClick(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '客户';
if ShowModal = 1 then
begin
CustName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
CustName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
end.

36
E02梭织经轴仓库/WarpBeamStk.dproj.local
View File

@ -29,7 +29,7 @@
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10szKaiXiYa"/>
<File Path="..\..\D10SZKaiXiYa"/>
<File Path="..\A00通用方法"/>
<File Path="..\A00通用方法\AES"/>
<File Path="..\A00通用方法\AES\ElAES.pas"/>
@ -120,6 +120,14 @@
<File Path="U_TatWBCardInPutOld.dfm"/>
<File Path="U_TatWBOutputList1.pas"/>
<File Path="U_TatWBOutputList1.dfm"/>
<File Path="U_TatWBOutputList_CZ.pas"/>
<File Path="U_TatWBOutputList_CZ.dfm"/>
<File Path="U_TatWBOutputList_SZ.pas"/>
<File Path="U_TatWBOutputList_SZ.dfm"/>
<File Path="U_TatWBOutputList_XB.pas"/>
<File Path="U_TatWBOutputList_XB.dfm"/>
<File Path="U_TatWBOutputList_XZ.pas"/>
<File Path="U_TatWBOutputList_XZ.dfm"/>
<File Path="U_TatWBPlanCard.pas"/>
<File Path="U_TatWBPlanCard.dfm"/>
<File Path="U_WarpBeamInfoList.pas"/>
@ -130,33 +138,25 @@
<File Path="U_WarpBeamQianList.dfm"/>
<File Path="U_WarpBeamStkSel.pas"/>
<File Path="U_WarpBeamStkSel.dfm"/>
<File Path="U_WBSpecInPut.pas"/>
<File Path="U_WBSpecInPut.dfm"/>
<File Path="U_WBSpecList.pas"/>
<File Path="U_WBSpecList.dfm"/>
<File Path="U_WBTatPlanSel.pas"/>
<File Path="U_WBTatPlanSel.dfm"/>
<File Path="U_WBTypeSel.pas"/>
<File Path="U_WBTypeSel.dfm"/>
<File Path="U_WBSpecInPut.pas"/>
<File Path="U_WBSpecInPut.dfm"/>
<File Path="U_TatWBOutputList_SZ.pas"/>
<File Path="U_TatWBOutputList_SZ.dfm"/>
<File Path="U_TatWBOutputList_CZ.pas"/>
<File Path="U_TatWBOutputList_CZ.dfm"/>
<File Path="U_TatWBOutputList_XB.pas"/>
<File Path="U_TatWBOutputList_XB.dfm"/>
<File Path="U_TatWBOutputList_XZ.pas"/>
<File Path="U_TatWBOutputList_XZ.dfm"/>
</ProjectSortOrder>
<Transactions>
<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.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</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.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.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.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.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.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.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.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas</Transaction>
<Transaction>2025-02-28 19:52:48.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>2025-02-28 19:53:16.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.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.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.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.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
</Transactions>
</BorlandProject>

BIN
E02梭织经轴仓库/WarpBeamStk.identcache
View File

Binary file not shown.

BIN
E02梭织经轴仓库/testDll.identcache
View File

Binary file not shown.