Group_02/D10gmBitao
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

111

Browse Source
This commit is contained in:
“username” 2025-09-06 09:49:06 +08:00
parent 574f95ffd7
commit 4b1be71ae9
241 changed files with 273746 additions and 1090 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
A00通用窗体/U_ClothInfoSel.dfm
View File

@ -10,7 +10,6 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Font.Name = #23435#20307
Position = poScreenCenter
OnClose = FormClose
ExplicitTop = -3
ExplicitWidth = 1501
ExplicitHeight = 673
PixelsPerInch = 96
@ -224,7 +223,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Width = 80
end
object Tv1Column6: TcxGridDBColumn
Caption = #25552#33457
Caption = #33457#25968
DataBinding.FieldName = 'C_Figure'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@ -271,6 +270,30 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Options.Editing = False
Width = 90
end
object cxgrdbclmnTv1Column12: TcxGridDBColumn
Caption = #32463#32433#26448#36136
DataBinding.FieldName = 'C_LongitudeSpec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxgrdbclmnTv1Column13: TcxGridDBColumn
Caption = #32428#32433#26448#36136
DataBinding.FieldName = 'C_LatitudeSpec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxgrdbclmnTv1Column14: TcxGridDBColumn
Caption = #35774#35745#32428#23494
DataBinding.FieldName = 'C_CarLatitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

3
A00通用窗体/U_ClothInfoSel.pas
View File

@ -96,6 +96,9 @@ type
cxgrdbclmnTv1Column11: TcxGridDBColumn;
lbl3: TLabel;
C_Material: TEdit;
cxgrdbclmnTv1Column12: TcxGridDBColumn;
cxgrdbclmnTv1Column13: TcxGridDBColumn;
cxgrdbclmnTv1Column14: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);

BIN
A02基础产品管理/ClothInfo.identcache
View File

Binary file not shown.

54
A02基础产品管理/U_ClothInfo.dfm
View File

@ -52,16 +52,24 @@ inherited frmClothInfo: TfrmClothInfo
ImageIndex = 9
OnClick = TBAddClick
end
object ToolButton1: TToolButton
object btn1: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #26032#22686#26797#32455
ImageIndex = 9
OnClick = btn1Click
end
object ToolButton1: TToolButton
Left = 308
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 4
OnClick = ToolButton1Click
end
object TBCopy: TToolButton
Left = 284
Left = 379
Top = 0
AutoSize = True
Caption = #22797#21046
@ -69,7 +77,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = TBCopyClick
end
object TBEdit: TToolButton
Left = 355
Left = 450
Top = 0
AutoSize = True
Caption = #20462#25913
@ -77,7 +85,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = TBEditClick
end
object TBMLEdit: TToolButton
Left = 426
Left = 521
Top = 0
AutoSize = True
Caption = #30446#24405#20462#25913
@ -85,7 +93,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = TBMLEditClick
end
object TBDel: TToolButton
Left = 521
Left = 616
Top = 0
AutoSize = True
Caption = #21024#38500
@ -93,7 +101,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = TBDelClick
end
object ToolButton3: TToolButton
Left = 592
Left = 687
Top = 0
AutoSize = True
Caption = #26631#31614#25171#21360
@ -101,7 +109,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = ToolButton3Click
end
object TBExport: TToolButton
Left = 687
Left = 782
Top = 0
AutoSize = True
Caption = #23548#20986
@ -109,7 +117,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = TBExportClick
end
object TBUP: TToolButton
Left = 758
Left = 853
Top = 0
AutoSize = True
Caption = #22270#29255#19978#20256
@ -117,7 +125,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = TBUPClick
end
object ToolButton2: TToolButton
Left = 853
Left = 948
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -125,7 +133,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 948
Left = 1043
Top = 0
AutoSize = True
Caption = #20851#38381
@ -531,7 +539,7 @@ inherited frmClothInfo: TfrmClothInfo
Width = 200
end
object Tv1Column10: TcxGridDBColumn
Caption = #25552#33457
Caption = #33457#25968
DataBinding.FieldName = 'C_Figure'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@ -619,6 +627,30 @@ inherited frmClothInfo: TfrmClothInfo
Options.Editing = False
Width = 90
end
object cxgrdbclmnTv1Column16: TcxGridDBColumn
Caption = #35774#35745#32428#23494
DataBinding.FieldName = 'C_CarLatitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxgrdbclmnTv1Column17: TcxGridDBColumn
Caption = #32463#32433#26448#36136
DataBinding.FieldName = 'C_LongitudeSpec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxgrdbclmnTv1Column18: TcxGridDBColumn
Caption = #32428#32433#26448#36136
DataBinding.FieldName = 'C_LatitudeSpec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

30
A02基础产品管理/U_ClothInfo.pas
View File

@ -151,6 +151,10 @@ type
cxgrdbclmnTv1Column15: TcxGridDBColumn;
lbl3: TLabel;
C_Material: TEdit;
btn1: TToolButton;
cxgrdbclmnTv1Column16: TcxGridDBColumn;
cxgrdbclmnTv1Column17: TcxGridDBColumn;
cxgrdbclmnTv1Column18: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
@ -186,6 +190,7 @@ type
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
CurrentPage, RecordsNumber: Integer;
@ -213,7 +218,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ClothInfoInput, U_CloInfoFileUp, U_YPTypeHelpCP,
U_ZDYHelp, U_LabelPrint;
U_ZDYHelp, U_LabelPrint,U_TatInfoInput;
{$R *.dfm}
@ -777,6 +782,29 @@ begin
end;
end;
procedure TfrmClothInfo.btn1Click(Sender: TObject);
var
i: Integer;
FieldName: string;
begin
try
frmTatInfoInput := TfrmTatInfoInput.Create(Application);
with frmTatInfoInput do
begin
CopyInt := 0;
FBCIID := '';
FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
if ShowModal = 1 then
begin
Self.InitGrid();
end;
end;
finally
frmTatInfoInput.Free;
end;
end;
procedure TfrmClothInfo.Button1Click(Sender: TObject);
begin
if CurrentPage > 1 then

630
A02基础产品管理/U_TatInfoInput.dfm Normal file
View File

@ -0,0 +1,630 @@
object frmTatInfoInput: TfrmTatInfoInput
Left = 459
Top = 231
Anchors = []
Caption = #20135#21697#20449#24687#24405#20837
ClientHeight = 547
ClientWidth = 1198
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1198
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_ClothInfo.ImageList_new32
Images = DataLink_ClothInfo.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
Tag = 1
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = ToolButton1Click
end
object ToolButton6: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #38468#20214
ImageIndex = 22
OnClick = ToolButton6Click
end
object TBClose: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 38
Width = 1198
Height = 509
Align = alClient
AutoSize = True
BevelInner = bvNone
BevelOuter = bvNone
Color = clWhite
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 1
object Label1: TLabel
Left = 23
Top = 439
Width = 110
Height = 21
Caption = #20135#21697#32534#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label5: TLabel
Left = 33
Top = 67
Width = 110
Height = 21
Caption = #20135#21697#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 29
Top = 109
Width = 114
Height = 21
Caption = #38376' '#24133#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label22: TLabel
Left = 425
Top = 110
Width = 110
Height = 21
Caption = #25104#21697#20811#37325#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 65
Top = 405
Width = 51
Height = 16
Caption = #26465#30721#65306
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label6: TLabel
Left = 29
Top = 275
Width = 114
Height = 21
Caption = #32433' '#32447#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 423
Top = 69
Width = 112
Height = 21
Caption = #21518' '#22788' '#29702#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 421
Top = 151
Width = 114
Height = 21
Caption = #39068' '#33394#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 29
Top = 151
Width = 114
Height = 21
Caption = #25104' '#20998#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 29
Top = 317
Width = 114
Height = 21
Caption = #22791' '#27880#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 33
Top = 358
Width = 110
Height = 21
Caption = #22383#24067#20811#37325#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 421
Top = 192
Width = 110
Height = 21
Caption = #32463#32433#26448#36136#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 29
Top = 192
Width = 114
Height = 21
Caption = #33457' '#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object lbl1: TLabel
Left = 29
Top = 26
Width = 114
Height = 21
Caption = #23458' '#25143#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object lbl2: TLabel
Left = 425
Top = 28
Width = 110
Height = 21
Caption = #29289#26009#32534#30721#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label21: TLabel
Left = 29
Top = 233
Width = 110
Height = 21
Caption = #35774#35745#32428#23494#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label23: TLabel
Left = 421
Top = 233
Width = 110
Height = 21
Caption = #32428#32433#26448#36136#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object lbl3: TLabel
Left = 799
Top = 27
Width = 110
Height = 21
Caption = #29289#26009#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object C_Code: TEdit
Tag = 2
Left = 155
Top = 438
Width = 240
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
Visible = False
OnKeyPress = CYColorKeyPress
end
object C_Name: TEdit
Tag = 2
Left = 142
Top = 68
Width = 240
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnKeyPress = CYColorKeyPress
end
object C_Width: TBtnEditC
Tag = 2
Left = 142
Top = 108
Width = 240
Height = 30
Hint = 'CYMF/'#38376#24133
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnBtnUpClick = C_WidthBtnUpClick
OnBtnDnClick = C_WidthBtnDnClick
end
object C_GramWeight: TBtnEditC
Tag = 2
Left = 533
Top = 106
Width = 240
Height = 30
Hint = 'CYKZ/'#20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnBtnUpClick = C_WidthBtnUpClick
OnBtnDnClick = C_WidthBtnDnClick
end
object BCIID: TEdit
Left = 141
Top = 403
Width = 218
Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
Visible = False
end
object C_Spec: TBtnEditC
Tag = 2
Left = 141
Top = 272
Width = 632
Height = 30
Hint = 'C_Spec/'#32433#32447
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnBtnUpClick = C_WidthBtnUpClick
OnBtnDnClick = C_WidthBtnDnClick
end
object C_Deal: TBtnEditC
Tag = 2
Left = 533
Top = 65
Width = 240
Height = 30
Hint = 'C_Deal/'#21518#22788#29702
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnBtnUpClick = C_WidthBtnUpClick
OnBtnDnClick = C_WidthBtnDnClick
end
object C_Color: TBtnEditC
Tag = 2
Left = 533
Top = 147
Width = 240
Height = 30
Hint = 'CYYS/'#39068#33394
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnBtnUpClick = C_WidthBtnUpClick
OnBtnDnClick = C_WidthBtnDnClick
end
object C_Composition: TBtnEditC
Tag = 2
Left = 142
Top = 149
Width = 240
Height = 30
Hint = 'CYCF/'#25104#20998
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
OnBtnUpClick = C_WidthBtnUpClick
OnBtnDnClick = C_WidthBtnDnClick
end
object Note: TBtnEditC
Tag = 2
Left = 141
Top = 313
Width = 632
Height = 30
Hint = 'YPNote/'#22791#27880
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 9
OnBtnUpClick = C_WidthBtnUpClick
OnBtnDnClick = C_WidthBtnDnClick
end
object C_KnitGramWeight: TBtnEditC
Tag = 2
Left = 143
Top = 354
Width = 240
Height = 30
Hint = 'PBKZ/'#22383#24067#20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 10
OnBtnUpClick = C_WidthBtnUpClick
OnBtnDnClick = C_WidthBtnDnClick
end
object C_LongitudeSpec: TBtnEditC
Tag = 2
Left = 533
Top = 189
Width = 240
Height = 30
Hint = 'C_LongitudeSpec/'#32463#32433#26448#36136
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 11
OnBtnUpClick = C_WidthBtnUpClick
OnBtnDnClick = C_WidthBtnDnClick
end
object C_Figure: TBtnEditC
Tag = 2
Left = 142
Top = 192
Width = 240
Height = 30
Hint = 'C_Figure/'#33457#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 12
OnBtnUpClick = C_WidthBtnUpClick
OnBtnDnClick = C_WidthBtnDnClick
end
object C_KHName: TBtnEditC
Tag = 2
Left = 142
Top = 22
Width = 240
Height = 30
Hint = 'C_KHName/'#23458#25143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 13
OnBtnUpClick = C_KHNameBtnUpClick
OnBtnDnClick = C_WidthBtnDnClick
end
object C_KHCode: TEdit
Tag = 2
Left = 532
Top = 27
Width = 240
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 14
OnKeyPress = CYColorKeyPress
end
object C_CarLatitudeDensity: TBtnEditC
Tag = 2
Left = 142
Top = 231
Width = 240
Height = 30
Hint = 'C_CarLatitudeDensity/'#35774#35745#32428#23494
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 15
OnBtnUpClick = C_WidthBtnUpClick
OnBtnDnClick = C_WidthBtnDnClick
end
object C_LatitudeSpec: TBtnEditC
Tag = 2
Left = 533
Top = 230
Width = 240
Height = 30
Hint = 'C_LatitudeSpec/'#32428#32433#26448#36136
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 16
OnBtnUpClick = C_WidthBtnUpClick
OnBtnDnClick = C_WidthBtnDnClick
end
object C_Material: TEdit
Tag = 2
Left = 906
Top = 26
Width = 240
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 17
OnKeyPress = CYColorKeyPress
end
end
object ADOQueryMain: TADOQuery
Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 421
Top = 9
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_ClothInfo.ADOLink
Parameters = <>
Left = 505
Top = 9
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 613
Top = 17
end
end

425
A02基础产品管理/U_TatInfoInput.pas Normal file
View File

@ -0,0 +1,425 @@
unit U_TatInfoInput;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, ComCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit,
cxButtonEdit, StdCtrls, ExtCtrls, cxCurrencyEdit, BtnEdit, U_BaseList,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu;
type
TfrmTatInfoInput = class(TForm)
ToolBar1: TToolBar;
ToolButton1: TToolButton;
TBClose: TToolButton;
ADOQueryMain: TADOQuery;
ADOQueryCmd: TADOQuery;
ADOQueryTemp: TADOQuery;
ScrollBox1: TScrollBox;
Label1: TLabel;
Label5: TLabel;
Label15: TLabel;
Label22: TLabel;
Label3: TLabel;
C_Code: TEdit;
C_Name: TEdit;
C_Width: TBtnEditC;
C_GramWeight: TBtnEditC;
ToolButton6: TToolButton;
BCIID: TEdit;
Label6: TLabel;
C_Spec: TBtnEditC;
Label2: TLabel;
C_Deal: TBtnEditC;
Label4: TLabel;
C_Color: TBtnEditC;
Label7: TLabel;
C_Composition: TBtnEditC;
Label8: TLabel;
Note: TBtnEditC;
Label9: TLabel;
C_KnitGramWeight: TBtnEditC;
Label10: TLabel;
Label11: TLabel;
C_LongitudeSpec: TBtnEditC;
C_Figure: TBtnEditC;
lbl1: TLabel;
C_KHName: TBtnEditC;
C_KHCode: TEdit;
lbl2: TLabel;
Label21: TLabel;
Label23: TLabel;
C_CarLatitudeDensity: TBtnEditC;
C_LatitudeSpec: TBtnEditC;
lbl3: TLabel;
C_Material: TEdit;
procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure CYColorKeyPress(Sender: TObject; var Key: Char);
procedure CYKZExit(Sender: TObject);
procedure CYMFExit(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure CYJGGYBtnDnClick(Sender: TObject);
procedure C_WidthBtnDnClick(Sender: TObject);
procedure C_WidthBtnUpClick(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure C_KHNameBtnUpClick(Sender: TObject);
private
canshu1: string;
Fint: Integer;
procedure InitGrid();
function SaveData(): Boolean;
{ Private declarations }
public
FBCIID, FCTID: string;
CopyInt: Integer;
{ Public declarations }
end;
var
frmTatInfoInput: TfrmTatInfoInput;
implementation
uses
U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload, U_CompanySel;
{$R *.dfm}
procedure TfrmTatInfoInput.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
SQL.Add('select * from BS_Cloth_Info where BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
SCSHData(ADOQueryMain, ScrollBox1, 2);
SCSHData(ADOQueryMain, ScrollBox1, 0);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmTatInfoInput.FormShow(Sender: TObject);
begin
InitGrid();
if CopyInt = 1 then
begin
FBCIID := '';
BCIID.text := '';
C_Code.text := '';
C_Spec.text := '';
end;
// if C_Code.text = '' then
// begin
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add(' exec P_YP_Get_CPBH ');
// sql.Add('@CTID=' + quotedstr(Trim(FCTID)));
//
// Open;
// end;
// end;
// if trim(C_Code.Text) = '' then
// begin
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add(' exec P_YP_Get_No @Str=''CP'' ');
// Open;
// end;
// C_Code.Text := trim(ADOQueryTemp.FieldByName('NewC_Code').asstring);
// end;
// if FCPName = '针织' then
// begin
// CYPUnit.text := 'KG';
// end;
// if FCPName = '梭织' then
// begin
// CYPUnit.text := 'M';
// end;
end;
procedure TfrmTatInfoInput.TBCloseClick(Sender: TObject);
begin
Close;
end;
function TfrmTatInfoInput.SaveData(): Boolean;
var
maxId, maxno: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
if Trim(FBCIID) = '' then
begin
if GetLSNo(ADOQueryCmd, maxId, 'Y', 'BS_Cloth_Info', 4, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！', '提示', 0);
Exit;
end;
BCIID.Text := trim(maxId);
end
else
begin
maxId := Trim(FBCIID);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from BS_Cloth_Info where BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(FBCIID) = '' then
begin
Append;
FieldByName('CTID').Value := Trim(FCTID);
FieldByName('FILLID').Value := Trim(DCode);
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('BCIID').Value := Trim(maxId);
if trim(C_Code.Text) = '' then
C_Code.Text := Trim(maxId);
RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', ScrollBox1, 2);
Post;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select count(*) as AA from BS_Cloth_Info where C_Code=''' + Trim(C_Code.Text) + '''');
// ShowMessage(sql.text);
Open;
if FieldByName('AA').AsInteger > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('编号重复！', '提示', 0);
Exit;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
FBCIID := maxId;
Result := True;
except
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败!', '提示', 0);
end;
end;
procedure TfrmTatInfoInput.CYJGGYBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
end;
procedure TfrmTatInfoInput.ToolButton1Click(Sender: TObject);
var
MC_Code: string;
begin
if C_Name.Text = '' then
begin
Application.MessageBox('产品名称不能为空！', '提示', 0);
Exit;
end;
if trim(C_Code.Text) = '' then
begin
if GetLSNo(ADOQueryCmd, MC_Code, 'C', 'BS_Cloth_Info', 4, 0) = False then
begin
Application.MessageBox('取最成品编号失败!', '提示', 0);
Exit;
end;
C_Code.Text := MC_Code;
end;
//查询是否选取这个产品的合同，如果有，把没下过生产单的合同的对应信息修改掉
// with ADOQueryTemp do
// begin
// Close;
// SQL.Clear;
// sql.Add(' select A.*,B.* from BS_Contract_Sub A ');
// sql.Add(' INNER JOIN BS_Contract_Main B on A.ConMId =B.ConMId ');
// sql.Add(' where A.C_Code =''' + Trim(C_Code.text) + '''');
// sql.Add(' and not EXISTS (select X.ConSId from Knit_Plan_Sub X where A.ConSId =X.ConSId) ');
// Open;
// end;
//
// if ADOQueryTemp.IsEmpty = false then
// begin
// if Application.MessageBox('将同步修改合同信息，是否保存？', '提示', 32 + 4) <> IDYES then
// begin
// Exit;
// end
// else
// begin
// with ADOQueryTemp do
// begin
// Close;
// SQL.Clear;
// sql.Add(' update BS_Contract_Sub set C_Deal=''' + trim(C_Deal.text) + '''');
// sql.Add(' ,C_Name=''' + trim(C_Name.text) + '''');
// sql.Add(' ,C_Width=''' + trim(C_Width.text) + '''');
// sql.Add(' ,C_GramWeight=''' + trim(C_GramWeight.text) + '''');
// sql.Add(' ,C_Composition=''' + trim(C_Composition.text) + '''');
// sql.Add(' ,C_Color=''' + trim(C_Color.text) + '''');
// sql.Add(' ,C_Figure=''' + trim(C_Figure.text) + '''');
// sql.Add(' ,C_Yarn=''' + trim(C_Yarn.text) + '''');
// sql.Add(' ,C_Spec=''' + trim(C_Spec.text) + '''');
// sql.Add(' ,C_KnitGramWeight=''' + trim(C_KnitGramWeight.text) + '''');
// sql.Add(' ,ConSNote=''' + trim(Note.text) + '''');
// sql.Add(' from BS_Contract_Sub A');
// sql.Add(' where C_Code =''' + Trim(C_Code.text) + '''');
// sql.Add(' and not EXISTS (select X.ConSId from Knit_Plan_Sub X where A.ConSId =X.ConSId) ');
//// ShowMessage(sql.text);
// ExecSQL;
// end;
// end;
//
// end;
if SaveData() then
begin
Application.MessageBox('保存成功！', '提示', 0);
ModalResult := 1;
end;
end;
procedure TfrmTatInfoInput.C_KHNameBtnUpClick(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '客户';
if ShowModal = 1 then
begin
C_KHName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmTatInfoInput.CYColorKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SelectNext(ActiveControl as TWinControl, True, True);
end;
end;
procedure TfrmTatInfoInput.CYKZExit(Sender: TObject);
begin
// if pos('G/M2', trim(CYKZ.Text)) = 0 then
// begin
// if pos('G/M', trim(CYKZ.Text)) = 0 then
// begin
// CYKZ.Text := trim(CYKZ.Text) + 'G/M2';
// end;
// end;
end;
procedure TfrmTatInfoInput.C_WidthBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmTatInfoInput.C_WidthBtnUpClick(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;
procedure TfrmTatInfoInput.CYMFExit(Sender: TObject);
begin
// if pos('"', trim(CYMF.Text)) = 0 then
// begin
// if pos('CM', trim(CYMF.Text)) = 0 then
// CYMF.Text := trim(CYMF.Text) + 'CM';
// end;
end;
procedure TfrmTatInfoInput.FormCreate(Sender: TObject);
begin
// LaYangDate.DateTime := SGetServerDateTime(ADOQueryTemp);
end;
procedure TfrmTatInfoInput.ToolButton6Click(Sender: TObject);
begin
if trim(C_Code.Text) = '' then
Exit;
try
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
with frmAttachmentUpload do
begin
FEditAuthority := True;
fkeyNO := trim(C_Code.Text);
fType := '成品档案';
if ShowModal = 1 then
begin
end;
end;
finally
frmAttachmentUpload.Free;
end;
end;
end.

5
A05基础资料管理/BaseInfo.dpr
View File

@ -20,11 +20,12 @@ uses
U_globalVar in '..\..\..\public10\design\U_globalVar.pas',
U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas',
U_RTFun in '..\..\..\public10\ThreeFun\Fun\U_RTFun.pas',
U_MachineManage in 'U_MachineManage.pas' {frmMachineManage},
U_PositionList in 'U_PositionList.pas' {frmPositionList},
U_WarpBeamManage in 'U_WarpBeamManage.pas' {frmWarpBeamManage},
U_TrayManage in 'U_TrayManage.pas' {frmTrayManage},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule};
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet};
{$R *.res}

14
A05基础资料管理/BaseInfo.dproj
View File

@ -123,7 +123,7 @@
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\A05基础资料管理\testDll.exe</Debugger_HostApplication>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10gmBitao\A05基础资料管理\testDll.exe</Debugger_HostApplication>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
</PropertyGroup>
<ItemGroup>
@ -161,10 +161,6 @@
<DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/>
<DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
<DCCReference Include="U_MachineManage.pas">
<Form>frmMachineManage</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_PositionList.pas">
<Form>frmPositionList</Form>
<FormType>dfm</FormType>
@ -182,6 +178,14 @@
<FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_LabelPrint.pas">
<Form>frmLabelPrint</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_LabelMapSet.pas">
<Form>frmLabelMapSet</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

8
A05基础资料管理/BaseInfo.dproj.local
View File

@ -1,10 +1,14 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.471,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.471,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.755,=D:\Dp10Repo\项目代码\D10gmBitao\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.179,=D:\Dp10Repo\项目代码\D10gmBitao\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.397,D:\Dp10Repo\项目代码\D10gmBitao\A05基础资料管理\U_MachineManage.pas=D:\Dp10Repo\项目代码\D10gmBitao\A05基础资料管理\U_FrameManage.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.397,D:\Dp10Repo\项目代码\D10gmBitao\A05基础资料管理\U_MachineManage.dfm=D:\Dp10Repo\项目代码\D10gmBitao\A05基础资料管理\U_FrameManage.dfm</Transaction>
</Transactions>
</BorlandProject>

BIN
A05基础资料管理/BaseInfo.identcache
View File

Binary file not shown.

5
A05基础资料管理/BaseInfo.skincfg Normal file
View File

@ -0,0 +1,5 @@
[ExpressSkins]
Default=1
ShowNotifications=1
Enabled=1
dxSkinsDefaultPainters=1

300
A05基础资料管理/U_FrameManage.dfm Normal file
View File

@ -0,0 +1,300 @@
inherited frmFrameManage: TfrmFrameManage
Left = 297
Top = 109
Caption = #36710#26550#31649#29702
ClientHeight = 667
ClientWidth = 1107
KeyPreview = True
ExplicitWidth = 1123
ExplicitHeight = 706
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1107
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_BaseInfo.ImageList_new32
Images = DataLink_BaseInfo.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object ToolButton2: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
Visible = False
OnClick = ToolButton2Click
end
object ToolButton6: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
OnClick = ToolButton6Click
end
object ToolButton4: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton5Click
end
object ToolButton3: TToolButton
Left = 355
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = ToolButton3Click
end
object ToolButton1: TToolButton
Left = 426
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 497
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object cxGrid2: TcxGrid [1]
Left = 0
Top = 96
Width = 1107
Height = 571
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_HZ
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Footer = DataLink_BaseInfo.Default
Styles.Header = DataLink_BaseInfo.Default
object v2Column1: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
end
object v2Column12: TcxGridDBColumn
Caption = #36710#26550#21495
DataBinding.FieldName = 'MCNO'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 149
end
object v2Column8: TcxGridDBColumn
Caption = #36710#26550#31867#22411
DataBinding.FieldName = 'MCType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 180
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
object Panel1: TPanel [2]
Left = 0
Top = 38
Width = 1107
Height = 58
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 66
Top = 20
Width = 36
Height = 12
Caption = #36710#26550#21495
end
object MCNO: TEdit
Tag = 2
Left = 127
Top = 16
Width = 89
Height = 20
TabOrder = 0
OnChange = CustomerChange
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_BaseInfo.ADOLink
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_BaseInfo.ADOLink
Left = 153
Top = 129
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_BaseInfo.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 299
Top = 209
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_BaseInfo.ADOLink
Parameters = <>
Left = 261
Top = 209
end
object ADOQueryMain: TADOQuery
Connection = DataLink_BaseInfo.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 229
Top = 209
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDB_Main
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 355
Top = 344
ReportData = {}
end
object RMDB_Main: TRMDBDataSet
Visible = True
DataSet = ADOQueryPrt
Left = 288
Top = 344
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 520
Top = 264
end
object DS_HZ: TDataSource
DataSet = CDS_HZ
Left = 283
Top = 259
end
object CDS_HZ: TClientDataSet
Aggregates = <>
Params = <>
Left = 384
Top = 208
end
object PopupMenu1: TPopupMenu
Left = 192
Top = 240
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
object RMXLSExport2: TRMXLSExport
ShowAfterExport = False
ExportPrecision = 1
PagesOfSheet = 1
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 420
Top = 344
end
object ADOQueryPrt: TADOQuery
Connection = DataLink_BaseInfo.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 229
Top = 345
end
end

480
A05基础资料管理/U_FrameManage.pas Normal file
View File

@ -0,0 +1,480 @@
unit U_FrameManage;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
dxScrollbarAnnotations;
type
TfrmFrameManage = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ToolButton2: TToolButton;
ADOQueryMain: TADOQuery;
ToolButton1: TToolButton;
RM1: TRMGridReport;
RMDB_Main: TRMDBDataSet;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Panel1: TPanel;
MCNO: TEdit;
RMXLSExport2: TRMXLSExport;
v2Column8: TcxGridDBColumn;
Label1: TLabel;
v2Column12: TcxGridDBColumn;
ToolButton3: TToolButton;
ADOQueryPrt: TADOQuery;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
v2Column1: TcxGridDBColumn;
ToolButton6: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure CustomerChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure v2Column8PropertiesEditValueChanged(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure Tv2Column1PropertiesChange(Sender: TObject);
private
{ Private declarations }
procedure PrintReport(FZDYNo: string);
procedure InitGrid();
procedure EditValueT();
procedure EditValueF();
public
fFlag: integer;
{ Public declarations }
RKFlag, FCYID, fmanage: string;
end;
var
frmFrameManage: TfrmFrameManage;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint;
{$R *.dfm}
procedure TfrmFrameManage.PrintReport(FZDYNo: string);
var
fPrintFile, FFCYID: string;
i, j: Integer;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
begin
if CDS_HZ.IsEmpty then
Exit;
ExportFtErpFile('机台标签.rmf', ADOQueryTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\机台标签.rmf';
with ADOQueryPrt do
begin
close;
sql.Clear;
sql.Add(' select * from BS_Frame where MCID=''' + Trim(FZDYNo) + '''');
open;
end;
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(FZDYNo);
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath) then
DeleteFile(fImagePath);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
except
CDS_HZ.EnableControls;
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
exit;
end;
RMVariables['QRBARCODE'] := fImagePath;
if FileExists(fPrintFile) then
begin
RM1.LoadFromFile(fPrintFile);
RM1.PrintReport;
// RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('没有找' + fPrintFile + '!'), '提示', 0);
Exit;
end;
end;
procedure TfrmFrameManage.InitGrid();
begin
MCNO.SetFocus;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add(' select A.* from BS_Frame A order by MCNO ');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_HZ);
SInitCDSData(ADOQueryMain, CDS_HZ);
finally
ADOQueryMain.EnableControls;
ToolButton2.Click;
end;
EditValueF();
end;
procedure TfrmFrameManage.FormDestroy(Sender: TObject);
begin
inherited;
frmFrameManage := nil;
end;
procedure TfrmFrameManage.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmFrameManage.TBCloseClick(Sender: TObject);
begin
WriteCxGrid(Trim(Self.Caption), Tv2, '机台管理');
Close;
end;
procedure TfrmFrameManage.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(Trim(Self.Caption), Tv2, '机台管理');
// Enddate.DateTime:=SGetServerDate(ADOQueryTemp);
// begdate.DateTime:=Enddate.DateTime-30;
InitGrid();
end;
procedure TfrmFrameManage.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmFrameManage.ToolButton2Click(Sender: TObject);
var
sql: string;
begin
if ADOQueryMain.Active then
begin
sql := SGetFilters(Panel1, 1, 2);
SDofilter(ADOQueryMain, sql);
SCreateCDS(ADOQueryMain, CDS_HZ);
SInitCDSData(ADOQueryMain, CDS_HZ);
end;
end;
procedure TfrmFrameManage.ToolButton1Click(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
// SelExportData(Tv2, ADOQueryMain, trim(Self.Caption));
TcxGridToExcel(self.Caption, cxgrid2);
end;
procedure TfrmFrameManage.cxTabControl1Change(Sender: TObject);
begin
InitGrid;
end;
procedure TfrmFrameManage.N1Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
exit;
SelOKNo(CDS_HZ, True);
end;
procedure TfrmFrameManage.N2Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
exit;
SelOKNo(CDS_HZ, False);
end;
procedure TfrmFrameManage.CustomerChange(Sender: TObject);
begin
ToolButton2.Click;
end;
procedure TfrmFrameManage.FormCreate(Sender: TObject);
begin
inherited;
fmanage := Trim(DParameters1);
end;
procedure TfrmFrameManage.v2Column8PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
try
ADOQueryCmd.Connection.BeginTrans;
with CDS_HZ do
begin
Edit;
FieldByName(FFieldName).Value := Trim(mvalue);
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate BS_Frame ');
sql.Add(' Set ' + FFieldName + '=''' + Trim(mvalue) + '''');
sql.Add(' , Editer=''' + Trim(DName) + '''');
sql.Add(' , Edittime=getdate()');
sql.Add(' where MCID=' + quotedstr(CDS_HZ.fieldbyname('MCID').AsString));
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
tv2.Controller.EditingController.ShowEdit();
except
tv2.Controller.EditingController.ShowEdit();
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！', '提示', 0);
end
end;
procedure TfrmFrameManage.ToolButton3Click(Sender: TObject);
var
MBCIOID: string;
begin
if CDS_HZ.IsEmpty then
Exit;
if CDS_HZ.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
MBCIOID := '';
CDS_HZ.DisableControls;
with CDS_HZ do
begin
First;
while CDS_HZ.Locate('SSel', True, []) do
begin
MBCIOID := MBCIOID + ',' + (Trim(CDS_HZ.fieldbyname('MCID').AsString));
Edit;
FieldByName('SSel').Value := False;
Post;
end;
end;
CDS_HZ.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'FrameManage';
FFiltration1 := MBCIOID;
if ShowModal = 1 then
begin
// Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
// if CDS_HZ.IsEmpty then
// Exit;
// if CDS_HZ.Locate('SSel', True, []) = False then
// begin
// Application.MessageBox('请先选择数据！', '提示', 0);
// Exit;
// end;
//
// with CDS_HZ do
// begin
// while CDS_HZ.Locate('SSel', True, []) = True do
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update BS_Frame set EditFlag=0 where MCID=' + QuotedStr(CDS_HZ.FieldByName('MCID').AsString));
// ExecSQL;
// end;
// CDS_HZ.Edit;
// CDS_HZ.FieldByName('SSel').Value := False;
// CDS_HZ.Post;
// PrintReport(Trim(CDS_HZ.fieldbyname('MCID').AsString));
// Next;
// end;
//
// end;
end;
procedure TfrmFrameManage.ToolButton4Click(Sender: TObject);
var
maxId: string;
begin
MCNO.SetFocus;
if GetLSNo(ADOQueryCmd, maxId, 'CJ', 'BS_Frame', 4, 1) = False then
begin
Application.MessageBox('取最大号失败！', '提示', 0);
Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('insert into BS_Frame(MCID,Filler) values(' + quotedstr(maxId) + ',' + quotedstr(Trim(dname)) + ')');
ExecSQL;
end;
InitGrid();
EditValueT();
end;
procedure TfrmFrameManage.ToolButton5Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
Exit;
if CDS_HZ.Locate('SSel', True, []) = False then
begin
Application.MessageBox('请先选择数据！', '提示', 0);
Exit;
end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with CDS_HZ do
begin
while not Eof do
begin
if CDS_HZ.Locate('SSel', True, []) = True then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete BS_Frame where MCID=' + QuotedStr(CDS_HZ.FieldByName('MCID').AsString));
ExecSQL;
end;
end;
CDS_HZ.Edit;
CDS_HZ.FieldByName('SSel').Value := False;
CDS_HZ.Post;
Next;
end;
end;
InitGrid();
end;
procedure TfrmFrameManage.ToolButton6Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
Exit;
EditValueT();
end;
procedure TfrmFrameManage.EditValueT();
var
i: Integer;
begin
for i := 0 to tv2.ColumnCount - 1 do
begin
if uppercase(tv2.Columns[i].DataBinding.FieldName) <> 'SSEL' then
tv2.Columns[i].Options.Editing := True;
end;
end;
procedure TfrmFrameManage.EditValueF();
var
i: Integer;
begin
for i := 0 to tv2.ColumnCount - 1 do
begin
if uppercase(tv2.Columns[i].DataBinding.FieldName) <> 'SSEL' then
tv2.Columns[i].Options.Editing := false;
end;
end;
procedure TfrmFrameManage.Tv2Column1PropertiesChange(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
try
ADOQueryCmd.Connection.BeginTrans;
with CDS_HZ do
begin
Edit;
FieldByName(FFieldName).Value := Trim(mvalue);
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate BS_Frame ');
sql.Add(' Set ' + FFieldName + '=''' + Trim(mvalue) + '''');
sql.Add(' , Editer=''' + Trim(DName) + '''');
sql.Add(' , Edittime=getdate()');
sql.Add(' where MCID=' + quotedstr(CDS_HZ.fieldbyname('MCID').AsString));
// ShowMessage(sql.text);
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
tv2.Controller.EditingController.ShowEdit();
except
tv2.Controller.EditingController.ShowEdit();
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！', '提示', 0);
end
end;
end.

17
A05基础资料管理/U_GetDllForm.pas
View File

@ -13,7 +13,8 @@ function ConnData(): Boolean;
implementation
uses
U_DataLink, U_MachineManage, U_PositionList, U_WarpBeamManage, U_TrayManage;
U_DataLink, U_MachineManage, U_PositionList, U_WarpBeamManage, U_TrayManage,
U_FrameManage;
/////////////////////////////////////////////////////////////////
// ¹¦ÄÜ˵Ã÷:È¡DllÖеô°Ìå //
@ -67,7 +68,7 @@ begin
if trim(DataBaseStr) = '' then
begin
server := '101.132.143.144,7781';
dtbase := 'xinhuahuaqiandata';
dtbase := 'bitaodata';
user := 'rtsa';
pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
@ -136,7 +137,17 @@ begin
mnewHandle := Handle;
end;
end;
113: //³µ¼Ü¹ÜÀí
begin
with TfrmFrameManage.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;
{

BIN
A05基础资料管理/testDll.identcache
View File

Binary file not shown.

3
B02基础纱线仓库/U_YarnInEdit.pas
View File

@ -220,13 +220,14 @@ begin
SQL.Add('GROUP BY FromCoName,StkCoName,Brand,Y_Name,QtyUnit,StkPosition');
SQL.Add('HAVING sum(ioqtyflag*qty)<0');
sql.Add('order by StkCoName,Brand,Y_Name');
// showmessage(sql.Text);
// sql.Add('select * from BS_Yarn_IO where BYIOID=''' + Trim(CDS_Sub.fieldbyname('STKID').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty=False then
// if ADOQueryTemp.FieldByName('StkPiece').Value < 0 then
raise Exception.Create('出库数量大于入库数量不能保存！');
// raise Exception.Create('出库数量大于入库数量不能保存！');
with ADOQueryCmd do
begin

60
B02基础纱线仓库/U_YarnOutEdit.pas
View File

@ -460,39 +460,39 @@ begin
frmYarnStkHZSel.CDS_Main.DisableControls;
with frmYarnStkHZSel.CDS_Main do
begin
// First;
// while frmYarnStkHZSel.CDS_Main.Locate('SSel', True, []) do
// begin
if Self.CDS_Sub.IsEmpty = False then
First;
while frmYarnStkHZSel.CDS_Main.Locate('SSel', True, []) do
begin
CopyAddRowCDS(CDS_Sub);
end
else
begin
with CDS_Sub do
if Self.CDS_Sub.IsEmpty = False then
begin
Append;
FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('IOType').Value := '车间领用';
FieldByName('ToCoNo').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('StkCoNo').Value; //出到单位
FieldByName('ToCoName').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('StkCoName').Value;
Post;
CopyAddRowCDS(CDS_Sub);
end
else
begin
with CDS_Sub do
begin
Append;
FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('IOType').Value := '车间领用';
FieldByName('ToCoNo').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('StkCoNo').Value; //出到单位
FieldByName('ToCoName').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('StkCoName').Value;
Post;
end;
end;
end;
with Self.CDS_Sub do
begin
edit;
with Self.CDS_Sub do
begin
edit;
// FieldByName('IOType').Value := '³µ¼äÁìÓÃ';
FieldByName('FromCoNo').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('FromCoNo').Value; //来自单位
FieldByName('FromCoName').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('FromCoName').Value;
FieldByName('StkCoNo').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('StkCoNo').Value; //存放单位
FieldByName('StkCoName').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('StkCoName').Value;
FieldByName('FromCoNo').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('FromCoNo').Value; //来自单位
FieldByName('FromCoName').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('FromCoName').Value;
FieldByName('StkCoNo').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('StkCoNo').Value; //存放单位
FieldByName('StkCoName').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('StkCoName').Value;
// FieldByName('ToCoNo').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('StkCoNo').Value; //³öµ½µ¥Î»
// FieldByName('ToCoName').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('StkCoName').Value;
//
FieldByName('Brand').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('Brand').Value;
FieldByName('Y_Name').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('Y_Name').Value;
FieldByName('Brand').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('Brand').Value;
FieldByName('Y_Name').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('Y_Name').Value;
// FieldByName('Y_Spec').Value := frmYarnStkSel.CDS_Main.fieldbyname('Y_Spec').Value;
// FieldByName('Y_Composition').Value := frmYarnStkSel.CDS_Main.fieldbyname('Y_Composition').Value;
// FieldByName('Y_Color').Value := frmYarnStkSel.CDS_Main.fieldbyname('Y_Color').Value;
@ -501,16 +501,16 @@ begin
//
// FieldByName('Piece').Value := frmYarnStkSel.CDS_Main.fieldbyname('STKPiece').Value;
// FieldByName('PieceQty').Value := frmYarnStkSel.CDS_Main.fieldbyname('PieceQty').Value;
FieldByName('Qty').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('STKQTY').Value;
FieldByName('Qty').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('STKQTY').Value;
// FieldByName('Price').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('Price').Value;
//
// FieldByName('Amount').Value := RoundFloat(frmYarnStkHZSel.CDS_Main.fieldbyname('Price').Value * frmYarnStkHZSel.CDS_Main.fieldbyname('STKQTY').Value, 2);
FieldByName('QtyUnit').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('QtyUnit').Value;
FieldByName('StkPosition').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('StkPosition').Value;
FieldByName('QtyUnit').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('QtyUnit').Value;
FieldByName('StkPosition').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('StkPosition').Value;
end;
frmYarnStkHZSel.CDS_Main.Delete;
end;
frmYarnStkHZSel.CDS_Main.Delete;
end;
// end;
frmYarnStkHZSel.CDS_Main.EnableControls;
end;
end;

26
D01针织生产计划/U_GetDllForm.pas
View File

@ -16,7 +16,7 @@ implementation
uses
U_DataLink, U_iniParam, U_KnitPlanList, U_KnitPlanMach, U_KnitPlanCard,
U_PlanCardOFF, U_LCKQuery, U_KnitPlanCardOFF;
U_PlanCardOFF, U_LCKQuery, U_KnitPlanCardOFF, U_TatPlanList,U_TatPlanCard;
/////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 //
@ -124,7 +124,7 @@ begin
//调用子模块窗口
case FormID of
111: //坯布生产计划单
111: //针织生产计划单
begin
with TfrmKnitPlanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
@ -135,6 +135,17 @@ begin
mnewHandle := Handle;
end;
end;
112: //梭织生产计划单
begin
with TfrmTatPlanList.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;
211: //布票管理
begin
@ -147,6 +158,17 @@ begin
mnewHandle := Handle;
end;
end;
212: //梭织布票管理
begin
with TfrmTatPlanCard.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;
221: //流程卡查询
begin

10
D01针织生产计划/U_KnitCardInPut.pas
View File

@ -181,11 +181,11 @@ begin
sql.Add(' ,ZWJYPS=(select count(*) from Knit_Plan_Card X where X.CarNo =AA.MCNO and isnull(Status,''0'')=''0'') ');
sql.Add(' ,BWJYPS=(select count(*) from Knit_Plan_Card X where X.CarNo =AA.MCNO and isnull(Status,''0'')=''0'' and MainID=''' + trim(FMainID) + ''')');
sql.Add(' from (select A.MCNO,ISAP=''0'' from BS_Machine A where EXISTS (select CarNo from Knit_Plan_Card X where X.CarNo = A.MCNO and X.Status <> ''-1'' and X.MainID=''' + trim(FMainID) + ''')');
sql.Add(' from (select A.MCNO,A.MCType,ISAP=''0'' from BS_Machine A where EXISTS (select CarNo from Knit_Plan_Card X where X.CarNo = A.MCNO and X.Status <> ''-1'' and X.MainID=''' + trim(FMainID) + ''')');
sql.Add(' UNION ');
sql.Add(' select A.MCNO,ISAP=''1'' from BS_Machine A where not EXISTS (select CarNo from Knit_Plan_Card X where X.CarNo = A.MCNO and X.Status <> ''-1'' and X.MainID=''' + trim(FMainID) + ''')');
sql.Add(' ) AA Order BY ISAP,MCNO');
sql.Add(' select A.MCNO,A.MCType,ISAP=''1'' from BS_Machine A where not EXISTS (select CarNo from Knit_Plan_Card X where X.CarNo = A.MCNO and X.Status <> ''-1'' and X.MainID=''' + trim(FMainID) + ''')');
sql.Add(' ) AA where MCType = ''ÕëÖ¯'' Order BY ISAP,MCNO');
// showmessage(sql.Text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
@ -212,7 +212,7 @@ begin
sql.Add(' and isnull(X.JXPerson,'''') = isnull(A.JXPerson,'''') and isnull(X.BatchNo,'''') = isnull(A.BatchNo,'''') )');
sql.Add(' from Knit_Plan_Card A where MainId =''' + trim(FMainId) + '''');
sql.Add(' and A.Status <> ''-1'' GROUP BY CarNo,JHSL,isnull(JXPerson,''''),isnull(BatchNo,'''') ');
//ShowMessage(sql.text);
// ShowMessage(sql.text);
Open;
end;

2
D01针织生产计划/U_KnitPlanCard.pas
View File

@ -159,7 +159,7 @@ begin
sql.Add(' from Knit_Plan_Card A ');
sql.Add(' inner join knit_Plan_Sub C on A.SubId=C.SubId');
sql.Add(' inner join knit_Plan_Main D on A.MainId=D.MainId');
sql.Add(' where A.Status = ''0'' ');
sql.Add(' where isnull(D.PlanType,'''') <> ''ËóÖ¯'' and A.Status = ''0'' ');
case cxTabControl1.TabIndex of
0:
begin

50
D01针织生产计划/U_KnitPlanCardOFF.dfm
View File

@ -63,6 +63,7 @@ inherited frmKnitPlanCardOFF: TfrmKnitPlanCardOFF
AutoSize = True
Caption = #35774#32622#21333#20215
ImageIndex = 3
Visible = False
OnClick = ToolButton5Click
end
object ToolButton3: TToolButton
@ -163,7 +164,7 @@ inherited frmKnitPlanCardOFF: TfrmKnitPlanCardOFF
Width = 80
Height = 20
TabOrder = 0
OnChange = ConNoChange
OnKeyPress = C_NameKeyPress
end
object CarNo: TEdit
Tag = 1
@ -172,7 +173,7 @@ inherited frmKnitPlanCardOFF: TfrmKnitPlanCardOFF
Width = 80
Height = 20
TabOrder = 3
OnChange = ConNoChange
OnKeyPress = C_NameKeyPress
end
object C_Name: TEdit
Tag = 2
@ -181,7 +182,7 @@ inherited frmKnitPlanCardOFF: TfrmKnitPlanCardOFF
Width = 100
Height = 20
TabOrder = 1
OnChange = ConNoChange
OnKeyPress = C_NameKeyPress
end
object C_Code: TEdit
Tag = 2
@ -190,7 +191,7 @@ inherited frmKnitPlanCardOFF: TfrmKnitPlanCardOFF
Width = 100
Height = 20
TabOrder = 2
OnChange = ConNoChange
OnKeyPress = C_NameKeyPress
end
object OrderNo: TEdit
Tag = 2
@ -199,7 +200,7 @@ inherited frmKnitPlanCardOFF: TfrmKnitPlanCardOFF
Width = 80
Height = 20
TabOrder = 4
OnChange = ConNoChange
OnKeyPress = C_NameKeyPress
end
object BatchNo: TEdit
Tag = 1
@ -208,7 +209,7 @@ inherited frmKnitPlanCardOFF: TfrmKnitPlanCardOFF
Width = 80
Height = 20
TabOrder = 5
OnChange = ConNoChange
OnKeyPress = C_NameKeyPress
end
object BegDate: TDateTimePicker
Left = 69
@ -239,7 +240,6 @@ inherited frmKnitPlanCardOFF: TfrmKnitPlanCardOFF
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 165
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -262,6 +262,10 @@ inherited frmKnitPlanCardOFF: TfrmKnitPlanCardOFF
end
item
Kind = skCount
end
item
Kind = skCount
Column = Tv1Column7
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -434,6 +438,14 @@ inherited frmKnitPlanCardOFF: TfrmKnitPlanCardOFF
Options.Editing = False
Width = 66
end
object Tv1Column7: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'PCNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column1: TcxGridDBColumn
Caption = #26426#21488#21495
DataBinding.FieldName = 'CarNo'
@ -458,14 +470,6 @@ inherited frmKnitPlanCardOFF: TfrmKnitPlanCardOFF
Options.Editing = False
Width = 66
end
object Tv1Column7: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'PCNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column3: TcxGridDBColumn
Caption = #26465#30721
DataBinding.FieldName = 'PCID'
@ -474,20 +478,6 @@ inherited frmKnitPlanCardOFF: TfrmKnitPlanCardOFF
Options.Editing = False
Width = 66
end
object Tv1Column4: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column5: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'money'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 68
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv1
@ -509,7 +499,7 @@ inherited frmKnitPlanCardOFF: TfrmKnitPlanCardOFF
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
Properties.TabIndex = 2
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#19979#26426
#24050#19979#26426

15
D01针织生产计划/U_KnitPlanCardOFF.pas
View File

@ -94,8 +94,6 @@ type
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
ToolButton3: TToolButton;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
@ -111,7 +109,7 @@ type
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure C_NameKeyPress(Sender: TObject; var Key: Char);
private
FInt, PFInt: Integer;
FFMainID, BPFlag, FFPCID: string;
@ -152,7 +150,7 @@ begin
Close;
sql.Clear;
sql.Add('select isnull(IsOffMachine,''·ñ'') AS IsOffMachine ');
sql.Add(' ,A.*,C.*,D.*,ISJY=cast(A.Status AS bit)');
sql.Add(' ,A.*,C.*,D.*');
sql.Add(' from Knit_Plan_Card A ');
sql.Add(' inner join knit_Plan_Sub C on A.SubId=C.SubId');
sql.Add(' inner join knit_Plan_Main D on A.MainId=D.MainId');
@ -179,6 +177,7 @@ begin
// ShowMessage(sql.text);
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
@ -389,5 +388,13 @@ begin
InitGrid();
end;
procedure TfrmKnitPlanCardOFF.C_NameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
end.

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

@ -1,7 +1,7 @@
inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Left = 212
Top = 14
Caption = #36710#38388#29983#20135#35745#21010#21333#24405#20837
Caption = #38024#32455#36710#38388#29983#20135#35745#21010#21333#24405#20837
ClientHeight = 580
ClientWidth = 1464
Color = clWhite
@ -672,7 +672,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548100
Time = 0.670856296288548000
ShowCheckbox = True
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
@ -690,7 +690,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548100
Time = 0.670856296288548000
ShowCheckbox = True
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
@ -1736,6 +1736,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxTabSheet2: TcxTabSheet
Caption = #25490#38024#19977#35282
ImageIndex = 1
ExplicitTop = 0
ExplicitWidth = 0
object Panel1: TPanel
Left = 0
Top = 183

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

@ -491,7 +491,7 @@ begin
OurCoName.Enabled := false;
CustName.Enabled := false;
FtyCoName.Enabled := false;
Saleser.Enabled := false;
// Saleser.Enabled := false;
//C_KnitGramWeight.Enabled := false;
C_Code.Enabled := false;
//C_Name.Enabled := false;
@ -753,6 +753,7 @@ begin
end;
FieldByName('MainId').Value := Trim(maxno);
FieldByName('CustNo').Value := Trim(CustName.TxtCode);
fieldByName('PlanType').Value := 'ÕëÖ¯';
RTSetsavedata(ADOQueryCmd, 'knit_Plan_Main', ScrollBox1, 0);
if Trim(FMainId) = '' then

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

@ -176,7 +176,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Left = 327
Top = 38
AutoSize = True
Caption = #20462#25913#27969#31243#21345
Caption = #20462#25913#22238#20462#21345
ImageIndex = 3
OnClick = ToolButton6Click
end
@ -220,16 +220,34 @@ inherited frmKnitPlanList: TfrmKnitPlanList
ImageIndex = 11
OnClick = ToolButton4Click
end
object TBDel: TToolButton
object btn2: TToolButton
Left = 873
Top = 38
AutoSize = True
Caption = #35746#21333#19979#26426
ImageIndex = 12
Visible = False
OnClick = btn2Click
end
object btn3: TToolButton
Left = 968
Top = 38
AutoSize = True
Caption = #25764#38144#19979#26426
ImageIndex = 11
Visible = False
OnClick = btn3Click
end
object TBDel: TToolButton
Left = 1063
Top = 38
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TBDelClick
end
object TBExport: TToolButton
Left = 944
Left = 1134
Top = 38
AutoSize = True
Caption = #23548#20986
@ -237,7 +255,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBExportClick
end
object ToolButton1: TToolButton
Left = 1015
Left = 1205
Top = 38
AutoSize = True
Caption = #20445#23384#26684#24335
@ -245,7 +263,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 1110
Left = 1300
Top = 38
AutoSize = True
Caption = #20851#38381
@ -338,7 +356,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Left = 1098
Top = 0
Width = 208
Height = 20
Height = 22
Caption = #23383#20307#39068#33394#20026#32418#65306#24050#32463#35745#21010#25490#21333
Font.Charset = GB2312_CHARSET
Font.Color = clRed
@ -967,6 +985,23 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Options.Editing = False
Width = 70
end
object cxgrdbclmnTv1Column25: TcxGridDBColumn
Caption = #26159#21542#19979#26426
DataBinding.FieldName = 'ISXiaJi'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxgrdbclmnTv1Column26: TcxGridDBColumn
Caption = #19979#26426#21305#25968
DataBinding.FieldName = 'XiaJiNumber'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

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

@ -172,6 +172,10 @@ type
lbl4: TLabel;
lbl5: TLabel;
cxgrdbclmnTv1Column24: TcxGridDBColumn;
btn2: TToolButton;
btn3: TToolButton;
cxgrdbclmnTv1Column25: TcxGridDBColumn;
cxgrdbclmnTv1Column26: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
@ -218,6 +222,8 @@ type
procedure DYPrintClick(Sender: TObject);
procedure ToolButton11Click(Sender: TObject);
procedure SCPrintClick(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
private
FInt, PFInt: Integer;
procedure InitGrid();
@ -266,6 +272,8 @@ begin
ToolButton10.Visible := False;
ToolButton6.Visible := False;
ToolButton7.Visible := False;
btn2.Visible := false;
btn3.Visible := false;
if Trim(canshu1) = '管理' then
begin
@ -286,10 +294,12 @@ begin
TBEdit.Visible := true;
btn1.Visible := true;
ToolButton5.Visible := true;
btn2.Visible := true;
btn3.Visible := true;
// ToolButton5.Visible := true;
ToolButton6.Visible := true;
ToolButton7.Visible := true;
ToolButton9.Visible := true;
// ToolButton9.Visible := true;
ToolButton10.Visible := true;
end
else if cxTabControl1.TabIndex = 2 then
@ -297,10 +307,12 @@ begin
TBNoEnd.Visible := true;
btn1.Visible := true;
ToolButton5.Visible := true;
btn2.Visible := true;
btn3.Visible := true;
// ToolButton5.Visible := true;
ToolButton6.Visible := true;
ToolButton7.Visible := true;
ToolButton9.Visible := true;
// ToolButton9.Visible := true;
ToolButton10.Visible := true;
end;
end;
@ -326,7 +338,7 @@ begin
sql.Add('price,')
else if (trim(DName) = '韩宇佳') or (trim(DName) = '倪剑波') or (trim(DName) = '张明华') then
begin
sql.Add('Price = (select CASE WHEN Filler = '+quotedstr(DName)+' THEN Price ELSE ISNULL(Price, 0) * 0 END AS Price from knit_Plan_Sub BB inner join Knit_plan_main AA on AA.Mainid = BB.MainId where AA.Mainid = A.Mainid),');
sql.Add('Price = (select CASE WHEN Filler = ' + quotedstr(DName) + ' THEN Price ELSE ISNULL(Price, 0) * 0 END AS Price from knit_Plan_Sub BB inner join Knit_plan_main AA on AA.Mainid = BB.MainId where AA.Mainid = A.Mainid),');
end
else
sql.Add('price = isnull(B.price,0) * 0 ,');
@ -338,7 +350,7 @@ begin
sql.Add(' from knit_Plan_Main A inner join knit_Plan_Sub B on A.Mainid=B.MainId');
sql.Add(' where A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''');
sql.Add(' and ISNULL(A.PlanType, '''') <> ''梭织''');
if DParameters1 = '业务员' then
begin
@ -768,6 +780,85 @@ begin
end;
procedure TfrmKnitPlanList.btn2Click(Sender: TObject);
var
sInput: string;
iLoopCount: double;
begin
// if CDS_2.IsEmpty then
// exit;
// if not CDS_2.Locate('SSel', True, []) then
// begin
// application.MessageBox('请选择数据', '提示');
// Exit;
// end;
if CDS_1.IsEmpty then
exit;
// if Application.MessageBox('确定下机吗？', '提示', 32 + 4) <> IDYES then
// Exit;
// if not InputQuery('下机匹数', '请输入下机匹数：', sInput) then
// Exit; // 用户点击取消
// if not TryStrToFloat(sInput, iLoopCount) then
// begin
// ShowMessage('请输入有效的数字！');
// Exit;
// end;
try
while CDS_1.locate('SSel', true, []) do
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
SQL.Add('update Knit_Plan_Sub set ISXiaJi=''是''');
// sql.Add(',XiaJiNumber=' + trim(sInput));
sql.Add(' where MainId=' + quotedstr(trim(CDS_1.fieldbyname('MainId').AsString)));
// showmessage(sql.Text);
execsql;
end;
CDS_1.Edit;
CDS_1.fieldbyname('SSel').value := false;
end;
application.MessageBox('操作成功！', '提示信息');
InitGrid();
// TBRafresh.Click;
except
application.MessageBox('操作失败！', '提示信息', 0);
end;
end;
procedure TfrmKnitPlanList.btn3Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update knit_Plan_Sub SET ISXiaJi=''否'' ');
// sql.Add(', XiaJiNumber = ''0'' ');
sql.Add('where MainId=' + quotedstr(trim(CDS_1.fieldbyname('MainId').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('MainId').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
end;
application.MessageBox('撤销成功！', '提示信息');
TBRafresh.Click;
except
application.MessageBox('撤销失败！', '提示信息', 0);
end;
end;
procedure TfrmKnitPlanList.Button1Click(Sender: TObject);
begin
with ADOQueryCmd do
@ -889,7 +980,7 @@ var
begin
if CDS_3.IsEmpty then
begin
application.MessageBox('请选中要拆分的流程卡', '提示');
application.MessageBox('请选中要回修的流程卡', '提示');
Exit;
end;
@ -897,20 +988,20 @@ begin
// 禁用相关控件防止重复操作
ToolButton10.Enabled := False;
with ADOQueryCmd do
frmLCKInput := TfrmLCKInput.Create(Application);
with frmLCKInput do
begin
close;
sql.Clear;
sql.Add('EXEC P_Dye_Card_HX @PCID=' + quotedstr(trim(CDS_3.fieldbyname('LCKID').AsString)));
sql.Add(',@dname=' + quotedstr(trim(DNAME)));
sql.Add(',@dcode=' + quotedstr(trim(DCODE)));
execsql;
PState := 1;
FLCKID := Trim(self.CDS_3.fieldbyname('LCKID').AsString);
FFSubId := Trim(self.CDS_1.fieldbyname('SubId').AsString);
if ShowModal = 1 then
begin
InitSubGrid();
end;
end;
application.MessageBox('操作成功！', '提示信息');
// application.MessageBox('操作成功！', '提示信息');
ToolButton10.Enabled := true;
InitsubGrid();
// TBRafresh.Click;
except
application.MessageBox('操作失败！', '提示信息', 0);
@ -1095,7 +1186,7 @@ begin
sql.Add(' where PCID=''' + Trim(CDS_3.fieldbyname('LCKID').AsString) + '''');
//修改库存数据
SQL.Add(' update knit_cloth_stock set StkExists = 1');
sql.Add(' where STKID in(select PCID from PB_CK_LCK where LCKID =''' + Trim(CDS_1.fieldbyname('LCKID').AsString) + ''')');
sql.Add(' where STKID in(select PCID from PB_CK_LCK where LCKID =''' + Trim(CDS_3.fieldbyname('LCKID').AsString) + ''')');
//删除绑定数据
SQL.Add(' DELETE from PB_CK_LCK');
sql.Add(' where LCKID=''' + Trim(CDS_3.fieldbyname('LCKID').AsString) + '''');

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

@ -1,7 +1,7 @@
object frmLCKInput: TfrmLCKInput
Left = 261
Top = 149
Caption = #27969#31243#21345#24405#20837
Caption = #22238#20462#21345#24405#20837
ClientHeight = 814
ClientWidth = 1289
Color = clWhite
@ -106,7 +106,7 @@ object frmLCKInput: TfrmLCKInput
end
object Label7: TLabel
Left = 25
Top = 424
Top = 381
Width = 92
Height = 21
Caption = #22791' '#27880
@ -132,7 +132,7 @@ object frmLCKInput: TfrmLCKInput
end
object Label4: TLabel
Left = 23
Top = 342
Top = 308
Width = 88
Height = 21
Caption = #26426#32568#35201#27714
@ -223,6 +223,7 @@ object frmLCKInput: TfrmLCKInput
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object lbl2: TLabel
Left = 23
@ -251,7 +252,7 @@ object frmLCKInput: TfrmLCKInput
ParentFont = False
end
object lbl4: TLabel
Left = 920
Left = 921
Top = 29
Width = 88
Height = 21
@ -266,7 +267,7 @@ object frmLCKInput: TfrmLCKInput
end
object Label8: TLabel
Left = 23
Top = 257
Top = 232
Width = 88
Height = 21
Caption = #23450#22411#35201#27714
@ -289,10 +290,11 @@ object frmLCKInput: TfrmLCKInput
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label12: TLabel
Left = 23
Top = 176
Left = 920
Top = 169
Width = 80
Height = 21
Caption = #26550' '#21495
@ -302,10 +304,11 @@ object frmLCKInput: TfrmLCKInput
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label13: TLabel
Left = 319
Top = 173
Left = 21
Top = 172
Width = 92
Height = 21
Caption = #33394' '#21495
@ -317,8 +320,8 @@ object frmLCKInput: TfrmLCKInput
ParentFont = False
end
object Label14: TLabel
Left = 617
Top = 171
Left = 319
Top = 172
Width = 88
Height = 21
Caption = #21407#26009#25104#20998
@ -347,7 +350,7 @@ object frmLCKInput: TfrmLCKInput
object Note: TMemo
Tag = 2
Left = 143
Top = 412
Top = 369
Width = 746
Height = 52
Font.Charset = GB2312_CHARSET
@ -377,7 +380,7 @@ object frmLCKInput: TfrmLCKInput
object HCLNote: TMemo
Tag = 2
Left = 141
Top = 330
Top = 296
Width = 746
Height = 52
Font.Charset = GB2312_CHARSET
@ -499,6 +502,7 @@ object frmLCKInput: TfrmLCKInput
Font.Style = [fsBold]
ParentFont = False
TabOrder = 10
Visible = False
end
object PBKC: TEdit
Left = 139
@ -549,7 +553,7 @@ object frmLCKInput: TfrmLCKInput
object DXNOTE: TMemo
Tag = 2
Left = 141
Top = 245
Top = 220
Width = 746
Height = 52
Font.Charset = GB2312_CHARSET
@ -575,13 +579,14 @@ object frmLCKInput: TfrmLCKInput
Font.Style = [fsBold]
ParentFont = False
TabOrder = 15
Visible = False
OnBtnUpClick = COGdyBtnUpClick
OnBtnDnClick = COGdyBtnDnClick
end
object jiano: TBtnEditC
Tag = 2
Left = 141
Top = 169
Left = 1038
Top = 162
Width = 150
Height = 30
Hint = 'jiano/'#26550#21495
@ -592,13 +597,14 @@ object frmLCKInput: TfrmLCKInput
Font.Style = [fsBold]
ParentFont = False
TabOrder = 16
Visible = False
OnBtnUpClick = COGdyBtnUpClick
OnBtnDnClick = COGdyBtnDnClick
end
object C_Composition: TEdit
Tag = 2
Left = 735
Top = 168
Left = 437
Top = 169
Width = 150
Height = 27
Font.Charset = GB2312_CHARSET
@ -611,8 +617,8 @@ object frmLCKInput: TfrmLCKInput
end
object C_COLORNO: TEdit
Tag = 2
Left = 437
Top = 170
Left = 139
Top = 169
Width = 150
Height = 27
Font.Charset = GB2312_CHARSET
@ -625,9 +631,9 @@ object frmLCKInput: TfrmLCKInput
end
object Panel1: TPanel
Left = 0
Top = 490
Top = 443
Width = 1289
Height = 286
Height = 333
Align = alBottom
TabOrder = 19
object ToolBar2: TToolBar
@ -676,7 +682,7 @@ object frmLCKInput: TfrmLCKInput
Left = 1
Top = 39
Width = 1287
Height = 246
Height = 293
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -685,6 +691,8 @@ object frmLCKInput: TfrmLCKInput
Font.Style = []
ParentFont = False
TabOrder = 1
ExplicitTop = 0
ExplicitHeight = 285
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

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

@ -213,7 +213,7 @@ begin
C_Name.text := Trim(self.ADOQueryTemp.fieldbyname('C_Name').AsString);
HclNote.text := Trim(self.ADOQueryTemp.fieldbyname('C_Deal').AsString);
Note.Text := Trim(self.ADOQueryTemp.fieldbyname('OrdSNote').AsString);
Note.Text := Trim(self.ADOQueryTemp.fieldbyname('OrdSNote').AsString);
PBKC.Text := FPBKC;
with ADOQueryTemp do
begin
@ -339,15 +339,25 @@ begin
// raise Exception.Create('开卡匹数不能大于库存数量!');
// if (StrToFloat(KKPS.Text) * StrtoFloatDef(KKGS.Text, 0)) > StrToFloatDef(PBKC.Text, 0) then
// flag := false;
for i := 1 to strtointdef(KKGS.Text, 1) do
// for i := 1 to strtointdef(KKGS.Text, 1) do
// begin
// if SaveData(flag) then
// begin
// //fRoll.Add(CDS_MJID.FieldByName('MJID').AsString);
//// BTAdd.Click;
// end;
//
// end;
with ADOQueryCmd do
begin
if SaveData(flag) then
begin
//fRoll.Add(CDS_MJID.FieldByName('MJID').AsString);
// BTAdd.Click;
end;
close;
sql.Clear;
sql.Add('EXEC P_Dye_Card_HX @PCID=' + quotedstr(trim(LCKID.Text)));
sql.Add(',@KKPS=' + quotedstr(trim(KKPS.Text)));
sql.Add(',@dname=' + quotedstr(trim(DNAME)));
sql.Add(',@dcode=' + quotedstr(trim(DCODE)));
ExecSQL;
end;
Application.MessageBox('保存成功!', '提示', 0);
ModalResult := 1;
@ -439,7 +449,7 @@ begin
Close;
SQL.Clear;
sql.Add('select * from Dye_Plan_Glide A ');
sql.Add(' where GLIDEID=''' + Trim(MaxNO) + '''');
sql.Add(' where GLIDEID=''' + Trim(MAXNO) + '''');
Open;
end;

10
D01针织生产计划/U_LCKQuery.dfm
View File

@ -149,7 +149,7 @@ inherited frmLCKQuery: TfrmLCKQuery
TabOrder = 0
OnChange = LCKIDChange
end
object OrderNo: TEdit
object MainId: TEdit
Tag = 2
Left = 522
Top = 12
@ -245,14 +245,6 @@ inherited frmLCKQuery: TfrmLCKQuery
Options.Editing = False
Width = 138
end
object cxgrdbclmnTv1Column1: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'MainId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 115
end
object cxgrdbclmnTv3Column2: TcxGridDBColumn
Caption = #24320#21345#26085#26399
DataBinding.FieldName = 'KKDate'

14
D01针织生产计划/U_LCKQuery.pas
View File

@ -48,7 +48,7 @@ type
ToolButton1: TToolButton;
ToolButton2: TToolButton;
Label5: TLabel;
OrderNo: TEdit;
MainId: TEdit;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
@ -67,7 +67,6 @@ type
EndDate: TDateTimePicker;
lbl1: TLabel;
lbl2: TLabel;
cxgrdbclmnTv1Column1: TcxGridDBColumn;
cxgrdbclmnTv1Column2: TcxGridDBColumn;
cxgrdbclmnTv1Column3: TcxGridDBColumn;
cxgrdbclmnTv1Column4: TcxGridDBColumn;
@ -142,18 +141,19 @@ begin
begin
Close;
sql.Clear;
sql.Add('select count(I.PCID) IONumber,count(H.PCID) InspectNumber,OutNumber=(select count(C.LCKID) OutNumber from PB_LCK C inner join PB_CK_LCK B on C.LCKID=B.LCKID where B.LCKID = A.LCKID),A.LCKID,A.MainID,A.C_Code ');
sql.Add('select OutNumber=(select count(C.LCKID) OutNumber from PB_LCK C inner join PB_CK_LCK B on C.LCKID=B.LCKID where B.LCKID = A.LCKID),A.LCKID,A.C_Code '); //count(I.PCID) IONumber,count(H.PCID) InspectNumber,
sql.Add(',A.C_Name,A.KKDate,A.KKPS,A.HCLNote,A.CraFt,A.CarNumber,A.IFBL,E.C_Color,E.C_Width,E.C_GramWeight');
sql.Add(' from PB_LCK A INNER JOIN PB_CK_LCK G on A.LCKID = G.LCKID ');
sql.Add(' INNER JOIN knit_Plan_Main D on A.MainId = D.Mainid ');
sql.Add(' INNER JOIN Knit_Plan_Sub E on D.MainId = E.MainId ');
sql.Add(' INNER JOIN Knit_Plan_Card F on F.PCID = G.PCID ');
sql.Add(' left JOIN Trade_Cloth_Inspect H on H.MainId = A.MainID and H.PCID = G.PCID ');
sql.add(' left JOIN V_Trade_Cloth_Io I on H.MainId = A.MainID and I.PCID = G.PCID and I.IOFlag = ''' + '³ö¿â''');
//查询出库和检验数据
// sql.Add(' left JOIN Trade_Cloth_Inspect H on H.MainId = A.MainID and H.PCID = G.PCID ');
// sql.add(' left JOIN V_Trade_Cloth_Io I on H.MainId = A.MainID and I.PCID = G.PCID and I.IOFlag = ''' + '出库''');
sql.Add(' where A.KKDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and A.KKDate<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''');
sql.Add(' GROUP BY A.LCKID,A.MainID,A.C_Code,A.C_Name,A.KKDate,A.KKPS,A.HCLNote,A.CraFt,A.CarNumber,A.IFBL,E.C_Color,E.C_Width,E.C_GramWeight');
//ShowMessage(sql.text);
sql.Add(' GROUP BY A.LCKID,A.C_Code,A.C_Name,A.KKDate,A.KKPS,A.HCLNote,A.CraFt,A.CarNumber,A.IFBL,E.C_Color,E.C_Width,E.C_GramWeight');
// ShowMessage(sql.text);
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));

698
D01针织生产计划/U_TatCardInPut.dfm Normal file
View File

@ -0,0 +1,698 @@
inherited frmTatCardInPut: TfrmTatCardInPut
Left = 203
Top = 126
Caption = #24067#21305#23433#25490
ClientHeight = 445
ClientWidth = 921
Color = clWhite
Position = poScreenCenter
ExplicitWidth = 937
ExplicitHeight = 484
PixelsPerInch = 96
TextHeight = 13
object Panel4: TPanel [0]
Left = 553
Top = 0
Width = 368
Height = 445
Align = alClient
Caption = 'Panel4'
TabOrder = 0
object Panel1: TPanel
Left = 1
Top = 39
Width = 366
Height = 40
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 0
object Label3: TLabel
Left = 32
Top = 13
Width = 39
Height = 12
Caption = #26426#21488#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object MCNO: TEdit
Tag = 2
Left = 77
Top = 9
Width = 81
Height = 21
TabOrder = 0
OnChange = MCNOChange
end
end
object cxGrid1: TcxGrid
Left = 1
Top = 79
Width = 366
Height = 365
Align = alClient
PopupMenu = PM_1
TabOrder = 1
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCustomDrawCell = Tv1CustomDrawCell
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skCount
Column = Tv1Column1
end
item
Kind = skSum
Column = Tv1Column3
end
item
Kind = skSum
Column = Tv1Column4
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_KnitPlan.SHuangSe
Styles.Group = DataLink_KnitPlan.FontBlue
Styles.Header = DataLink_KnitPlan.Default
Styles.Inactive = DataLink_KnitPlan.SHuangSe
object Tv1Column1: TcxGridDBColumn
Caption = #26426#21488#21495
DataBinding.FieldName = 'MCNO'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column2: TcxGridDBColumn
Caption = #26159#21542#23433#25490
DataBinding.FieldName = 'isap'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv1Column3: TcxGridDBColumn
Caption = #24635#26410#26816#39564#21305#25968
DataBinding.FieldName = 'ZWJYPS'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 91
end
object Tv1Column4: TcxGridDBColumn
Caption = #26412#21333#26410#26816#39564#25968
DataBinding.FieldName = 'BWJYPS'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column5: TcxGridDBColumn
Caption = #26410#19979#26426#25968
DataBinding.FieldName = 'ZWXJPS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1Column6: TcxGridDBColumn
Caption = #26412#21333#26410#19979#26426#25968
DataBinding.FieldName = 'BWXJPS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 85
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object ToolBar1: TToolBar
Tag = 1
Left = 1
Top = 1
Width = 366
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_KnitPlan.ImageList_new32
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_KnitPlan.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 2
object ToolButton12: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton12Click
end
object TBClose: TToolButton
Left = 95
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
end
object Panel5: TPanel [1]
Left = 0
Top = 0
Width = 553
Height = 445
Align = alLeft
Caption = 'Panel5'
TabOrder = 1
object Panel2: TPanel
Left = 1
Top = 73
Width = 551
Height = 137
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label10: TLabel
Left = 40
Top = 84
Width = 26
Height = 12
Caption = #26426#20462
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 245
Top = 55
Width = 52
Height = 12
Caption = #24067#31080#20221#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 40
Top = 58
Width = 26
Height = 12
Caption = #25209#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 40
Top = 22
Width = 26
Height = 12
Caption = #26426#21488
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 39
Top = 111
Width = 52
Height = 12
Caption = #26159#21542#20986#32440
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object lbl1: TLabel
Left = 245
Top = 83
Width = 52
Height = 12
Caption = #35745#21010#25968#37327
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Button3: TButton
Left = 393
Top = 53
Width = 82
Height = 44
Caption = #20445#23384
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = Button3Click
end
object edtMachNo: TEdit
Tag = 2
Left = 73
Top = 10
Width = 402
Height = 37
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 1
end
object edtCardQty: TEdit
Tag = 2
Left = 301
Top = 50
Width = 86
Height = 21
TabOrder = 2
end
object Repairer: TBtnEditC
Tag = 1
Left = 73
Top = 79
Width = 144
Height = 21
TabOrder = 3
OnBtnUpClick = RepairerBtnUpClick
OnBtnDnClick = RepairerBtnDnClick
end
object BatchNo: TEdit
Tag = 2
Left = 73
Top = 53
Width = 144
Height = 21
TabOrder = 4
end
object isDY: TComboBox
Left = 98
Top = 106
Width = 118
Height = 22
Style = csOwnerDrawFixed
ItemIndex = 1
TabOrder = 5
Text = #26159
Items.Strings = (
#21542
#26159)
end
object Button1: TButton
Left = 483
Top = 15
Width = 56
Height = 25
Caption = #28165#38500
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = Button1Click
end
object JHSL: TEdit
Tag = 2
Left = 301
Top = 78
Width = 86
Height = 21
TabOrder = 7
end
end
object cxGrid2: TcxGrid
Left = 1
Top = 210
Width = 551
Height = 234
Align = alClient
TabOrder = 1
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_KnitPlan.SHuangSe
Styles.Header = DataLink_KnitPlan.Default
Styles.Inactive = DataLink_KnitPlan.SHuangSe
Styles.Selection = DataLink_KnitPlan.SHuangSe
object TV2Column1: TcxGridDBColumn
Caption = #26426#21488#21495
DataBinding.FieldName = 'CarNo'
DataBinding.IsNullValueType = True
Visible = False
GroupIndex = 0
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object TV2Column2: TcxGridDBColumn
Caption = #26426#20462
DataBinding.FieldName = 'JXPerson'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
end
object TV2Column3: TcxGridDBColumn
Caption = #23433#25490#21305#25968
DataBinding.FieldName = 'APPS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object cxgrdbclmnTV2Column9: TcxGridDBColumn
Caption = #35745#21010#25968#37327
DataBinding.FieldName = 'JHSL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object TV2Column4: TcxGridDBColumn
Caption = #25171#21360#21305#25968
DataBinding.FieldName = 'DYPS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object TV2Column8: TcxGridDBColumn
Caption = #19979#26426#21305#25968
DataBinding.FieldName = 'XJPS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object TV2Column5: TcxGridDBColumn
Caption = #23436#25104#21305#25968
DataBinding.FieldName = 'JYPS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object TV2Column6: TcxGridDBColumn
Caption = #23433#25490#26102#38388
DataBinding.FieldName = 'APDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object TV2Column7: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
object Panel3: TPanel
Left = 1
Top = 1
Width = 551
Height = 72
Align = alTop
TabOrder = 2
object Label1: TLabel
Left = 186
Top = 8
Width = 54
Height = 12
Caption = #32534' '#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 341
Top = 7
Width = 61
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 Label13: TLabel
Left = 26
Top = 8
Width = 52
Height = 12
Caption = #29983#20135#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label21: TLabel
Left = 178
Top = 44
Width = 65
Height = 12
Caption = #26410#23433#25490#21305#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 17
Top = 45
Width = 65
Height = 12
Caption = #24050#23433#25490#21305#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object edtName: TEdit
Tag = 2
Left = 408
Top = 2
Width = 90
Height = 21
ReadOnly = True
TabOrder = 0
OnChange = MCNOChange
end
object edtCode: TEdit
Tag = 2
Left = 245
Top = 3
Width = 90
Height = 21
ReadOnly = True
TabOrder = 1
OnChange = MCNOChange
end
object edtConNo: TEdit
Tag = 2
Left = 84
Top = 3
Width = 90
Height = 21
ReadOnly = True
TabOrder = 2
OnChange = MCNOChange
end
object edtWAPPS: TEdit
Tag = 2
Left = 245
Top = 41
Width = 90
Height = 21
ReadOnly = True
TabOrder = 3
OnChange = MCNOChange
end
object edtYAPPS: TEdit
Tag = 2
Left = 82
Top = 40
Width = 90
Height = 21
ReadOnly = True
TabOrder = 4
OnChange = MCNOChange
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_KnitPlan.ADOLink
Left = 25
Top = 384
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_KnitPlan.ADOLink
Left = 169
Top = 481
end
inherited ImageList_new32: TImageList
Left = 272
Top = 416
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 224
Top = 344
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_KnitPlan.ADOLink
Parameters = <>
Left = 136
Top = 336
end
object ADOQueryMain: TADOQuery
Connection = DataLink_KnitPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 192
Top = 400
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_KnitPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 48
Top = 336
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 464
Top = 328
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 400
Top = 328
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 464
Top = 384
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 416
Top = 384
end
object GPM_2: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 368
Top = 384
end
object PM_1: TPopupMenu
Left = 528
Top = 336
end
object PM_2: TPopupMenu
Left = 536
Top = 400
end
object cxStyleRepository1: TcxStyleRepository
Left = 80
Top = 456
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = []
TextColor = clHotLight
end
end
end

460
D01针织生产计划/U_TatCardInPut.pas Normal file
View File

@ -0,0 +1,460 @@
unit U_TatCardInPut;
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,
BtnEdit, cxPC, MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
U_BaseList, Vcl.Menus, U_BaseInput, System.ImageList, Vcl.ImgList,
dxScrollbarAnnotations;
type
TfrmTatCardInPut = class(TfrmBaseInput)
GPM_1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
DS_2: TDataSource;
CDS_2: TClientDataSet;
GPM_2: TcxGridPopupMenu;
Panel4: TPanel;
PM_1: TPopupMenu;
PM_2: TPopupMenu;
Panel5: TPanel;
Panel2: TPanel;
Label10: TLabel;
Label11: TLabel;
Button3: TButton;
edtMachNo: TEdit;
edtCardQty: TEdit;
Repairer: TBtnEditC;
Panel1: TPanel;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
TV2Column5: TcxGridDBColumn;
TV2Column6: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Label3: TLabel;
MCNO: TEdit;
ToolBar1: TToolBar;
ToolButton12: TToolButton;
TBClose: TToolButton;
Label7: TLabel;
BatchNo: TEdit;
TV2Column7: TcxGridDBColumn;
Panel3: TPanel;
Label1: TLabel;
Label12: TLabel;
Label13: TLabel;
Label21: TLabel;
edtName: TEdit;
edtCode: TEdit;
edtConNo: TEdit;
edtWAPPS: TEdit;
Label8: TLabel;
Label9: TLabel;
edtYAPPS: TEdit;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Label4: TLabel;
isDY: TComboBox;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Button1: TButton;
TV2Column8: TcxGridDBColumn;
lbl1: TLabel;
JHSL: TEdit;
cxgrdbclmnTV2Column9: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure MCNOChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
procedure ToolButton12Click(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure RepairerBtnDnClick(Sender: TObject);
procedure RepairerBtnUpClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
procedure InitOrd();
procedure InitGrid1();
procedure InitGrid2();
{ Private declarations }
public
FMainId, FSubId: string;
{ Public declarations }
end;
var
frmTatCardInPut: TfrmTatCardInPut;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint;
{$R *.dfm}
procedure TfrmTatCardInPut.InitOrd();
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' select A.*,B.*');
sql.Add(' ,YAPPS=ISNULL((select count(*) from Knit_Plan_Card X where X.MainId=A.MainId and X.Status <> ''-1'' ),0)');
sql.Add(' ,WAPPS=OrdPiece-ISNULL((select count(*) from Knit_Plan_Card X where X.MainId=A.MainId and X.Status <> ''-1''),0)');
sql.Add(' from knit_Plan_Main A');
sql.Add(' inner join knit_Plan_Sub B on A.MainId=B.MainId ');
sql.Add(' where B.SubId=' + QuotedStr(FSubId));
Open;
end;
edtConNo.Text := ADOQueryTemp.FieldByName('OrderNo').AsString;
edtCode.Text := ADOQueryTemp.FieldByName('C_Code').AsString;
edtName.Text := ADOQueryTemp.FieldByName('C_Name').AsString;
edtYAPPS.Text := ADOQueryTemp.FieldByName('YAPPS').AsString;
edtWAPPS.Text := ADOQueryTemp.FieldByName('WAPPS').AsString;
end;
procedure TfrmTatCardInPut.RepairerBtnDnClick(Sender: TObject);
begin
Repairer.Text := '';
end;
procedure TfrmTatCardInPut.RepairerBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'Repairer';
flagname := '机修工';
if ShowModal = 1 then
begin
Repairer.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTatCardInPut.InitGrid1();
var
fwhere: string;
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add(' select * ');
sql.Add(' ,ZWXJPS=(select count(*) from Knit_Plan_Card X where X.CarNo =AA.MCNO and ISNULL(X.IsOffMachine,'''') = '''') ');
sql.Add(' ,BWXJPS=(select count(*) from Knit_Plan_Card X where X.CarNo =AA.MCNO and ISNULL(X.IsOffMachine,'''') = '''' and MainID=''' + trim(FMainID) + ''')');
sql.Add(' ,ZWJYPS=(select count(*) from Knit_Plan_Card X where X.CarNo =AA.MCNO and isnull(Status,''0'')=''0'') ');
sql.Add(' ,BWJYPS=(select count(*) from Knit_Plan_Card X where X.CarNo =AA.MCNO and isnull(Status,''0'')=''0'' and MainID=''' + trim(FMainID) + ''')');
sql.Add(' from (select A.MCNO,A.MCType,ISAP=''0'' from BS_Machine A where EXISTS (select CarNo from Knit_Plan_Card X where X.CarNo = A.MCNO and X.Status <> ''-1'' and X.MainID=''' + trim(FMainID) + ''')');
sql.Add(' UNION ');
sql.Add(' select A.MCNO,A.MCType,ISAP=''1'' from BS_Machine A where not EXISTS (select CarNo from Knit_Plan_Card X where X.CarNo = A.MCNO and X.Status <> ''-1'' and X.MainID=''' + trim(FMainID) + ''')');
sql.Add(' ) AA where MCType = ''梭织'' Order BY ISAP,MCNO');
// showmessage(sql.Text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmTatCardInPut.InitGrid2();
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' select JHSL,COUNT(*) AS APPS,CarNo,isnull(JXPerson,'''') AS JXPerson,isnull(BatchNo,'''') AS BatchNo ');
sql.Add(',APDate=(select top 1 CONVERT(VARCHAR(10),X.APDate,120) from Knit_Plan_Card X where X.CarNo=A.CarNo and X.Status <> ''-1'' ');
sql.Add(' and isnull(X.JXPerson,'''') = isnull(A.JXPerson,'''') and isnull(X.BatchNo,'''') = isnull(A.BatchNo,'''') and X.MainID=''' + trim(FMainId) + '''ORDER BY APDate)');
sql.Add(' ,DYPS=(select count(*) from Knit_Plan_Card X where X.CarNo=A.CarNo and PrtCount > 0 and X.Status <> ''-1'' and X.MainID=''' + trim(FMainId) + '''');
sql.Add(' and isnull(X.JXPerson,'''') = isnull(A.JXPerson,'''') and isnull(X.BatchNo,'''') = isnull(A.BatchNo,'''') )');
sql.Add(' ,JYPS=(select count(*) from Knit_Plan_Card X where X.CarNo=A.CarNo and isnull(X.Status,''0'') = ''1'' and X.MainID=''' + trim(FMainId) + '''');
sql.Add(' and isnull(X.JXPerson,'''') = isnull(A.JXPerson,'''') and isnull(X.BatchNo,'''') = isnull(A.BatchNo,'''') )');
sql.Add(' ,XJPS=(select count(*) from Knit_Plan_Card X where X.CarNo=A.CarNo and X.IsOffMachine = ''是'' and X.Status <> ''-1'' and X.MainID=''' + trim(FMainId) + '''');
sql.Add(' and isnull(X.JXPerson,'''') = isnull(A.JXPerson,'''') and isnull(X.BatchNo,'''') = isnull(A.BatchNo,'''') )');
sql.Add(' from Knit_Plan_Card A where MainId =''' + trim(FMainId) + '''');
sql.Add(' and A.Status <> ''-1'' GROUP BY CarNo,JHSL,isnull(JXPerson,''''),isnull(BatchNo,'''') ');
// ShowMessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2);
end;
procedure TfrmTatCardInPut.FormDestroy(Sender: TObject);
begin
inherited;
frmTatCardInPut := nil;
end;
procedure TfrmTatCardInPut.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmTatCardInPut.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatCardInPut.TBFindClick(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 TfrmTatCardInPut.TBRafreshClick(Sender: TObject);
begin
InitGrid1();
InitGrid2();
end;
procedure TfrmTatCardInPut.MCNOChange(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 TfrmTatCardInPut.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '指示单管理');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '指示单管理');
InitOrd();
InitGrid1();
InitGrid2();
end;
procedure TfrmTatCardInPut.cxTabControl1Change(Sender: TObject);
begin
InitGrid1();
end;
procedure TfrmTatCardInPut.Button1Click(Sender: TObject);
begin
edtMachNo.text := '';
end;
procedure TfrmTatCardInPut.Button3Click(Sender: TObject);
var
maxno, maxPCId, WSql: string;
FStrs: TStringList;
i, j, MPCNo: integer;
begin
if edtMachNo.Text = '' then
Exit;
if StrToIntdef(edtCardQty.Text, 0) = 0 then
Exit;
try
FStrs := TStringList.Create();
ExtractStrings([';'], [' '], PChar(edtMachNo.Text), FStrs);
ADOQueryCmd.Connection.BeginTrans;
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add(' select CardQty=OrdPiece-ISNULL((select sum(CardQty) from knit_Plan_Mach AA where AA.SubId=B.SubId),0)');
// sql.Add(' from knit_Plan_Sub B ');
// sql.Add(' where B.SubId=' + QuotedStr(Trim(FSubId)));
// Open;
// end;
///////////////判断是否超出限制//////////////////
if FStrs.Count * StrToIntdef(edtCardQty.Text, 0) > StrToIntdef(edtWAPPS.text, 0) then
begin
// raise Exception.Create('安排数量过多!');
end;
///////////////判断是否超出限制//////////////////
for i := 0 to FStrs.Count - 1 do
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select PCNo=isnull(Max(PCNo),0) ');
sql.Add('from Knit_Plan_Card A ');
sql.Add('where A.MainID=' + Quotedstr(Trim(FMainID)));
sql.Add('and A.Status <> ''-1'' and A.Carno=' + Quotedstr(Trim(FStrs[i])));
Open;
end;
if ADOQueryTemp.IsEmpty then
MPCNo := 1
else
MPCNo := ADOQueryTemp.FieldByName('PCNo').AsInteger + 1;
////////////////// 插入布票 //////////////////////
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' insert into Knit_Plan_Card(MainId,SubId,CarNo,PCId,PCNo,APDate,Filler,BatchNo,JXPerson,JHSL) values');
for j := 0 to StrToIntdef(edtCardQty.Text, 0) - 1 do
begin
if GetLSNo(ADOQueryTemp, maxPCId, 'PC', 'knit_Plan_Mach', 4, 1) = False then
begin
raise Exception.Create('取布票流水号失败!');
end;
if j > 0 then
sql.Add(',');
sql.Add(' (' + Quotedstr(Trim(FMainId)));
sql.Add(',' + Quotedstr(Trim(FSubId)));
sql.Add(',' + Quotedstr(Trim(FStrs[i])));
sql.Add(',' + Quotedstr(maxPCId));
sql.Add(',' + Quotedstr(IntToStr(MPCNo)));
sql.Add(',getdate() ');
sql.Add(',' + Quotedstr(Trim(DName)));
sql.Add(',' + Quotedstr(Trim(BatchNo.Text)));
sql.Add(',' + Quotedstr(Trim(Repairer.Text)));
sql.Add(',' + StrToFloatDef(Trim(JHSL.Text), 0).toString());
sql.Add(' )');
MPCNo := MPCNo + 1;
if WSql <> '' then
begin
WSql := WSql + ',' + QuotedStr(Trim(maxPCId));
end
else
begin
WSql := QuotedStr(Trim(maxPCId));
end;
end;
ExecSQL;
end;
////////////////// 插入布票 //////////////////////
end;
ADOQueryCmd.Connection.CommitTrans;
FStrs.Free;
except
FStrs.Free;
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
if trim(isDY.text) = '是' then
begin
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FPreviewPrint := False;
FLMType := 'TatPlanCard';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
// Self.InitGrid();
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update Knit_Plan_Card ');
sql.Add('set PRTer=' + quotedstr(DName));
sql.Add(', PRTCount=PRTCount+1');
sql.Add(', PRTDate=getdate()');
sql.Add(' where PCID in (' + WSql + ')');
ExecSQL;
end;
end;
end;
finally
frmLabelPrint.Free;
end;
end;
InitOrd();
InitGrid1();
InitGrid2();
edtMachNo.text := '';
end;
procedure TfrmTatCardInPut.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if '0' = AViewInfo.GridRecord.Values[Tv1Column2.Index] then
ACanvas.Brush.Color := $66ff66;
end;
procedure TfrmTatCardInPut.Tv1DblClick(Sender: TObject);
var
FStrs: TStringList;
begin
try
FStrs := TStringList.Create();
ExtractStrings([';'], [' '], PChar(edtMachNo.Text), FStrs);
if FStrs.IndexOf(Trim(CDS_1.FieldByName('MCNO').AsString)) < 0 then
begin
edtMachNo.Text := edtMachNo.Text + TRIM(CDS_1.FieldByName('MCNO').AsString) + ';';
end;
finally
FStrs.Free
end;
// str4 := copy(str4, 1, Length(str4) - 1);
end;
procedure TfrmTatCardInPut.ToolButton12Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '指示单管理');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '指示单管理');
end;
end.

642
D01针织生产计划/U_TatPlanCard.dfm Normal file
View File

@ -0,0 +1,642 @@
inherited frmTatPlanCard: TfrmTatPlanCard
Left = 154
Top = 76
Caption = #26631#31614#25171#21360
ClientHeight = 637
ClientWidth = 1448
Position = poScreenCenter
ExplicitWidth = 1464
ExplicitHeight = 676
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1448
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 103
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_KnitPlan.ImageList_new32
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_KnitPlan.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 ToolButton1: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = ToolButton1Click
end
object ToolButton3: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20316#24223#24067#31080
ImageIndex = 14
OnClick = ToolButton3Click
end
object ToolButton4: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #20462#25913#26426#21488#21495
ImageIndex = 3
OnClick = ToolButton4Click
end
object ToolButton2: TToolButton
Left = 344
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 439
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1448
Height = 99
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label3: TLabel
Left = 32
Top = 10
Width = 36
Height = 12
Caption = #21512#21516#21495
end
object Label1: TLabel
Left = 32
Top = 44
Width = 36
Height = 12
Caption = #26426#21488#21495
end
object Label2: TLabel
Left = 403
Top = 10
Width = 48
Height = 12
Caption = #20135#21697#21517#31216
end
object Label4: TLabel
Left = 595
Top = 10
Width = 48
Height = 12
Caption = #20135#21697#32534#21495
end
object Label5: TLabel
Left = 211
Top = 10
Width = 48
Height = 12
Caption = #29983#20135#21333#21495
end
object Label6: TLabel
Left = 211
Top = 43
Width = 48
Height = 12
Caption = #25209' '#21495
end
object Label7: TLabel
Left = 405
Top = 44
Width = 48
Height = 12
Caption = #26159#21542#19979#26426
end
object ConNo: TEdit
Tag = 2
Left = 101
Top = 6
Width = 80
Height = 20
TabOrder = 0
OnChange = ConNoChange
end
object CarNo: TEdit
Tag = 1
Left = 101
Top = 40
Width = 80
Height = 20
TabOrder = 3
OnChange = ConNoChange
end
object C_Name: TEdit
Tag = 2
Left = 485
Top = 6
Width = 80
Height = 20
TabOrder = 1
OnChange = ConNoChange
end
object C_Code: TEdit
Tag = 2
Left = 677
Top = 6
Width = 58
Height = 20
TabOrder = 2
OnChange = ConNoChange
end
object OrderNo: TEdit
Tag = 2
Left = 293
Top = 6
Width = 80
Height = 20
TabOrder = 4
OnChange = ConNoChange
end
object BatchNo: TEdit
Tag = 1
Left = 295
Top = 40
Width = 80
Height = 20
TabOrder = 5
OnChange = ConNoChange
end
object IsOffMachine: TComboBox
Tag = 1
Left = 487
Top = 40
Width = 80
Height = 20
Style = csDropDownList
TabOrder = 6
OnChange = ConNoChange
Items.Strings = (
''
#26159
#21542)
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 164
Width = 1448
Height = 473
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
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 = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skCount
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_KnitPlan.FoneRed
Styles.Header = DataLink_KnitPlan.Default
Styles.Inactive = DataLink_KnitPlan.FoneRed
Styles.Selection = DataLink_KnitPlan.FoneRed
object v3Column8: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 47
end
object v3Column1: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 66
end
object Tv1Column9: TcxGridDBColumn
Caption = #29983#20135#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v3Column6: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 66
end
object v3Column2: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 66
end
object Tv1Column10: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column15: TcxGridDBColumn
Caption = #22383#24067#20811#37325
DataBinding.FieldName = 'C_KnitGramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column11: TcxGridDBColumn
Caption = #25104#21697#20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column12: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object Tv1Column13: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v3Column14: TcxGridDBColumn
Caption = #32433#32447
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
object v3Column15: TcxGridDBColumn
Caption = #21518#22788#29702
DataBinding.FieldName = 'C_Deal'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column16: TcxGridDBColumn
Caption = #25552#33457
DataBinding.FieldName = 'C_Figure'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column17: TcxGridDBColumn
Caption = #38754#32433
DataBinding.FieldName = 'C_Yarn'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column14: TcxGridDBColumn
Caption = #22383#24067#35201#27714
DataBinding.FieldName = 'C_KnitNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v3Column16: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column1: TcxGridDBColumn
Caption = #26426#21488#21495
DataBinding.FieldName = 'CarNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column8: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column2: TcxGridDBColumn
Caption = #26426#20462
DataBinding.FieldName = 'JXPerson'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column7: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'PCNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column3: TcxGridDBColumn
Caption = #26465#30721
DataBinding.FieldName = 'PCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column4: TcxGridDBColumn
Caption = #25171#21360#27425#25968
DataBinding.FieldName = 'PRTCount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column5: TcxGridDBColumn
Caption = #25171#21360#26102#38388
DataBinding.FieldName = 'PRTDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column6: TcxGridDBColumn
Caption = #25171#21360#20154
DataBinding.FieldName = 'PRTer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column18: TcxGridDBColumn
Caption = #26159#21542#19979#26426
DataBinding.FieldName = 'IsOffMachine'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column19: TcxGridDBColumn
Caption = #36716#25968
DataBinding.FieldName = 'zhuanqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 67
end
object Tv1Column20: TcxGridDBColumn
Caption = #19979#26426#20154
DataBinding.FieldName = 'Offer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 67
end
object Tv1Column21: TcxGridDBColumn
Caption = #19979#26426#26102#38388
DataBinding.FieldName = 'OffTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 67
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv1
end
end
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 137
Width = 1448
Height = 27
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #40657#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#25171#21360
#24050#25171#21360
#20840#37096)
OnChange = cxTabControl1Change
ClientRectBottom = 29
ClientRectRight = 1448
ClientRectTop = 29
end
object Panel3: TPanel [4]
Left = 472
Top = 210
Width = 276
Height = 129
Color = clSkyBlue
ParentBackground = False
TabOrder = 4
Visible = False
object Label8: TLabel
Left = 41
Top = 44
Width = 60
Height = 19
Caption = #20462#25913#20026
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object JTH: TComboBox
Tag = 9
Left = 129
Top = 40
Width = 80
Height = 27
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object Button1: TButton
Left = 48
Top = 88
Width = 75
Height = 25
Caption = #30830#23450
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 160
Top = 88
Width = 75
Height = 25
Caption = #21462#28040
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = Button2Click
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_KnitPlan.ADOLink
Left = 81
Top = 272
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_KnitPlan.ADOLink
Left = 81
Top = 209
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 296
Top = 368
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_KnitPlan.ADOLink
Parameters = <>
Left = 720
Top = 248
end
object ADOQueryMain: TADOQuery
Connection = DataLink_KnitPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 664
Top = 176
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_KnitPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 352
Top = 192
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_KnitPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 472
Top = 200
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 520
Top = 364
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 472
Top = 364
end
object PopupMenu1: TPopupMenu
Left = 368
Top = 272
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
end

440
D01针织生产计划/U_TatPlanCard.pas Normal file
View File

@ -0,0 +1,440 @@
unit U_TatPlanCard;
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,
BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu,
U_BaseList, Vcl.Menus, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinXmas2008Blue, dxScrollbarAnnotations;
type
TfrmTatPlanCard = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
GPM_1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
Label3: TLabel;
ConNo: TEdit;
ADOQueryPrint: TADOQuery;
CarNo: TEdit;
Label1: TLabel;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGridLevel2: TcxGridLevel;
v3Column1: TcxGridDBColumn;
v3Column2: TcxGridDBColumn;
Label2: TLabel;
C_Name: TEdit;
DS_1: TDataSource;
CDS_1: TClientDataSet;
Label4: TLabel;
C_Code: TEdit;
v3Column6: TcxGridDBColumn;
v3Column8: TcxGridDBColumn;
v3Column14: TcxGridDBColumn;
v3Column15: TcxGridDBColumn;
v3Column16: TcxGridDBColumn;
cxTabControl1: TcxTabControl;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Label5: TLabel;
OrderNo: TEdit;
Tv1Column9: TcxGridDBColumn;
Label6: TLabel;
BatchNo: TEdit;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
ToolButton3: TToolButton;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
IsOffMachine: TComboBox;
Label7: TLabel;
ToolButton4: TToolButton;
Panel3: TPanel;
Label8: TLabel;
JTH: TComboBox;
Button1: TButton;
Button2: TButton;
Tv1Column19: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
FInt, PFInt: Integer;
FFMainID, BPFlag, FFPCID: string;
procedure InitGrid();
{ Private declarations }
public
canshu1: string;
{ Public declarations }
end;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint;
{$R *.dfm}
procedure TfrmTatPlanCard.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
WriteCxGrid('DCG13', Tv1, '坯布生产2');
end;
procedure TfrmTatPlanCard.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatPlanCard.InitGrid();
begin
FFMainID := '';
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select isnull(IsOffMachine,''否'') AS IsOffMachine ');
sql.Add(' ,A.*,C.*,D.*,ISJY=cast(A.Status AS bit)');
sql.Add(' from Knit_Plan_Card A ');
sql.Add(' inner join knit_Plan_Sub C on A.SubId=C.SubId');
sql.Add(' inner join knit_Plan_Main D on A.MainId=D.MainId');
sql.Add(' where isnull(D.PlanType,'''') = ''梭织'' and A.Status = ''0'' ');
case cxTabControl1.TabIndex of
0:
begin
sql.Add(' and A.PRTCount=0');
sql.Add(' Order by A.Filltime Desc');
end;
1:
begin
sql.Add(' and A.PRTCount>0');
sql.Add(' Order by A.PRTDate Desc');
end;
2:
begin
sql.Add(' Order by A.PRTDate Desc,A.Filltime Desc');
end;
end;
//ShowMessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmTatPlanCard.N1Click(Sender: TObject);
begin
SelOKNo(cds_1, true)
end;
procedure TfrmTatPlanCard.N2Click(Sender: TObject);
begin
SelOKNo(cds_1, false);
end;
procedure TfrmTatPlanCard.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTatPlanCard.ToolButton1Click(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
Tv1.OnFocusedRecordChanged := nil;
if CDS_1.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := '';
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('PCID').AsString));
end
else
begin
WSql := QuotedStr(Trim(CDS_1.fieldbyname('PCID').AsString));
end;
end;
Next;
end;
end;
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FPreviewPrint := False;
FLMType := 'TatPlanCard';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
// Self.InitGrid();
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update Knit_Plan_Card ');
sql.Add('set PRTer=' + quotedstr(DName));
sql.Add(', PRTCount=PRTCount+1');
sql.Add(', PRTDate=getdate()');
sql.Add(' where PCID in (' + WSql + ')');
ExecSQL;
end;
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatPlanCard.ToolButton2Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption), Tv1, '坯布生产2');
end;
procedure TfrmTatPlanCard.ToolButton3Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
if CDS_1.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
if Application.MessageBox('确定要作废数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
try
ADOQueryCmd.Connection.BeginTrans;
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while CDS_1.Locate('SSel', True, []) do
begin
while CDS_1.FieldByName('SSel').AsBoolean = True do
begin
if Trim(CDS_1.fieldbyname('IsOffMachine').AsString) <> '是' then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' update knit_Plan_Card set Status =''-1'' ');
sql.Add(' ,DelId =''' + trim(DCode) + '''');
sql.Add(' ,Deler =''' + trim(DName) + '''');
sql.Add(' ,Deltime =getdate() ');
sql.Add(' where PCID=''' + Trim(CDS_1.fieldbyname('PCID').AsString) + '''');
sql.Add(' and Status =''0'' ');
// showmessage(sql.Text);
ExecSQL;
end;
end;
CDS_1.Delete;
end;
end;
end;
CDS_1.EnableControls;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
CDS_1.EnableControls;
Application.MessageBox('作废失败!', '提示', 0);
Exit;
end;
end;
procedure TfrmTatPlanCard.ToolButton4Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
if CDS_1.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
panel3.Visible := True;
FFPCID := Trim(CDS_1.fieldbyname('PCID').AsString);
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select MCNO as name from BS_Machine order by [dbo].[getNum](MCNO)');
Open;
end;
JTH.Items.Clear; //清空
while not ADOQueryCmd.eof do
begin
JTH.Items.Add(ADOQueryCmd.fieldbyname('name').AsString);
ADOQueryCmd.next;
end;
end;
procedure TfrmTatPlanCard.Button1Click(Sender: TObject);
begin
if trim(JTH.text) = '' then
begin
Application.MessageBox('机台号不能为空!', '提示', 0);
Exit;
end;
if Application.MessageBox('确定要修改机台号吗？', '提示', 32 + 4) <> IDYES then
Exit;
try
ADOQueryCmd.Connection.BeginTrans;
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while CDS_1.Locate('SSel', True, []) do
begin
while CDS_1.FieldByName('SSel').AsBoolean = True do
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' update knit_Plan_Card set XGer =''' + trim(DName) + '''');
sql.Add(' ,XGTime =getdate() ');
sql.Add(' ,YuanCarNo =CarNo');
sql.Add(' ,CarNo =''' + trim(JTH.Text) + '''');
sql.Add(' where PCID=''' + Trim(CDS_1.fieldbyname('PCID').AsString) + '''');
sql.Add(' and Status =''0'' ');
// ShowMessage(sql.text);
ExecSQL;
end;
Edit;
CDS_1.FieldByName('CarNo').Value := trim(JTH.Text);
CDS_1.FieldByName('SSel').Value := false;
end;
end;
end;
CDS_1.EnableControls;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
CDS_1.EnableControls;
Application.MessageBox('修改失败!', '提示', 0);
Exit;
end;
panel3.Visible := false;
CDS_1.Locate('PCID', FFPCID, []);
end;
procedure TfrmTatPlanCard.Button2Click(Sender: TObject);
begin
panel3.Visible := false;
end;
procedure TfrmTatPlanCard.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 TfrmTatPlanCard.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption), Tv1, '坯布生产2');
// fsj := 'select distinct Code=Null,Name=MCCJ from Machine Group by MCCJ ';
// SInitComBoxBySql(ADOQueryTemp, CheJian, False, fsj);
InitGrid();
end;
procedure TfrmTatPlanCard.cxTabControl1Change(Sender: TObject);
begin
InitGrid();
end;
end.

4269
D01针织生产计划/U_TatPlanInPut.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

1807
D01针织生产计划/U_TatPlanInPut.pas Normal file
View File

File diff suppressed because it is too large Load Diff

1405
D01针织生产计划/U_TatPlanList.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

1465
D01针织生产计划/U_TatPlanList.pas Normal file
View File

File diff suppressed because it is too large Load Diff

1491
D02针织坯布检验/U_KnitMachInsp.dfm
View File

File diff suppressed because it is too large Load Diff

224
D02针织坯布检验/U_KnitMachInsp.pas
View File

@ -51,7 +51,7 @@ type
AOrdDefNote1: TRichEdit;
RM1: TRMGridReport;
ADOTmp: TADOQuery;
ScrollBox1: TScrollBox;
ScrollBox12: TScrollBox;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
SpeedButton15: TSpeedButton;
@ -293,6 +293,77 @@ type
Label23: TLabel;
JuanHao: TEdit;
Timer1: TTimer;
ScrollBox1: TScrollBox;
btn1: TSpeedButton;
btn2: TSpeedButton;
btn3: TSpeedButton;
btn4: TSpeedButton;
btn5: TSpeedButton;
btn6: TSpeedButton;
btn7: TSpeedButton;
btn8: TSpeedButton;
btn9: TSpeedButton;
btn10: TSpeedButton;
btn11: TSpeedButton;
btn12: TSpeedButton;
btn13: TSpeedButton;
btn14: TSpeedButton;
btn15: TSpeedButton;
btn16: TSpeedButton;
btn17: TSpeedButton;
btn18: TSpeedButton;
btn19: TSpeedButton;
btn20: TSpeedButton;
btn21: TSpeedButton;
btn22: TSpeedButton;
btn23: TSpeedButton;
btn24: TSpeedButton;
btn25: TSpeedButton;
btn26: TSpeedButton;
btn27: TSpeedButton;
btn28: TSpeedButton;
btn29: TSpeedButton;
btn30: TSpeedButton;
btn31: TSpeedButton;
btn32: TSpeedButton;
btn33: TSpeedButton;
btn34: TSpeedButton;
btn35: TSpeedButton;
btn36: TSpeedButton;
btn37: TSpeedButton;
btn38: TSpeedButton;
btn39: TSpeedButton;
btn40: TSpeedButton;
btn41: TSpeedButton;
btn42: TSpeedButton;
btn43: TSpeedButton;
btn44: TSpeedButton;
btn45: TSpeedButton;
btn46: TSpeedButton;
btn47: TSpeedButton;
btn48: TSpeedButton;
btn49: TSpeedButton;
btn50: TSpeedButton;
btn51: TSpeedButton;
btn52: TSpeedButton;
btn53: TSpeedButton;
btn54: TSpeedButton;
btn55: TSpeedButton;
btn56: TSpeedButton;
btn57: TSpeedButton;
btn58: TSpeedButton;
btn59: TSpeedButton;
btn60: TSpeedButton;
btn61: TSpeedButton;
btn62: TSpeedButton;
btn63: TSpeedButton;
btn64: TSpeedButton;
btn65: TSpeedButton;
btn66: TSpeedButton;
btn67: TSpeedButton;
btn68: TSpeedButton;
btn69: TSpeedButton;
btn70: TSpeedButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
@ -338,6 +409,7 @@ type
procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure JBSCPersonPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton10Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
FCIID, FOperationStatus, FCIFName, FWorkshop: string;
@ -382,7 +454,6 @@ var
newh, newh1: hwnd;
CanPressEnter: Boolean;
implementation
uses
@ -731,7 +802,7 @@ begin
CarNo.Text := FCarNo;
JuanHao.Text := Trim(ADOTmp.fieldbyname('PCNO').AsString);
SetDdetails();
CIFBegClick(GrossWeight);
// CIFBegClick(GrossWeight);
end;
end
@ -743,12 +814,10 @@ begin
ClearGlobal();
end;
InputLen.SetFocus;
edtScan.Text := '';
InitJYGrid();
InitCDGrid(FCIID);
PlayWav('扫描成功');
edtScan.Text := '';
end;
procedure TfrmKnitMachInsp.JBSCPersonPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@ -1117,7 +1186,7 @@ end;
function TfrmKnitMachInsp.SaveData(): Boolean;
var
maxno, MCIID, BZID, strsql, Dmaxno: string;
maxno, MCIID, BZID, strsql, Dmaxno, BXMaxNo: string;
MInputLen, MMeter, MYardage: Double;
begin
if FOperationStatus = '卷条码' then
@ -1291,6 +1360,27 @@ begin
end;
////////////////// 保存疵点信息 //////////////////
///
//////////// 保存疵点信息到机台报修 //////////////////
with CDS_2 do
begin
First;
while not Eof do
begin
with ADOCmd do
begin
if not GetLSNo(ADOTmp, BXMaxNo, 'MT', 'Bs_Machine_Maint', 4, 1) then
raise Exception.Create('报修ID生成失败！');
Close;
SQL.Clear;
sql.Add('INSERT INTO Bs_Machine_Maint(Mtid,MachineId,MachineNo,MachineType,MtType,FaultId,Fault,FaultDesc, Status, Filler,FillTime,Pcid) VALUES(' + quotedstr(BXMaxNo) + ', '''', ' + quotedstr(FCarNo) + ', ''验布'', ''维修'', '''', ' + quotedStr(CDS_2.FieldByName('CIFName').Value) + ', ' + quotedStr('布面疵点/' + CDS_2.FieldByName('CIFName').Value) + ', ''1'', ' + quotedStr(DName) + ', ' + Quotedstr(FormatDateTime('yyyy-MM-dd hh:MM:ss', SGetServerDateTime(ADOCmd))) + ',' + quotedStr(MCIID) + ')');
//showmessage(sql.Text);
execsql;
end;
Next;
end;
end;
//////////// 保存疵点信息到机台报修 //////////////////
///
////////////////// 更新卷号疵点信息 //////////////////
with ADOCmd do
begin
@ -1346,7 +1436,7 @@ var
mvalue: Double;
i: Integer;
begin
edtScan.SetFocus;
// edtScan.SetFocus;
if CheckData('提交') = False then
exit;
@ -1366,14 +1456,10 @@ begin
end;
InputLen.SetFocus;
CIFBegClick(GrossWeight);
FOperationStatus := '缸条码';
InitJYGrid();
InitCDGrid('');
ClearGlobal();
FCIID := '';
SCPerson.Text := '';
JBSCPerson.Text := '';
Revolution1.Text := '';
@ -1447,49 +1533,49 @@ var
begin
if CheckData('疵点') = False then
exit;
//
// FCIFName := Trim(TSpeedButton(Sender).Hint);
// MovePanel1.Visible := True;
// lblCIFName.Caption := Trim(FCIFName);
// CIFNumber.SetFocus;
// //ÏÔʾÊý×Ö¼üÅÌ
//// CIFBeg.Text := InputLen.Text;
// with Panel3 do
// begin
// for i := 0 to ControlCount - 1 do
// begin
// if Controls[i] is TSpeedButton then
// begin
// TSpeedButton(Controls[i]).Hint := Trim(CIFNumber.Name);
// end;
// end;
// end;
with CDS_2 do
FCIFName := Trim(TSpeedButton(Sender).Hint);
MovePanel1.Visible := True;
Panel10.Enabled := false;
Panel2.Enabled := false;
lblCIFName.Caption := Trim(FCIFName);
CIFNumber.SetFocus;
//显示数字键盘
// CIFBeg.Text := InputLen.Text;
with Panel3 do
begin
Append;
FieldByName('CIFName').Value := Trim(TSpeedButton(Sender).Hint);
FieldByName('CIFbeg').Value := Trim(InputLen.Text);
FieldByName('CIFEnd').Value := 0;
FieldByName('CIFNumber').Value := 1;
FieldByName('CIFPoints').Value := 0;
if RadioGroup1.ItemIndex > -1 then
for i := 0 to ControlCount - 1 do
begin
if RadioGroup1.ItemIndex < 3 then
if Controls[i] is TSpeedButton then
begin
FieldByName('CIFPoints').Value := RadioGroup1.ItemIndex + 1;
end
else
begin
FieldByName('CIFPoints').Value := 4;
TSpeedButton(Controls[i]).Hint := Trim(CIFNumber.Name);
end;
end;
FieldByName('CIFQty').Value := 0;
Post;
end;
EDTSCAN.SetFocus();
// with CDS_2 do
// begin
// Append;
// FieldByName('CIFName').Value := Trim(TSpeedButton(Sender).Hint);
// FieldByName('CIFbeg').Value := Trim(InputLen.Text);
// FieldByName('CIFEnd').Value := 0;
// FieldByName('CIFNumber').Value := 1;
// FieldByName('CIFPoints').Value := 0;
// if RadioGroup1.ItemIndex > -1 then
// begin
// if RadioGroup1.ItemIndex < 3 then
// begin
// FieldByName('CIFPoints').Value := RadioGroup1.ItemIndex + 1;
// end
// else
// begin
// FieldByName('CIFPoints').Value := 4;
// end;
// end;
// FieldByName('CIFQty').Value := 0;
// Post;
// end;
// EDTSCAN.SetFocus();
end;
procedure TfrmKnitMachInsp.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@ -1521,7 +1607,12 @@ procedure TfrmKnitMachInsp.Button1Click(Sender: TObject);
var
mvalue: Double;
begin
if CIFNumber.Text = '' then
begin
Application.MessageBox('请输入疵点个数!', '提示', 0);
CIFNumber.SetFocus;
Exit;
end;
if Trim(CIFBeg.Text) <> '' then
begin
if Trim(CIFEnd.Text) <> '' then
@ -1575,7 +1666,16 @@ begin
CIFQty.Text := '';
CIFNumber.Text := '';
MovePanel1.Visible := False;
Panel10.Enabled := true;
Panel2.Enabled := true;
cxPageControl1.ActivePageIndex := 0;
edtScan.SetFocus;
end;
procedure TfrmKnitMachInsp.Timer1Timer(Sender: TObject);
begin
// Timer1.Enabled := False; // 停止计时器
// BTPrint.Enabled := True; // 重新启用按钮
end;
procedure TfrmKnitMachInsp.ToolButton10Click(Sender: TObject);
@ -1732,13 +1832,28 @@ begin
edtScan.Text := '';
exit;
end;
with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('select * from Knit_Cloth_Inspect where PCID=''' + Trim(edtScan.Text) + '''');
Open;
end;
if not ADOTmp.IsEmpty then
begin
PlayWav('布票已检验');
edtScan.Text := '';
application.MessageBox('布票已检验', '提示信息', MB_ICONERROR);
exit;
end;
// BTPrint.Enabled := False; // 禁用按钮
// Timer1.Enabled := True; // 启动计时器
ClearGlobal();
FOperationStatus := '缸条码';
InitLCK(edtScan.Text);
InitJYGrid();
// GrossWeight.SetFocus;
InputLen.SetFocus;
edtScan.SetFocus;
end;
end;
@ -1845,7 +1960,7 @@ begin
Panel6.Visible := False
else
Panel6.Visible := True;
edtScan.SetFocus;
end;
procedure TfrmKnitMachInsp.GrossWeightChange(Sender: TObject);
@ -1895,6 +2010,9 @@ end;
procedure TfrmKnitMachInsp.Button4Click(Sender: TObject);
begin
MovePanel1.Visible := false;
Panel10.Enabled := true;
Panel2.Enabled := true;
edtScan.SetFocus;
end;
procedure TfrmKnitMachInsp.ToolButton3Click(Sender: TObject);
@ -1965,6 +2083,7 @@ begin
sql.Add('insert into Knit_Cloth_IO_Del select * from Knit_Cloth_IO where StkId=''' + Trim(CDS_3.fieldbyname('CIID').AsString) + '''');
sql.Add('insert into Knit_Cloth_Stock_Del select * from Knit_Cloth_Stock where StkId=''' + Trim(CDS_3.fieldbyname('CIID').AsString) + '''');
sql.Add('insert into Knit_Cloth_Inspect_Flaw_Del select * from Knit_Cloth_Inspect_Flaw where CIID=''' + Trim(CDS_3.fieldbyname('CIID').AsString) + '''');
sql.Add('insert into Bs_Machine_Maint_Del select * from Bs_Machine_Maint where PCID=''' + Trim(CDS_3.fieldbyname('CIID').AsString) + '''');
sql.Add('update Knit_Cloth_Inspect_Del set DelId=' + quotedstr(trim(DCode)) + ',Deler=' + quotedstr(trim(DName)) + ',Deltime=getdate() where CIID=''' + Trim(CDS_3.fieldbyname('CIID').AsString) + '''');
sql.Add('update Knit_Cloth_IO_Del set DelId=' + quotedstr(trim(DCode)) + ',Deler=' + quotedstr(trim(DName)) + ',Deltime=getdate() where StkId=''' + Trim(CDS_3.fieldbyname('CIID').AsString) + '''');
@ -1977,6 +2096,7 @@ begin
sql.Add('delete Knit_Cloth_Stock where StkId=''' + Trim(CDS_3.fieldbyname('CIID').AsString) + '''');
sql.Add('delete Knit_Cloth_Inspect_Flaw where CIID=''' + Trim(CDS_3.fieldbyname('CIID').AsString) + '''');
sql.Add('delete Knit_Cloth_knitter where CIID=''' + Trim(CDS_3.fieldbyname('CIID').AsString) + '''');
sql.Add('delete Bs_Machine_Maint where PCID=''' + Trim(CDS_3.fieldbyname('CIID').AsString) + '''');
sql.Add('insert into Knit_Need_Up(UType,UDataId) values(''检验删除'',' + quotedstr(Trim(CDS_3.fieldbyname('CIID').AsString)) + ') ');
@ -2105,6 +2225,7 @@ begin
ScrollBox1.Visible := False
else
ScrollBox1.Visible := True;
edtScan.SetFocus;
end;
procedure TfrmKnitMachInsp.Button8Click(Sender: TObject);
@ -2113,6 +2234,7 @@ begin
Panel7.Visible := False
else
Panel7.Visible := True;
edtScan.SetFocus;
end;
end.

4
F01染色坯布仓库/DyeGreyClothStk.dpr
View File

@ -23,11 +23,11 @@ uses
U_ClothInfoSel in '..\A00通用窗体\U_ClothInfoSel.pas' {frmClothInfoSel},
U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel},
U_EmployeeSel in '..\A00通用窗体\U_EmployeeSel.pas' {frmEmployeeSel},
// U_DyePlanCardSel in '..\F00染色通用窗体\U_DyePlanCardSel.pas' {frmDyePlanCardSel},
U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas';
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_DyeDJBClothStkList in 'U_DyeDJBClothStkList.pas' {frmDyeDJBClothStkList};
{$R *.res}

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

@ -187,6 +187,10 @@
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<DCCReference Include="U_DyeDJBClothStkList.pas">
<Form>frmDyeDJBClothStkList</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

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

@ -1,46 +1,47 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.865,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.791,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.619,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.619,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>2025-08-21 15:40:49.996,=D:\Dp10Repo\项目代码\D10gmBitao\F01染色坯布仓库\U_DyeDJBClothStkList.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -111,5 +112,7 @@
<File Path="U_DataLink.dfm"/>
<File Path="U_GetDllForm.pas"/>
<File Path="U_iniParam.pas"/>
<File Path="U_DyeDJBClothStkList.pas"/>
<File Path="U_DyeDJBClothStkList.dfm"/>
</ProjectSortOrder>
</BorlandProject>

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

Binary file not shown.

5
F01染色坯布仓库/DyeGreyClothStk.skincfg Normal file
View File

@ -0,0 +1,5 @@
[ExpressSkins]
Default=1
ShowNotifications=1
Enabled=1
dxSkinsDefaultPainters=1

11
F01染色坯布仓库/U_DyeDJBClothInList.dfm
View File

@ -1,7 +1,7 @@
inherited frmDyeDJBClothInList: TfrmDyeDJBClothInList
Left = 165
Top = 111
Caption = #20837#24211#21015#34920
Caption = #24453#26816#24067#20837#24211#21015#34920
ClientHeight = 543
ClientWidth = 1284
ExplicitWidth = 1300
@ -53,6 +53,7 @@ inherited frmDyeDJBClothInList: TfrmDyeDJBClothInList
AutoSize = True
Caption = #20837#24211
ImageIndex = 9
Visible = False
OnClick = TBAddClick
end
object TBEdit: TToolButton
@ -635,6 +636,14 @@ inherited frmDyeDJBClothInList: TfrmDyeDJBClothInList
Options.Editing = False
Width = 72
end
object cxgrdbclmnTv1Column12: TcxGridDBColumn
Caption = #36710#31568#21495
DataBinding.FieldName = 'JIAZINO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1

3
F01染色坯布仓库/U_DyeDJBClothInList.pas
View File

@ -97,6 +97,7 @@ type
Label11: TLabel;
C_XINHAO: TEdit;
C_ColorDepth: TEdit;
cxgrdbclmnTv1Column12: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -170,7 +171,7 @@ begin
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(' from BS_Cloth_IO A');
sql.Add(' from Dye_Cloth_IO A');
sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
sql.Add(' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''');

518
F01染色坯布仓库/U_DyeDJBClothStkList.dfm Normal file
View File

@ -0,0 +1,518 @@
inherited frmDyeDJBClothStkList: TfrmDyeDJBClothStkList
Left = 105
Top = 131
Caption = #24211#23384#36873#25321#21015#34920
ClientHeight = 472
ClientWidth = 1400
Position = poDefault
ExplicitWidth = 1416
ExplicitHeight = 511
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1400
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_DyeGreyClothStk.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
Visible = False
OnClick = TBFindClick
end
object ToolButton2: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #20462#25913#24211#20301
ImageIndex = 3
Visible = False
OnClick = ToolButton1Click
end
object Edit1: TEdit
Left = 332
Top = 0
Width = 100
Height = 38
TabOrder = 0
Visible = False
end
object TBClose: TToolButton
Left = 432
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1400
Height = 36
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label3: TLabel
Left = 355
Top = 12
Width = 24
Height = 12
Caption = #21697#21517
end
object Label4: TLabel
Left = 187
Top = 12
Width = 24
Height = 12
Caption = #23458#25143
end
object Label8: TLabel
Left = 497
Top = 12
Width = 24
Height = 12
Caption = #35268#26684
end
object Label2: TLabel
Left = 638
Top = 12
Width = 36
Height = 12
Caption = #22411' '#21495
end
object Label5: TLabel
Left = 769
Top = 12
Width = 36
Height = 12
Caption = #19994#21153#21592
end
object Label1: TLabel
Left = 901
Top = 11
Width = 24
Height = 12
Caption = #24211#20301
end
object C_name: TEdit
Tag = 2
Left = 382
Top = 8
Width = 100
Height = 20
TabOrder = 0
OnChange = TBFindClick
end
object FromCoName: TEdit
Tag = 2
Left = 216
Top = 8
Width = 78
Height = 20
TabOrder = 1
OnChange = FromCoNameChange
end
object C_spec: TEdit
Tag = 2
Left = 524
Top = 8
Width = 100
Height = 20
TabOrder = 2
OnChange = TBFindClick
end
object C_XINHAO: TEdit
Tag = 2
Left = 677
Top = 8
Width = 78
Height = 20
TabOrder = 3
OnChange = FromCoNameChange
end
object Saleser: TEdit
Tag = 2
Left = 808
Top = 8
Width = 78
Height = 20
TabOrder = 4
OnChange = FromCoNameChange
end
object StkPosition: TEdit
Tag = 2
Left = 930
Top = 8
Width = 78
Height = 20
TabOrder = 5
OnChange = FromCoNameChange
end
end
object cxGrid2: TcxGrid [2]
Left = 0
Top = 74
Width = 1400
Height = 398
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
Column = v1Column1
end
item
Kind = skSum
Column = v1Column1
end
item
Kind = skSum
Position = spFooter
Column = v1Column7
end
item
Kind = skSum
Position = spFooter
Column = v1Column9
end
item
Kind = skSum
Column = v1Column7
end
item
Kind = skSum
Column = v1Column9
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
Column = v2Column6
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Column1
end
item
Kind = skSum
Column = v1Column7
end
item
Kind = skSum
Column = v1Column9
end
item
Format = #26465#25968':0'
Kind = skCount
Column = v1Column6
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_DyeGreyClothStk.SHuangSe
Styles.Header = DataLink_DyeGreyClothStk.Default
Styles.Inactive = DataLink_DyeGreyClothStk.SHuangSe
Styles.Selection = DataLink_DyeGreyClothStk.SHuangSe
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
end
object v1Column14: TcxGridDBColumn
Tag = 2
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 108
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 131
end
object v1Column4: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column5: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object Tv1Column4: TcxGridDBColumn
Caption = #24037#33402
DataBinding.FieldName = 'C_GONGYI'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object Tv1Column6: TcxGridDBColumn
Caption = #26426#21488
DataBinding.FieldName = 'C_JITAI'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 69
end
object v1Column10: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
end
object v1Column11: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 68
end
object v1Column12: TcxGridDBColumn
Caption = #32852#31995#26041#24335
DataBinding.FieldName = 'SalesPhone'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 73
end
object v1Column7: TcxGridDBColumn
Caption = #20837#24211#21305#25968
DataBinding.FieldName = 'piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 62
end
object v1Column9: TcxGridDBColumn
Caption = #20837#24211#25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 63
end
object v1Column1: TcxGridDBColumn
Caption = #24211#23384#21305#25968
DataBinding.FieldName = 'stkpiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
end
object v2Column6: TcxGridDBColumn
Tag = 2
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'stkqty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 51
end
object Tv1Column2: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
end
object Tv1Column1: TcxGridDBColumn
Caption = #33394#21035
DataBinding.FieldName = 'C_ColorDepth'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object Tv1Column3: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'StkPosition'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column3PropertiesButtonClick
Properties.OnEditValueChanged = Tv1Column3PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 69
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_DyeGreyClothStk.ADOLink
Left = 305
Top = 176
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_DyeGreyClothStk.ADOLink
Left = 209
Top = 129
end
object ADOQueryCmd: TADOQuery
ConnectionString = 'BS_Cloth_IO'
Parameters = <>
Left = 640
Top = 136
end
object ADOQueryMain: TADOQuery
Connection = DataLink_DyeGreyClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 752
Top = 128
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 656
Top = 232
end
object cxGridPopupMenu1: TcxGridPopupMenu
PopupMenus = <>
Left = 536
Top = 240
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 720
Top = 232
end
object CDS_HZ: TClientDataSet
Aggregates = <>
Params = <>
Left = 472
Top = 232
end
object PopupMenu1: TPopupMenu
Left = 368
Top = 240
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_DyeGreyClothStk.ADOLink
Parameters = <>
Left = 508
Top = 292
end
end

333
F01染色坯布仓库/U_DyeDJBClothStkList.pas Normal file
View File

@ -0,0 +1,333 @@
unit U_DyeDJBClothStkList;
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, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
dxScrollbarAnnotations;
type
TfrmDyeDJBClothStkList = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
DataSource1: TDataSource;
cxGridPopupMenu1: TcxGridPopupMenu;
CDS_Main: TClientDataSet;
CDS_HZ: TClientDataSet;
PopupMenu1: TPopupMenu;
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
Label3: TLabel;
Label4: TLabel;
Label8: TLabel;
Label2: TLabel;
C_name: TEdit;
FromCoName: TEdit;
C_spec: TEdit;
C_XINHAO: TEdit;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
Label5: TLabel;
Saleser: TEdit;
ToolButton2: TToolButton;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Label1: TLabel;
StkPosition: TEdit;
ToolButton1: TToolButton;
Edit1: TEdit;
ADOQueryTmp: TADOQuery;
Tv1Column4: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure MPRTCodeNameChange(Sender: TObject);
procedure SXBatchNOChange(Sender: TObject);
procedure FromCoNameChange(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure FormCreate(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure Tv1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column3PropertiesChange(Sender: TObject);
procedure Tv1Column3PropertiesEditValueChanged(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
FstkName, FWorkshop: string;
{ Public declarations }
end;
var
frmDyeDJBClothStkList: TfrmDyeDJBClothStkList;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp;
{$R *.dfm}
procedure TfrmDyeDJBClothStkList.FormDestroy(Sender: TObject);
begin
inherited;
frmDyeDJBClothStkList := nil;
end;
procedure TfrmDyeDJBClothStkList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmDyeDJBClothStkList.FormCreate(Sender: TObject);
begin
inherited;
FWorkshop := Trim(self.fParameters3);
end;
procedure TfrmDyeDJBClothStkList.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(' from Dye_Cloth_IO A ');
SQL.Add(' where A.IOFlag=''入库'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
if trim(FWorkshop) <> '' then
sql.Add(' and A.Workshop=''' + trim(FWorkshop) + ''' ');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmDyeDJBClothStkList.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmDyeDJBClothStkList.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmDyeDJBClothStkList.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmDyeDJBClothStkList.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(Self.Caption), Tv1, '染色坯布仓库');
InitGrid();
end;
procedure TfrmDyeDJBClothStkList.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 TfrmDyeDJBClothStkList.MPRTCodeNameChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmDyeDJBClothStkList.SXBatchNOChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmDyeDJBClothStkList.FromCoNameChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmDyeDJBClothStkList.ToolButton1Click(Sender: TObject);
var
FPiZhong: string;
FReal: Double;
begin
if Trim(edit1.Text) = '' then
begin
Application.MessageBox('库位不能为空!', '提示', 0);
Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' update BS_Cloth_IO set StkPosition=' + quotedstr(Trim(edit1.Text)));
sql.Add(' where bcioid= ' + quotedstr(cds_main.FieldByName('bcioid').asstring));
// sql.Add('Update JYOrder_Main Set StkPosition=' + quotedstr(edit1.Text));
// sql.Add(' where Mainid=''' + Trim(CDS_MAIN.fieldbyname('Mainid').AsString) + '''');
ExecSQL;
end;
with CDS_MAIN do
begin
Edit;
FieldByName('StkPosition').Value := edit1.Text;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmDyeDJBClothStkList.ToolButton2Click(Sender: TObject);
begin
WriteCxGrid(trim(Self.Caption), Tv1, '染色坯布仓库');
end;
procedure TfrmDyeDJBClothStkList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
ModalResult := 1;
end;
procedure TfrmDyeDJBClothStkList.Tv1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
inherited;
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'StkPosition';
flagname := '库位';
MainType := FSTKName;
if ShowModal = 1 then
begin
with Self.CDS_Main do
begin
Edit;
FieldByName('StkPosition').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' update BS_Cloth_IO set StkPosition=' + quotedstr(Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString)));
sql.Add(' where bcioid= ' + quotedstr(cds_main.FieldByName('bcioid').asstring));
execsql;
end;
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmDyeDJBClothStkList.Tv1Column3PropertiesChange(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_Main do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
end;
with ADOQueryTmp do
begin
Close;
sql.Clear;
sql.Add(' update BS_Cloth_IO set StkPosition=' + quotedstr(Trim(mvalue)));
sql.Add(' where bcioid= ' + quotedstr(cds_main.FieldByName('bcioid').asstring));
execsql;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmDyeDJBClothStkList.Tv1Column3PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_Main do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
end;
with ADOQueryTmp do
begin
Close;
sql.Clear;
sql.Add(' update BS_Cloth_IO set StkPosition=' + quotedstr(Trim(mvalue)));
sql.Add(' where bcioid= ' + quotedstr(cds_main.FieldByName('bcioid').asstring));
execsql;
end;
tv1.Controller.EditingController.ShowEdit();
end;
end.

45
F01染色坯布仓库/U_DyeGreyClothOutEdit.dfm
View File

@ -22,7 +22,7 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
ButtonWidth = 115
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
@ -60,16 +60,32 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
ImageIndex = 6
OnClick = TBDelClick
end
object ToolButton1: TToolButton
object btn2: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #20986#21040#40857#28216#30887#28059
ImageIndex = 3
OnClick = btn2Click
end
object btn1: TToolButton
Left = 332
Top = 0
AutoSize = True
Caption = #20986#21040#26477#24030#30887#28059
ImageIndex = 3
OnClick = btn1Click
end
object ToolButton1: TToolButton
Left = 451
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 308
Left = 546
Top = 0
AutoSize = True
Caption = #20851#38381
@ -122,7 +138,7 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
object v1Column13: TcxGridDBColumn
Tag = 2
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.FieldName = 'FromOrdNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
@ -187,6 +203,7 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Width = 99
end
object Tv1Column2: TcxGridDBColumn
Tag = 2
Caption = #20986#21040#21333#20301
DataBinding.FieldName = 'ToCoName'
DataBinding.IsNullValueType = True
@ -202,6 +219,7 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Width = 80
end
object Tv1Column3: TcxGridDBColumn
Tag = 2
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
@ -266,6 +284,7 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
@ -289,7 +308,7 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
end
object Tv1Column12: TcxGridDBColumn
Tag = 2
Caption = #26550#23376#21495
Caption = #36710#31568#21495
DataBinding.FieldName = 'JIAZINO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@ -300,6 +319,7 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Caption = #22411#21495
DataBinding.FieldName = 'C_XINHAO'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 66
end
@ -316,6 +336,7 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Caption = #26426#21488
DataBinding.FieldName = 'c_Jitai'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 70
end
@ -349,6 +370,7 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Caption = #21305#37325
DataBinding.FieldName = 'PieceWeight'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 66
end
@ -356,6 +378,7 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Caption = #33394#21035
DataBinding.FieldName = 'C_ColorDepth'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
@ -364,6 +387,7 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
@ -381,6 +405,7 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Caption = #35013#26694
DataBinding.FieldName = 'C_ZHUANGKUANG'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 68
end
@ -389,9 +414,19 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Caption = #21152#24613
DataBinding.FieldName = 'C_JIAJI'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 67
end
object cxgrdbclmnTv1Column13: TcxGridDBColumn
Tag = 2
Caption = #27969#31243#21345'ID'
DataBinding.FieldName = 'LCKID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1

123
F01染色坯布仓库/U_DyeGreyClothOutEdit.pas
View File

@ -58,6 +58,9 @@ type
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
btn1: TToolButton;
btn2: TToolButton;
cxgrdbclmnTv1Column13: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -67,6 +70,8 @@ type
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ToolButton1Click(Sender: TObject);
procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure btn2Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
function SaveCKData(): Boolean;
@ -85,6 +90,48 @@ uses
{$R *.dfm}
procedure TfrmDyeGreyClothOutEdit.btn1Click(Sender: TObject);
begin
if CDS_Sub.IsEmpty then
Exit;
CDS_Sub.DisableControls;
with CDS_Sub do
begin
First;
while not Eof do
begin
Edit;
FieldByName('ToCoNo').Value := 'G0249';
FieldByName('ToCoName').Value := '杭州碧涛';
FieldByName('StkCoName').Value := '杭州碧涛';
Post;
next;
end;
end;
CDS_Sub.EnableControls;
end;
procedure TfrmDyeGreyClothOutEdit.btn2Click(Sender: TObject);
begin
if CDS_Sub.IsEmpty then
Exit;
CDS_Sub.DisableControls;
with CDS_Sub do
begin
First;
while not Eof do
begin
Edit;
FieldByName('ToCoNo').Value := 'G0285';
FieldByName('ToCoName').Value := '龙游碧涛';
FieldByName('StkCoName').Value := '龙游碧涛';
Post;
next;
end;
end;
CDS_Sub.EnableControls;
end;
procedure TfrmDyeGreyClothOutEdit.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
@ -111,7 +158,9 @@ begin
Append;
FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('STKID').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('BCIOID').Value;
FieldByName('LCKID').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('LCKID').Value;
FieldByName('IOType').Value := '加工出库';
FieldByName('FromOrdNo').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('FromOrdNo').Value;
FieldByName('FromCoNo').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('FromCoNo').Value;
FieldByName('FromCoName').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('FromCoName').Value;
FieldByName('StkCoNo').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('StkCoNo').Value;
@ -136,7 +185,7 @@ begin
FieldByName('C_XINHAO').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('C_XINHAO').Value;
FieldByName('C_GONGYI').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('C_GONGYI').Value;
FieldByName('JIAZINO').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('JIAZINO').Value;
FieldByName('C_JITAI').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('C_JITAI').Value;
FieldByName('C_ZHUANGKUANG').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('C_ZHUANGKUANG').Value;
@ -171,13 +220,13 @@ begin
begin
Close;
sql.Clear;
sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(CDS_Sub.fieldbyname('BCIOID').AsString) + '''');
sql.Add('select * from Dye_Cloth_IO where BCIOID=''' + Trim(CDS_Sub.fieldbyname('BCIOID').AsString) + '''');
Open;
end;
MBCIOID := Trim(ADOQueryTemp.fieldbyname('BCIOID').AsString);
if Trim(MBCIOID) = '' then
begin
if not GetLSNo(ADOQueryCmd, Maxno, 'PC', 'BS_Cloth_IO', 3, 1) then
if not GetLSNo(ADOQueryCmd, Maxno, 'C', 'Dye_Cloth_IO', 4, 1) then
raise Exception.Create('取染色坯布出库编号失败！');
end
else
@ -188,7 +237,7 @@ begin
begin
Close;
sql.Clear;
sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(Maxno) + '''');
sql.Add('select * from Dye_Cloth_IO where BCIOID=''' + Trim(Maxno) + '''');
Open;
end;
with ADOQueryCmd do
@ -204,9 +253,8 @@ begin
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
end;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'BS_Cloth_IO', 2);
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'Dye_Cloth_IO', 2);
FieldByName('STKName').Value := FSTKName;
FieldByName('Workshop').Value := FWorkshop;
FieldByName('BCIOID').Value := Trim(Maxno);
FieldByName('IOFlag').Value := '出库';
FieldByName('IOQtyFlag').Value := -1;
@ -215,33 +263,39 @@ begin
FieldByName('FromCoName').Value := CDS_Sub.fieldbyname('FromCoName').Value;
FieldByName('StkCoNo').Value := CDS_Sub.fieldbyname('StkCoNo').Value;
FieldByName('ToCoNo').Value := CDS_Sub.fieldbyname('ToCoNo').Value;
FieldByName('ISInspection').value := '否';
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update BS_Cloth_IO Set StkPiece=(select Sum(isnull(Piece,0)*IOQtyFlag) from BS_Cloth_IO A where A.STKID=BS_Cloth_IO.BCIOID)');
sql.Add(',STKQty=(select Sum(isnull(Qty,0)*IOQtyFlag) from BS_Cloth_IO A where A.STKID=BS_Cloth_IO.BCIOID )');
sql.Add('where BCIOID=''' + Trim(CDS_Sub.fieldbyname('STKID').AsString) + '''');
ExecSQL;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(CDS_Sub.fieldbyname('STKID').AsString) + '''');
sql.Add(' select BCIOID,FromCoName,StkCoName,C_Name,stkqty=sum(ioqtyflag*qty),stkPiece=sum(ioqtyflag*piece),QtyUnit,StkPosition ');
sql.Add(' from Dye_Cloth_IO A ');
SQL.Add(' where 1=1 '); // isnull(StkQty,0)>0
if FstkName <> '' then
begin
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
end;
SQL.Add('GROUP BY BCIOID,FromCoName,StkCoName,C_Name,QtyUnit,StkPosition');
SQL.Add('HAVING sum(ioqtyflag*qty)<0 and sum(ioqtyflag*piece) < 0');
sql.Add('order by BCIOID,StkCoName,C_Name');
// showmessage(sql.Text);
// sql.Add('select * from BS_Yarn_IO where BYIOID=''' + Trim(CDS_Sub.fieldbyname('STKID').AsString) + '''');
Open;
end;
if ADOQueryTemp.FieldByName('StkPiece').Value < 0 then
if (ADOQueryTemp.FieldByName('stkqty').Value > CDS_Sub.fieldbyname('Qty').Value) or (ADOQueryTemp.FieldByName('stkPiece').Value > CDS_Sub.fieldbyname('Piece').Value) then
raise Exception.Create('出库数量大于入库数量不能保存！');
if ADOQueryTemp.FieldByName('StkPiece').Value < 0 then
raise Exception.Create('出库匹数大于入库匹数不能保存！');
Edit;
FieldByName('BCIOID').Value := Trim(Maxno);
Post;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update Dye_Cloth_IO Set StkPiece=StkPiece-' + CDS_Sub.fieldbyname('Piece').AsString);
sql.Add(',STKQty=STKQty-' + CDS_Sub.fieldbyname('Qty').AsString);
sql.Add('where BCIOID=''' + Trim(CDS_Sub.fieldbyname('STKID').AsString) + '''');
// showmessage(sql.Text);
ExecSQL;
end;
Next;
end;
end;
@ -258,7 +312,7 @@ end;
procedure TfrmDyeGreyClothOutEdit.TBCloseClick(Sender: TObject);
begin
ModalResult := 1;
Close;
end;
@ -273,7 +327,7 @@ begin
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(' from BS_Cloth_IO A');
sql.Add(' from Dye_Cloth_IO A');
sql.Add(' where BCIOID=''' + Trim(FBCId) + '''');
Open;
end;
@ -284,6 +338,7 @@ begin
end;
procedure TfrmDyeGreyClothOutEdit.TBDelClick(Sender: TObject);
begin
if CDS_Sub.IsEmpty then
Exit;
@ -299,7 +354,7 @@ begin
Close;
Sql.Clear;
Sql.Add('exec P_BS_Cloth_Out_Del ');
Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString)));
Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_Sub.fieldbyname('STKID').AsString)));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
Open;
@ -332,6 +387,16 @@ begin
Application.MessageBox('出库类型不能为空!', '提示', 0);
Exit;
end;
if CDS_Sub.Locate('ToCoName', null, []) = True then
begin
Application.MessageBox('出到单位不能为空!', '提示', 0);
Exit;
end;
if CDS_Sub.Locate('ToCoName', '', []) = True then
begin
Application.MessageBox('出到单位不能为空!', '提示', 0);
Exit;
end;
{ if CDS_Sub.Locate('CRType;LCKNO', VarArrayOf(['加工出库', Null]), [loPartialKey]) then
begin
Application.MessageBox('加工出库的数据流程卡号不能为空!','提示',0);
@ -350,7 +415,7 @@ begin
if SaveCKData() then
begin
Application.MessageBox('保存成功!', '提示', 0);
//ModalResult:=1;
ModalResult:=1;
Exit;
end;
end;
@ -400,7 +465,7 @@ begin
begin
Close;
sql.Clear;
sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(CDS_Sub.fieldbyname('BCIOID').AsString) + '''');
sql.Add('select * from Dye_Cloth_IO where BCIOID=''' + Trim(CDS_Sub.fieldbyname('BCIOID').AsString) + '''');
Open;
end;
FFSPID := Trim(ADOQueryTemp.fieldbyname('BCIOID').AsString);

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

@ -115,6 +115,7 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
ExplicitTop = 32
object Label1: TLabel
Left = 28
Top = 12
@ -155,56 +156,42 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Top = 39
Width = 24
Height = 12
Caption = #35268#26684
Caption = #38376#24133
end
object Label12: TLabel
Left = 179
Top = 39
Width = 48
Height = 12
Caption = #20986#24211#31867#22411
Caption = #26159#21542#26816#39564
end
object Label9: TLabel
Left = 443
Top = 39
Width = 36
Height = 12
Caption = #22411' '#21495
Caption = #20811' '#37325
end
object Label6: TLabel
Left = 587
Top = 39
Width = 48
Height = 12
Caption = #35745#21010#21333#21495
end
object Label7: TLabel
Left = 587
Top = 12
Width = 48
Height = 12
Caption = #23458#25143#21333#21495
Caption = #35745#21010#21333#21495
end
object Label10: TLabel
Left = 729
Top = 11
Width = 24
object lbl1: TLabel
Left = 587
Top = 39
Width = 48
Height = 12
Caption = #38376#24133
Caption = #27969#31243#21345#21495
end
object Label11: TLabel
Left = 729
Top = 36
Width = 24
object lbl2: TLabel
Left = 760
Top = 12
Width = 36
Height = 12
Caption = #20811#37325
end
object Label14: TLabel
Left = 879
Top = 35
Width = 24
Height = 12
Caption = #33394#21035
Caption = #36710#31568#21495
end
object BegDate: TDateTimePicker
Left = 77
@ -231,103 +218,85 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Width = 80
Height = 20
TabOrder = 2
OnChange = TBFindClick
OnChange = C_NAMEChange
end
object FTYName: TEdit
object FromCoName: TEdit
Tag = 2
Left = 483
Top = 8
Width = 80
Height = 20
TabOrder = 3
OnChange = C_specChange
OnChange = C_WidthChange
end
object BCIOID: TEdit
Tag = 2
Left = 228
Top = 8
Left = 232
Top = 9
Width = 80
Height = 20
TabOrder = 4
OnChange = BCIOIDChange
end
object C_spec: TEdit
object C_Width: TEdit
Tag = 2
Left = 348
Top = 35
Width = 80
Height = 20
TabOrder = 5
OnChange = C_specChange
OnChange = C_WidthChange
end
object IOType: TComboBox
object ISInspection: TComboBox
Tag = 2
Left = 228
Left = 232
Top = 35
Width = 80
Height = 20
Style = csDropDownList
DropDownCount = 20
TabOrder = 6
OnChange = TBFindClick
OnChange = ISInspectionChange
Items.Strings = (
#21152#24037#20986#24211
#36864#36824
#22806#21152#24037#20986#24211)
''
#26159
#21542)
end
object C_XINHAO: TEdit
object C_GramWeight: TEdit
Tag = 2
Left = 483
Top = 35
Width = 80
Height = 20
TabOrder = 7
OnChange = C_specChange
OnChange = C_WidthChange
end
object OrderNo: TEdit
Tag = 2
Left = 636
Top = 35
Width = 80
Height = 20
TabOrder = 8
OnChange = C_specChange
end
object FTYNo: TEdit
object FromOrdNo: TEdit
Tag = 2
Left = 636
Top = 8
Width = 80
Width = 100
Height = 20
TabOrder = 8
OnChange = C_WidthChange
end
object LCKID: TEdit
Tag = 2
Left = 636
Top = 35
Width = 100
Height = 20
TabOrder = 9
OnChange = C_specChange
OnChange = C_WidthChange
end
object C_Width: TEdit
object JIAZINO: TEdit
Tag = 2
Left = 756
Top = 7
Left = 802
Top = 8
Width = 100
Height = 20
TabOrder = 10
OnChange = TBFindClick
end
object C_GramWeight: TEdit
Tag = 2
Left = 756
Top = 31
Width = 100
Height = 20
TabOrder = 11
OnChange = C_specChange
end
object C_ColorDepth: TEdit
Tag = 2
Left = 906
Top = 30
Width = 100
Height = 20
TabOrder = 12
OnChange = C_specChange
OnChange = C_WidthChange
end
end
object cxGrid2: TcxGrid [2]
@ -338,8 +307,6 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Align = alClient
PopupMenu = PM_1
TabOrder = 2
ExplicitLeft = -26
ExplicitTop = 115
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -460,7 +427,7 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
end
object v1Column14: TcxGridDBColumn
Tag = 2
Caption = #26469#33258#21333#20301
Caption = #23458#25143
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
@ -547,7 +514,7 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
end
object Tv1Column1: TcxGridDBColumn
Caption = #27969#31243#21495
DataBinding.FieldName = 'ToPCId'
DataBinding.FieldName = 'LCKID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
@ -556,6 +523,7 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 68
@ -570,14 +538,14 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
end
object v1Column18: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.FieldName = 'FromOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object Tv1Column13: TcxGridDBColumn
Caption = #26550#23376#21495
Caption = #36710#31568#21495
DataBinding.FieldName = 'JIAZINO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@ -587,6 +555,7 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Caption = #36710#38388
DataBinding.FieldName = 'Workshop'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
@ -603,6 +572,7 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Caption = #22411#21495
DataBinding.FieldName = 'C_XINHAO'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 70
end
@ -617,6 +587,7 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Caption = #26426#21488
DataBinding.FieldName = 'C_JITAI'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 71
end
@ -624,6 +595,7 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Caption = #35013#26694
DataBinding.FieldName = 'C_ZHUANGKUANG'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 68
end
@ -631,6 +603,7 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Caption = #21152#24613
DataBinding.FieldName = 'C_JIAJI'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 68
end
@ -656,6 +629,7 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Caption = #21305#37325
DataBinding.FieldName = 'PieceWeight'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 66
end
@ -664,12 +638,14 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1Column7: TcxGridDBColumn
Caption = #24067#31181#32534#21495
DataBinding.FieldName = 'C_COde'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 66
end
@ -685,10 +661,19 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Caption = #33394#21035
DataBinding.FieldName = 'C_ColorDepth'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object cxgrdbclmnTv1Column14: TcxGridDBColumn
Caption = #26159#21542#26816#39564
DataBinding.FieldName = 'ISInspection'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1

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

@ -12,7 +12,7 @@ uses
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,Clipbrd,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, Clipbrd,
dxScrollbarAnnotations;
type
@ -61,16 +61,16 @@ type
Label8: TLabel;
Label12: TLabel;
C_NAME: TEdit;
FTYName: TEdit;
FromCoName: TEdit;
BCIOID: TEdit;
C_spec: TEdit;
IOType: TComboBox;
C_Width: TEdit;
ISInspection: TComboBox;
v1Column20: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
Label9: TLabel;
C_XINHAO: TEdit;
C_GramWeight: TEdit;
v1Column5: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
@ -78,9 +78,7 @@ type
v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
Label6: TLabel;
OrderNo: TEdit;
Label7: TLabel;
FTYNo: TEdit;
FromOrdNo: TEdit;
Tv1Column2: TcxGridDBColumn;
ToolButton1: TToolButton;
Tv1Column1: TcxGridDBColumn;
@ -93,12 +91,6 @@ type
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Label10: TLabel;
Label11: TLabel;
C_Width: TEdit;
C_GramWeight: TEdit;
Label14: TLabel;
C_ColorDepth: TEdit;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
@ -106,6 +98,11 @@ type
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
N3: TMenuItem;
lbl1: TLabel;
LCKID: TEdit;
lbl2: TLabel;
JIAZINO: TEdit;
cxgrdbclmnTv1Column14: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -122,11 +119,13 @@ type
procedure TBDelClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure C_specChange(Sender: TObject);
procedure C_WidthChange(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure ISInspectionChange(Sender: TObject);
procedure C_NAMEChange(Sender: TObject);
private
canshu1, canshu2, FWorkshop: string;
procedure InitGrid();
@ -177,21 +176,13 @@ begin
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(' from BS_Cloth_IO A');
sql.Add(' from Dye_Cloth_IO A');
sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
SQL.Add(' and ioFlag=''³ö¿â'' ');
if trim(FWorkshop) <> '' then
sql.Add(' and A.Workshop=''' + trim(FWorkshop) + ''' ');
// if cxTabControl1.TabIndex = 0 then
// begin
// Sql.Add(' and ZFFlag=0 ');
// end
// else if cxTabControl1.TabIndex = 1 then
// begin
// Sql.Add(' and ZFFlag=1 ');
// end;
// ShowMessage (sql.TEXT) ;
Open;
end;
@ -202,6 +193,11 @@ begin
end;
end;
procedure TfrmDyeGreyClothOutList.ISInspectionChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmDyeGreyClothOutList.TBRafreshClick(Sender: TObject);
begin
BegDate.SetFocus;
@ -449,7 +445,12 @@ begin
end;
procedure TfrmDyeGreyClothOutList.C_specChange(Sender: TObject);
procedure TfrmDyeGreyClothOutList.C_NAMEChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmDyeGreyClothOutList.C_WidthChange(Sender: TObject);
begin
TBFind.Click;
end;

22
F01染色坯布仓库/U_DyeGreyClothStkList.dfm
View File

@ -5,7 +5,6 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
ClientHeight = 472
ClientWidth = 1400
Position = poDefault
ExplicitLeft = -114
ExplicitWidth = 1416
ExplicitHeight = 511
PixelsPerInch = 96
@ -200,6 +199,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <
item
@ -274,6 +274,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
@ -282,6 +283,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
Tag = 2
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
@ -298,6 +300,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -312,6 +315,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
@ -320,6 +324,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
object v1Column4: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -327,6 +332,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
object v1Column5: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
@ -334,24 +340,28 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
object Tv1Column4: TcxGridDBColumn
Caption = #24037#33402
DataBinding.FieldName = 'C_GONGYI'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object Tv1Column5: TcxGridDBColumn
Caption = #22411#21495
DataBinding.FieldName = 'C_XINHAO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column6: TcxGridDBColumn
Caption = #26426#21488
DataBinding.FieldName = 'C_JITAI'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 69
end
object v1Column10: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
@ -359,30 +369,35 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
object v1Column11: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 68
end
object v1Column12: TcxGridDBColumn
Caption = #32852#31995#26041#24335
DataBinding.FieldName = 'SalesPhone'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 73
end
object v1Column7: TcxGridDBColumn
Caption = #20837#24211#21305#25968
DataBinding.FieldName = 'piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 62
end
object v1Column9: TcxGridDBColumn
Caption = #20837#24211#25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 63
end
object v1Column1: TcxGridDBColumn
Caption = #24211#23384#21305#25968
DataBinding.FieldName = 'stkpiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
@ -391,6 +406,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
Tag = 2
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'stkqty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -400,6 +416,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
@ -413,6 +430,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
object Tv1Column2: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
@ -420,6 +438,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
object Tv1Column1: TcxGridDBColumn
Caption = #33394#21035
DataBinding.FieldName = 'C_ColorDepth'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
@ -427,6 +446,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
object Tv1Column3: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'StkPosition'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item

3
F01染色坯布仓库/U_DyeGreyClothStkList.pas
View File

@ -12,7 +12,8 @@ uses
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList;
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
dxScrollbarAnnotations;
type
TfrmDyeGreyClothStkList = class(TfrmBaseList)

56
F01染色坯布仓库/U_DyeGreyClothStkSel.dfm
View File

@ -10,7 +10,6 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Font.Name = #23435#20307
Position = poMainFormCenter
OnClose = FormClose
ExplicitLeft = -1
ExplicitWidth = 1181
ExplicitHeight = 511
PixelsPerInch = 96
@ -179,10 +178,11 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitLeft = -320
ExplicitTop = 80
ExplicitLeft = -115
ExplicitTop = 38
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <
item
@ -252,6 +252,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
object v1Column17: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
@ -261,6 +262,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
object v1Column11: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'FromOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
@ -268,6 +270,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
@ -276,6 +279,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Tag = 2
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
@ -292,6 +296,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -306,14 +311,16 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 131
Width = 100
end
object v1Column4: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -321,6 +328,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
object v1Column5: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
@ -328,43 +336,63 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
object Tv1Column4: TcxGridDBColumn
Caption = #22411#21495
DataBinding.FieldName = 'C_XINHAO'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column5: TcxGridDBColumn
Caption = #24037#33402
DataBinding.FieldName = 'C_GONGYI'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
Width = 85
end
object Tv1Column6: TcxGridDBColumn
Caption = #26426#21488
DataBinding.FieldName = 'C_JITAI'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column7: TcxGridDBColumn
Caption = #35013#26694
DataBinding.FieldName = 'C_ZHUANGKUANG'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column8: TcxGridDBColumn
Caption = #21152#24613
DataBinding.FieldName = 'C_JIAJI'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 69
end
object v1Column10: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
end
object cxgrdbclmnTv1Column10: TcxGridDBColumn
Caption = #36710#31568#21495
DataBinding.FieldName = 'JIAZINO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column7: TcxGridDBColumn
Caption = #20837#24211#21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 62
@ -372,6 +400,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
object v1Column9: TcxGridDBColumn
Caption = #20837#24211#25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 63
@ -380,12 +409,15 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Tag = 2
Caption = #21305#37325
DataBinding.FieldName = 'PieceWeight'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 71
end
object v1Column1: TcxGridDBColumn
Caption = #24211#23384#21305#25968
DataBinding.FieldName = 'StkPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
@ -394,6 +426,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Tag = 2
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'STkQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -403,12 +436,14 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 51
@ -416,15 +451,26 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
object Tv1Column2: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 76
end
object Tv1Column3: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 59
end
object cxgrdbclmnTv1Column9: TcxGridDBColumn
Caption = #27969#31243#21345'ID'
DataBinding.FieldName = 'LCKID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1

6
F01染色坯布仓库/U_DyeGreyClothStkSel.pas
View File

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseHelp, System.ImageList,
Vcl.ImgList;
Vcl.ImgList, dxScrollbarAnnotations;
type
TfrmDyeGreyClothStkSel = class(TfrmBaseHelp)
@ -69,6 +69,8 @@ type
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
cxgrdbclmnTv1Column9: TcxGridDBColumn;
cxgrdbclmnTv1Column10: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
@ -124,7 +126,7 @@ begin
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(' from BS_Cloth_IO A ');
sql.Add(' from Dye_Cloth_IO A ');
SQL.Add(' where A.IOFlag=''Èë¿â'' and (isnull(STkQty,0)>0 or isnull(StkPiece,0)>0) ');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
Open;

20
F01染色坯布仓库/U_GetDllForm.pas
View File

@ -16,7 +16,7 @@ implementation
uses
U_DataLink, U_iniParam, U_DyeGreyClothInList, U_DyeGreyClothOutList,
U_DyeGreyClothStkList, U_DyeDJBClothInList;
U_DyeGreyClothStkList, U_DyeDJBClothInList,U_DyeDJBClothStkList;
/////////////////////////////////////////////////////////////////
// ¹¦ÄÜ˵Ã÷:È¡DllÖеô°Ìå //
@ -136,7 +136,7 @@ begin
mnewHandle := Handle;
end;
end;
112: //待检布
112: //待检布入库查询
begin
with TfrmDyeDJBClothInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
@ -149,11 +149,11 @@ begin
end;
end;
211: //坯布出库
211: //待检布出库
begin
with TfrmDyeGreyClothOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
FSTKName := '染色坯布';
FSTKName := '待检布';
fFormID := FormID;
FormStyle := mstyle;
WindowState := mstate;
@ -174,6 +174,18 @@ begin
mnewHandle := Handle;
end;
end;
312: //待检布库存
begin
with TfrmDyeDJBClothStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
FSTKName := '待检布';
fFormID := FormID;
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
10000:
begin

83
F02染色计划单/DyePlan.dproj.local
View File

@ -1,60 +1,60 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.722,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothOutSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.058,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeTechnicsSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.dfm=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.495,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeProcessList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.722,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothOutSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.577,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.625,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.986,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\DyePlan.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.986,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\DyePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.188,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.359,D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.359,D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.058,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeTechnicsSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.286,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.037,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_Cust_Cloth_PSC.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.286,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.819,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeInspSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.213,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.905,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.571,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.362,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.819,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeInspSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.188,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.213,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.571,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.905,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.046,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.014,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.017,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.782,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.934,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.782,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.017,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.dfm</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -85,7 +85,7 @@
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\恒溢水洗"/>
<File Path="..\..\D10gmBitao"/>
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
@ -101,15 +101,10 @@
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
<File Path="..\F00染色通用窗体"/>
<File Path="..\F00染色通用窗体\U_DyeGreyClothOutSel.pas"/>
<File Path="..\F00染色通用窗体\U_DyeGreyClothOutSel.dfm"/>
<File Path="..\F00染色通用窗体\U_DyeGreyClothStkSel.pas"/>
<File Path="..\F00染色通用窗体\U_DyeGreyClothStkSel.dfm"/>
<File Path="..\F00染色通用窗体\U_DyePlanCardSel.pas"/>
<File Path="..\F00染色通用窗体\U_DyePlanCardSel.dfm"/>
<File Path="..\F00染色通用窗体\U_DyeProcessSel.pas"/>
<File Path="..\F00染色通用窗体\U_DyeProcessSel.dfm"/>
<File Path="..\F00染色通用窗体\U_DyeTechnicsSel.pas"/>
<File Path="..\F00染色通用窗体\U_DyeTechnicsSel.dfm"/>
<File Path="D:\Dp10Repo"/>
<File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/>

BIN
F02染色计划单/DyePlan.identcache
View File

Binary file not shown.

4
F04染色刷卡/DyeProcess.dpr
View File

@ -23,7 +23,9 @@ uses
U_DyeOutputList in 'U_DyeOutputList.pas' {frmDyeOutputList},
U_DyeOutput in 'U_DyeOutput.pas' {frmDyeOutput},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule};
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet};
{$R *.res}

10
F04染色刷卡/DyeProcess.dproj
View File

@ -124,7 +124,7 @@
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10gmbitao\F04染色刷卡\testDll.exe</Debugger_HostApplication>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10gmBitao\F04染色刷卡\testDll.exe</Debugger_HostApplication>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
@ -176,6 +176,14 @@
<FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_LabelPrint.pas">
<Form>frmLabelPrint</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_LabelMapSet.pas">
<Form>frmLabelMapSet</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

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

@ -5,21 +5,23 @@
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.416,=D:\Dp10Repo\项目代码\D10gmBitao\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.775,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.269,=D:\Dp10Repo\项目代码\D10gmBitao\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.138,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.882,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.326,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\DyeProcess.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.998,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
@ -55,6 +57,10 @@
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_CompanySel.pas"/>
<File Path="..\A00通用窗体\U_CompanySel.dfm"/>
<File Path="..\A00通用窗体\U_LabelPrint.pas"/>
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
<File Path="..\A00通用窗体\U_LabelMapSet.pas"/>
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
<File Path="D:\Dp10Repo"/>
<File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/>

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

Binary file not shown.

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

File diff suppressed because it is too large Load Diff

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

@ -8,7 +8,12 @@ uses
cxControls, cxContainer, cxEdit, cxTextEdit, Buttons, DB, ADODB, cxGraphics,
cxLookAndFeels, cxCheckBox, cxMaskEdit, cxDropDownEdit, cxCheckComboBox,
cxGroupBox, cxRadioGroup, CheckLst, cxCheckListBox, U_BaseList, dxSkinsCore,
dxSkinsDefaultPainters, Datasnap.DBClient, MovePanel;
dxSkinsDefaultPainters, Datasnap.DBClient, MovePanel, cxStyles, cxCustomData,
cxFilter, cxData, cxDataStorage, cxNavigator, dxDateRanges,
dxScrollbarAnnotations, cxDBData, Vcl.ComCtrls, Vcl.ToolWin, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxGridCustomView, cxGrid, dxBarBuiltInMenu, cxGridCustomPopupMenu,
cxGridPopupMenu, RM_Dataset, RM_Common, RM_Class, RM_GridReport;
type
TfrmDyeOutput = class(TfrmBaseList)
@ -82,6 +87,36 @@ type
MachineNo: TcxTextEdit;
lbl2: TLabel;
ADOQueryTemp: TADOQuery;
lbl3: TLabel;
MachineNo2: TcxTextEdit;
lbl4: TLabel;
rollnum2: TcxTextEdit;
lbl5: TLabel;
Qty: TcxTextEdit;
lbl6: TLabel;
Qty2: TcxTextEdit;
cxButton1: TcxButton;
cxButton2: TcxButton;
SpeedButton27: TSpeedButton;
Panel3: TPanel;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
tlb1: TToolBar;
btn5: TToolButton;
CDS_1: TClientDataSet;
DS_1: TDataSource;
GPM_1: TcxGridPopupMenu;
cxgrdbclmnTv1Column1: TcxGridDBColumn;
cxgrdbclmnTv1Column2: TcxGridDBColumn;
cxgrdbclmnTv1Column3: TcxGridDBColumn;
cxgrdbclmnTv1Column4: TcxGridDBColumn;
cxButton4: TcxButton;
cxgrdbclmnTv1Column5: TcxGridDBColumn;
cxButton5: TcxButton;
ADOQueryPrint: TADOQuery;
RM1: TRMGridReport;
RMDB_1: TRMDBDataSet;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
@ -100,6 +135,12 @@ type
procedure Edit17Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure btn5Click(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure cxButton4Click(Sender: TObject);
procedure cxButton5Click(Sender: TObject);
private
fGlideName, fSCunit, fJPUnit: string;
procedure InitCar(fPCID: string);
@ -117,7 +158,7 @@ var
implementation
uses
U_DataLink, U_RTFun;
U_DataLink, U_RTFun, U_LabelPrint;
{$R *.dfm}
procedure SOutData(mParent: TWinControl; FTag: Integer);
@ -203,7 +244,7 @@ begin
// end
// else
SInData(ADO_Car, Panel2, 2);
ROLLNUM.text := ADO_Car.FieldByName('OutNumber').AsString;
ROLLNUM.text := ADO_Car.FieldByName('KKPS').AsString;
Scan.text := '';
Scan.OnClick(Scan);
@ -320,6 +361,19 @@ begin
end;
procedure TfrmDyeOutput.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('ISPrint').Index] > 0 then
ACanvas.Brush.Color := clLtGray;
//设置字体颜色
// ACanvas.Font.Color := $1C6BFF;
// if (Date - AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('OrdDate').Index]) >= 5 then
// begin
// //设置背景颜色
// ACanvas.Brush.Color := clLtGray;
// end;
end;
procedure TfrmDyeOutput.GlideMsgChange(Sender: TObject);
begin
inherited;
@ -372,27 +426,72 @@ begin
exit;
if Key = #13 then
begin
InitCar(Scan.Text);
fsj := 'exec P_Dye_Glide_Get_Idx ' + quotedstr(LCKID.Text);
SInitComBoxBySql(ADO_Cmd, GlideMsg, False, fsj);
with ADO_Tmp do
if Copy(trim(Scan.Text), 1, 2) = 'CJ' then
begin
Close;
sql.Clear;
sql.Add('exec P_Dye_Glide_Get_Idx ' + quotedstr(LCKID.Text));
Open;
with ADO_Tmp do
begin
Close;
sql.Clear;
sql.Add('select * from Bs_Frame where MCID = ' + quotedstr(trim(Scan.Text)));
Open;
end;
if ADO_Tmp.IsEmpty then
begin
Application.MessageBox('没有该车架号信息！', '提示信息');
Scan.Text := '';
exit;
end
else
begin
if MachineNo.Text = '' then
begin
MachineNo.Text := ADO_Tmp.FieldByName('MCNO').AsString;
end
else
begin
MachineNo2.Text := ADO_Tmp.FieldByName('MCNO').AsString;
end;
Scan.Text := '';
with ADO_Tmp do
begin
Close;
sql.Clear;
sql.Add('select * from Dye_Plan_Glide_OutPut A inner join PB_LCK B on A.PCID = B.LCKID where A.GlideName = ''定型'' and A.MachineNo = ' + quotedstr(MachineNo.Text));
// showmessage(sql.Text);
Open;
end;
SCreateCDS(ADO_Tmp, CDS_1);
SInitCDSData(ADO_Tmp, CDS_1);
end;
end
else
begin
InitCar(Scan.Text);
fsj := 'exec P_Dye_Glide_Get_Idx ' + quotedstr(LCKID.Text);
SInitComBoxBySql(ADO_Cmd, GlideMsg, False, fsj);
with ADO_Tmp do
begin
Close;
sql.Clear;
sql.Add('exec P_Dye_Glide_Get_Idx ' + quotedstr(LCKID.Text));
Open;
end;
SCreateCDS(ADO_Tmp, CDS_GX);
SInitCDSData(ADO_Tmp, CDS_GX);
CDS_GX.First;
GlideMsg.ItemIndex := 0;
end;
SCreateCDS(ADO_Tmp, CDS_GX);
SInitCDSData(ADO_Tmp, CDS_GX);
CDS_GX.First;
GlideMsg.ItemIndex := 0;
GlideMsgChange(Sender);
end;
end;
procedure TfrmDyeOutput.btn5Click(Sender: TObject);
begin
WriteCxGrid('流程卡刷卡', Tv1, '刷卡管理');
end;
procedure TfrmDyeOutput.Button1Click(Sender: TObject);
begin
inherited;
@ -400,6 +499,16 @@ begin
Scan.SetFocus;
end;
procedure TfrmDyeOutput.cxButton1Click(Sender: TObject);
begin
MachineNo.Text := '';
end;
procedure TfrmDyeOutput.cxButton2Click(Sender: TObject);
begin
MachineNo2.Text := '';
end;
procedure TfrmDyeOutput.cxButton3Click(Sender: TObject);
var
key: Char;
@ -409,6 +518,113 @@ begin
end;
procedure TfrmDyeOutput.cxButton4Click(Sender: TObject);
var
fPrintFile, FLabVolume: string;
begin
with ADOQueryPrint do
begin
Close;
SQL.Clear;
sql.Add(' select * from Dye_Plan_Glide_OutPut A inner join PB_LCK B on A.PCID = B.LCKID inner join Knit_Plan_Sub C on B.SubID = C.SubId where A.GlideName = ''定型'' and ');
SQL.Add(' A.MachineNo =''' + Trim(MachineNo.Text) + '''');
SQL.Add(' and ISNULL(A.ISPrint, 0)<= 0');
Open;
end;
if ADOQueryPrint.IsEmpty then
begin
MovePanel1.Visible := true;
SpeedButton14.Enabled := True;
tishi.Caption := '没有数据能打印！可以选择勾选打印！';
Timer1.Enabled := true;
exit;
end;
FLabVolume := '车上信息打印';
ExportFtErpFile(FLabVolume + '.rmf', ADOQueryTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLabVolume + '.rmf';
if FileExists(fPrintFile) then
begin
RM1.LoadFromFile(fPrintFile);
Rm1.DefaultCopies := 1;
RM1.PrintReport;
end
else
begin
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
end;
end;
procedure TfrmDyeOutput.cxButton5Click(Sender: TObject);
var
WSql: string;
fPrintFile, FLabVolume: string;
begin
if CDS_1.IsEmpty then
Exit;
if not CDS_1.Locate('SSel', True, []) then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := '';
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('GOID').AsString));
end
else
begin
WSql := QuotedStr(Trim(CDS_1.fieldbyname('GOID').AsString));
end;
end;
Next;
end;
end;
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
with ADOQueryPrint do
begin
Close;
SQL.Clear;
sql.Add(' select * from Dye_Plan_Glide_OutPut A inner join PB_LCK B on A.PCID = B.LCKID inner join Knit_Plan_Sub C on B.SubID = C.SubId where A.GlideName = ''定型'' ');
SQL.Add(' and A.GOID in(' + Trim(WSql) + ')');
SQL.Add(' and ISNULL(A.ISPrint, 0)<= 0');
// showmessage(Sql.Text);
Open;
end;
if ADOQueryPrint.IsEmpty then
begin
MovePanel1.Visible := true;
SpeedButton14.Enabled := True;
tishi.Caption := '打印错误！';
Timer1.Enabled := true;
exit;
end;
FLabVolume := '车上信息打印';
ExportFtErpFile(FLabVolume + '.rmf', ADOQueryTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLabVolume + '.rmf';
if FileExists(fPrintFile) then
begin
RM1.LoadFromFile(fPrintFile);
Rm1.DefaultCopies := 1;
RM1.PrintReport;
end
else
begin
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
end;
end;
procedure TfrmDyeOutput.Sel1Click(Sender: TObject);
begin
if trim(TcxTextEdit(Sender).Text) = '√' then
@ -460,8 +676,6 @@ begin
// raise Exception.Create(pchar('产出匹数不能为空或者零！'));
// if not CDS_GX.Locate('Name', GlideMsg.Text, []) then
// raise Exception.Create(pchar('工序号不能为空!'));
if GetLSNo(ADO_Tmp, fkeyNo, 'CL', 'CL_Group', 4, 1) = False then
raise Exception.Create(pchar('取最大号失败!'));
// if (Edit16.Text = '') and (Edit17.Text = '') then
// begin
// raise Exception.Create(pchar('请先选择班组！'));
@ -476,7 +690,7 @@ begin
exit;
end;
if StrToFloatDef(ROLLNUM.Text, 0) > StrToFloatDef(OutNumber.Text, 0) then
if StrToFloatDef(ROLLNUM.Text, 0) > StrToFloatDef(KKPS.Text, 0) then
begin
MovePanel1.Visible := true;
SpeedButton14.Enabled := True;
@ -485,6 +699,55 @@ begin
exit;
end;
if StrToFloatDef(Qty.Text, 0) <= 0 then
begin
MovePanel1.Visible := true;
SpeedButton14.Enabled := True;
tishi.Caption := '请输入公斤数';
Qty.SetFocus;
Timer1.Enabled := true;
exit;
end;
if MachineNo2.Text <> '' then
begin
if strtofloatdef(trim(ROLLNUM2.Text), 0) = 0 then
begin
MovePanel1.Visible := true;
SpeedButton14.Enabled := True;
tishi.Caption := '产出匹数不能为空或者零';
rollnum2.SetFocus;
Timer1.Enabled := true;
exit;
end;
if StrToFloatDef(ROLLNUM2.Text, 0) > StrToFloatDef(KKPS.Text, 0) then
begin
MovePanel1.Visible := true;
SpeedButton14.Enabled := True;
tishi.Caption := '登记匹数超过实际匹数';
rollnum2.SetFocus;
Timer1.Enabled := true;
exit;
end;
if (StrToFloatDef(ROLLNUM.Text, 0) + StrToFloatDef(ROLLNUM2.Text, 0)) > StrToFloatDef(KKPS.Text, 0) then
begin
MovePanel1.Visible := true;
SpeedButton14.Enabled := True;
tishi.Caption := '登记匹数超过实际匹数';
Timer1.Enabled := true;
exit;
end;
if StrToFloatDef(Qty2.Text, 0) <= 0 then
begin
MovePanel1.Visible := true;
SpeedButton14.Enabled := True;
tishi.Caption := '请输入公斤数';
Qty2.SetFocus;
Timer1.Enabled := true;
exit;
end;
end;
// if StrToFloatDef(ROLLNUM.Text, 0) > StrToFloatDef(KYPS.Text, 0) then
// begin
@ -500,7 +763,8 @@ begin
Timer1.Enabled := true;
Exit;
end;
if GetLSNo(ADO_Tmp, fkeyNo, 'CL', 'CL_Group', 4, 1) = False then
raise Exception.Create(pchar('取最大号失败!'));
with ADO_Cmd do
begin
close;
@ -521,98 +785,134 @@ begin
FieldByName('StaffName').Value := trim('乙');
end;
FieldByName('Qty').Value := 0;
FieldByName('Qty').Value := trim(Qty.text);
FieldByName('MachineNo').Value := trim(MachineNo.text);
FieldByName('RollNum').Value := trim(ROLLNUM.text);
FieldByName('Filler').Value := trim(DName);
Post;
end;
//定型工序提交完之后把库存数据自动出库
if CDS_GX.FieldByName('GlideNo').AsString = CDS_GX.FieldByName('maxGlideNo').AsString then
if MachineNo2.text <> '' then
begin
if not GetLSNo(ADOQueryCmd, Maxno, 'PC', 'BS_Cloth_IO', 3, 1) then
raise Exception.Create('取染色坯布出库编号失败！');
with ADOQueryTemp do
if GetLSNo(ADO_Tmp, fkeyNo, 'CL', 'CL_Group', 4, 1) = False then
raise Exception.Create(pchar('取最大号失败!'));
with ADO_Cmd do
begin
close;
sql.Clear;
sql.Add(' select * from BS_Cloth_IO where IOFlag = ''入库'' and StkID = ' + quotedstr(trim(LCKID.text)));
// showmessage(sql.Text);
sql.Add(' select * from Dye_Plan_Glide_OutPut where 1=2 ');
open;
end;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add(' select * from BS_Cloth_IO where IOFlag = ''入库'' and StkID = ' + quotedstr(trim(LCKID.text)));
// showmessage(sql.Text);
open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('BCIOID').Value := Trim(Maxno);
FieldByName('STKName').Value := ADOQueryTemp.fieldbyname('STKName').Value;
FieldByName('Workshop').Value := ADOQueryTemp.fieldbyname('Workshop').Value;
FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('IOQtyFlag').Value := -1;
FieldByName('STKID').Value := ADOQueryTemp.fieldbyname('STKID').Value;
FieldByName('IOFlag').Value := '出库';
FieldByName('IOType').Value := '加工出库';
FieldByName('C_code').Value := ADOQueryTemp.fieldbyname('C_code').Value;
FieldByName('C_Name').Value := ADOQueryTemp.fieldbyname('C_Name').Value;
FieldByName('C_Composition').Value := ADOQueryTemp.fieldbyname('C_Composition').Value;
FieldByName('C_Spec').Value := ADOQueryTemp.fieldbyname('C_Spec').Value;
FieldByName('C_Width').Value := ADOQueryTemp.fieldbyname('C_Width').Value;
FieldByName('C_GramWeight').Value := ADOQueryTemp.fieldbyname('C_GramWeight').Value;
FieldByName('C_Color').Value := ADOQueryTemp.fieldbyname('C_Color').Value;
FieldByName('C_ColorNo').Value := ADOQueryTemp.fieldbyname('C_ColorNo').Value;
FieldByName('C_EColor').Value := ADOQueryTemp.fieldbyname('C_EColor').Value;
FieldByName('C_Pattern').Value := ADOQueryTemp.fieldbyname('C_Pattern').Value;
FieldByName('C_StyleNo').Value := ADOQueryTemp.fieldbyname('C_StyleNo').Value;
FieldByName('C_ColorDepth').Value := ADOQueryTemp.fieldbyname('C_ColorDepth').Value;
FieldByName('BatchNO').Value := ADOQueryTemp.fieldbyname('BatchNo').Value;
FieldByName('StkCoNo').Value := ADOQueryTemp.fieldbyname('StkCoNo').Value;
FieldByName('StkCoName').Value := ADOQueryTemp.fieldbyname('StkCoName').Value;
FieldByName('FromCoNo').Value := ADOQueryTemp.fieldbyname('FromCoNo').Value;
FieldByName('FromCoName').Value := ADOQueryTemp.fieldbyname('FromCoName').Value;
FieldByName('ToCoNo').Value := ADOQueryTemp.fieldbyname('ToCoNo').Value;
FieldByName('ToCoName').Value := ADOQueryTemp.fieldbyname('ToCoName').Value;
FieldByName('FromOrdNo').Value := ADOQueryTemp.fieldbyname('FromOrdNo').Value;
FieldByName('FromMainId').Value := ADOQueryTemp.fieldbyname('FromMainId').Value;
FieldByName('FromSubId').Value := ADOQueryTemp.fieldbyname('FromSubId').Value;
FieldByName('ToOrdNo').Value := ADOQueryTemp.fieldbyname('ToOrdNo').Value;
FieldByName('ToMainId').Value := ADOQueryTemp.fieldbyname('ToMainId').Value;
FieldByName('ToSubId').Value := ADOQueryTemp.fieldbyname('ToSubId').Value;
FieldByName('PieceWeight').Value := ADOQueryTemp.fieldbyname('PieceWeight').Value;
FieldByName('PieceLen').Value := ADOQueryTemp.fieldbyname('PieceLen').Value;
FieldByName('StkPosition').Value := ADOQueryTemp.fieldbyname('StkPosition').Value;
FieldByName('BZSpec').Value := ADOQueryTemp.fieldbyname('BZSpec').Value;
FieldByName('QtyUnit').Value := ADOQueryTemp.fieldbyname('QtyUnit').Value;
FieldByName('Qty').Value := ADOQueryTemp.fieldbyname('STKQTY').Value;
FieldByName('Piece').Value := RollNum.Text;
FieldByName('Filler').Value := Trim(DName);
FieldByName('C_XINHAO').Value := ADOQueryTemp.fieldbyname('C_XINHAO').Value;
FieldByName('C_GONGYI').Value := ADOQueryTemp.fieldbyname('C_GONGYI').Value;
FieldByName('C_JITAI').Value := ADOQueryTemp.fieldbyname('C_JITAI').Value;
FieldByName('C_ZHUANGKUANG').Value := ADOQueryTemp.fieldbyname('C_ZHUANGKUANG').Value;
FieldByName('C_JIAJI').Value := ADOQueryTemp.fieldbyname('C_JIAJI').Value;
FieldByName('JIAZINO').Value := MachineNo.Text;
FieldByName('GOID').Value := fkeyNo;
FieldByName('PCID').Value := trim(LCKID.text);
FieldByName('GlideNo').Value := trim(CDS_GX.FieldByName('GlideNo').AsString);
FieldByName('GlideName').Value := trim(CDS_GX.FieldByName('GlideName').AsString);
if Edit16.Text <> '' then
begin
FieldByName('StaffName').Value := trim('甲');
end;
if Edit17.Text <> '' then
begin
FieldByName('StaffName').Value := trim('乙');
end;
FieldByName('Qty').Value := trim(Qty2.text);
FieldByName('MachineNo').Value := trim(MachineNo2.text);
FieldByName('RollNum').Value := trim(ROLLNUM2.text);
FieldByName('Filler').Value := trim(DName);
Post;
end;
end;
if (CDS_GX.FieldByName('GlideNo').AsString = CDS_GX.FieldByName('maxGlideNo').AsString) then
begin
//最后一道工序的时候把数据自动入库
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('exec P_Dye_Cloth_AutoIn ');
Sql.Add(' @lckId=' + quotedstr(trim(LCKID.text)));
Sql.Add(',@Fillid=' + quotedstr(Trim(DCode)));
Sql.Add(',@Filler=' + quotedstr(Trim(DName)));
Sql.Add(',@IOTime=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', Now))));
Open;
end;
if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then
begin
Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0);
exit;
end;
end;
// //定型工序提交完之后把库存数据自动出库
if CDS_GX.FieldByName('GlideNo').AsString = CDS_GX.FieldByName('maxGlideNo').AsString then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update BS_Cloth_IO Set StkPiece=(select Sum(isnull(Piece,0)*IOQtyFlag) from BS_Cloth_IO A where A.STKID=BS_Cloth_IO.BCIOID)');
sql.Add(',STKQty=(select Sum(isnull(Qty,0)*IOQtyFlag) from BS_Cloth_IO A where A.STKID=BS_Cloth_IO.BCIOID )');
sql.Add('where BCIOID=''' + Trim(ADOQueryTemp.fieldbyname('STKID').AsString) + '''');
sql.Add('Update BS_Cloth_IO Set StkPiece=StkPiece-' + FloatToStr(StrToFloatDef(ROLLNUM.Text, 0) + StrToFloatDef(ROLLNUM2.Text, 0)));
// sql.Add(',STKQty=STKQty-' + FloatToStr(StrToFloatDef(QTY.Text, 0) + StrToFloatDef(QTY2.Text, 0)));
sql.Add('where LckId=''' + trim(LCKID.text) + '''');
ExecSQL;
end;
// with ADOQueryCmd do
// begin
// Append;
// FieldByName('BCIOID').Value := Trim(Maxno);
// FieldByName('STKName').Value := '染色坯布';
// FieldByName('Workshop').Value := ADOQueryTemp.fieldbyname('Workshop').Value;
// FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
// FieldByName('IOQtyFlag').Value := -1;
// FieldByName('STKID').Value := ADOQueryTemp.fieldbyname('STKID').Value;
// FieldByName('IOFlag').Value := '出库';
// FieldByName('IOType').Value := '加工出库';
// FieldByName('C_code').Value := ADOQueryTemp.fieldbyname('C_code').Value;
// FieldByName('C_Name').Value := ADOQueryTemp.fieldbyname('C_Name').Value;
// FieldByName('C_Composition').Value := ADOQueryTemp.fieldbyname('C_Composition').Value;
// FieldByName('C_Spec').Value := ADOQueryTemp.fieldbyname('C_Spec').Value;
// FieldByName('C_Width').Value := ADOQueryTemp.fieldbyname('C_Width').Value;
// FieldByName('C_GramWeight').Value := ADOQueryTemp.fieldbyname('C_GramWeight').Value;
// FieldByName('C_Color').Value := ADOQueryTemp.fieldbyname('C_Color').Value;
// FieldByName('C_ColorNo').Value := ADOQueryTemp.fieldbyname('C_ColorNo').Value;
// FieldByName('C_EColor').Value := ADOQueryTemp.fieldbyname('C_EColor').Value;
// FieldByName('C_Pattern').Value := ADOQueryTemp.fieldbyname('C_Pattern').Value;
// FieldByName('C_StyleNo').Value := ADOQueryTemp.fieldbyname('C_StyleNo').Value;
// FieldByName('C_ColorDepth').Value := ADOQueryTemp.fieldbyname('C_ColorDepth').Value;
// FieldByName('BatchNO').Value := ADOQueryTemp.fieldbyname('BatchNo').Value;
// FieldByName('StkCoNo').Value := ADOQueryTemp.fieldbyname('StkCoNo').Value;
// FieldByName('StkCoName').Value := ADOQueryTemp.fieldbyname('StkCoName').Value;
// FieldByName('FromCoNo').Value := ADOQueryTemp.fieldbyname('FromCoNo').Value;
// FieldByName('FromCoName').Value := ADOQueryTemp.fieldbyname('FromCoName').Value;
// FieldByName('ToCoNo').Value := ADOQueryTemp.fieldbyname('ToCoNo').Value;
// FieldByName('ToCoName').Value := ADOQueryTemp.fieldbyname('ToCoName').Value;
// FieldByName('FromOrdNo').Value := ADOQueryTemp.fieldbyname('FromOrdNo').Value;
// FieldByName('FromMainId').Value := ADOQueryTemp.fieldbyname('FromMainId').Value;
// FieldByName('FromSubId').Value := ADOQueryTemp.fieldbyname('FromSubId').Value;
// FieldByName('ToOrdNo').Value := ADOQueryTemp.fieldbyname('ToOrdNo').Value;
// FieldByName('ToMainId').Value := ADOQueryTemp.fieldbyname('ToMainId').Value;
// FieldByName('ToSubId').Value := ADOQueryTemp.fieldbyname('ToSubId').Value;
// FieldByName('PieceWeight').Value := ADOQueryTemp.fieldbyname('PieceWeight').Value;
// FieldByName('PieceLen').Value := ADOQueryTemp.fieldbyname('PieceLen').Value;
// FieldByName('StkPosition').Value := ADOQueryTemp.fieldbyname('StkPosition').Value;
// FieldByName('BZSpec').Value := ADOQueryTemp.fieldbyname('BZSpec').Value;
// FieldByName('QtyUnit').Value := ADOQueryTemp.fieldbyname('QtyUnit').Value;
// FieldByName('Qty').Value := ADOQueryTemp.fieldbyname('STKQTY').Value;
// FieldByName('Piece').Value := RollNum.Text;
// FieldByName('Filler').Value := Trim(DName);
// FieldByName('C_XINHAO').Value := ADOQueryTemp.fieldbyname('C_XINHAO').Value;
// FieldByName('C_GONGYI').Value := ADOQueryTemp.fieldbyname('C_GONGYI').Value;
// FieldByName('C_JITAI').Value := ADOQueryTemp.fieldbyname('C_JITAI').Value;
// FieldByName('C_ZHUANGKUANG').Value := ADOQueryTemp.fieldbyname('C_ZHUANGKUANG').Value;
// FieldByName('C_JIAJI').Value := ADOQueryTemp.fieldbyname('C_JIAJI').Value;
//// FieldByName('JIAZINO').Value := MachineNo.Text;
// Post;
// end;
end;
////////////////// 更新进度 //////////////////
//////////////// 更新进度 //////////////////
// with ADO_Cmd do
// begin
// Close;
@ -639,6 +939,12 @@ begin
Timer1.Enabled := true;
LCKID.TEXT := '';
MachineNo.Text := '';
MachineNo2.Text := '';
rollnum.Text := '';
rollnum2.Text := '';
Qty.Text := '';
Qty2.Text := '';
except
Scan.SetFocus;
SpeedButton14.Enabled := True;
@ -651,6 +957,7 @@ end;
procedure TfrmDyeOutput.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid('流程卡刷卡', Tv1, '刷卡管理');
Scan.OnClick(Scan);
end;

34
F04染色刷卡/U_DyeOutputList.dfm
View File

@ -8,7 +8,6 @@ inherited frmDyeOutputList: TfrmDyeOutputList
Font.Name = 'Tahoma'
OldCreateOrder = True
WindowState = wsMaximized
ExplicitLeft = -88
ExplicitWidth = 1550
ExplicitHeight = 623
PixelsPerInch = 96
@ -21,7 +20,7 @@ inherited frmDyeOutputList: TfrmDyeOutputList
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 96
ButtonWidth = 97
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
@ -76,7 +75,7 @@ inherited frmDyeOutputList: TfrmDyeOutputList
OnClick = TBExportClick
end
object ToolButton1: TToolButton
Left = 384
Left = 385
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -84,15 +83,16 @@ inherited frmDyeOutputList: TfrmDyeOutputList
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 479
Left = 480
Top = 0
AutoSize = True
Caption = #20462#25913#37325#37327
ImageIndex = 3
Visible = False
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 574
Left = 575
Top = 0
AutoSize = True
Caption = #20851#38381
@ -110,7 +110,6 @@ inherited frmDyeOutputList: TfrmDyeOutputList
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
ExplicitTop = 18
object Label3: TLabel
Left = 252
Top = 36
@ -222,7 +221,7 @@ inherited frmDyeOutputList: TfrmDyeOutputList
Width = 80
Height = 21
TabOrder = 0
OnChange = LckidChange
OnKeyPress = C_ColorNoKeyPress
end
object BegDate: TDateTimePicker
Left = 73
@ -249,7 +248,7 @@ inherited frmDyeOutputList: TfrmDyeOutputList
Width = 80
Height = 21
TabOrder = 3
OnChange = LckidChange
OnKeyPress = C_ColorNoKeyPress
end
object customerNoName: TEdit
Tag = 2
@ -258,7 +257,6 @@ inherited frmDyeOutputList: TfrmDyeOutputList
Width = 100
Height = 21
TabOrder = 4
OnChange = LckidChange
end
object ywy: TEdit
Tag = 2
@ -267,7 +265,6 @@ inherited frmDyeOutputList: TfrmDyeOutputList
Width = 100
Height = 21
TabOrder = 5
OnChange = LckidChange
end
object C_Color: TEdit
Tag = 2
@ -276,7 +273,7 @@ inherited frmDyeOutputList: TfrmDyeOutputList
Width = 80
Height = 21
TabOrder = 6
OnChange = LckidChange
OnKeyPress = C_ColorNoKeyPress
end
object C_ColorNo: TEdit
Tag = 2
@ -285,7 +282,7 @@ inherited frmDyeOutputList: TfrmDyeOutputList
Width = 80
Height = 21
TabOrder = 7
OnChange = LckidChange
OnKeyPress = C_ColorNoKeyPress
end
object lbHx: TEdit
Tag = 2
@ -294,7 +291,6 @@ inherited frmDyeOutputList: TfrmDyeOutputList
Width = 80
Height = 21
TabOrder = 8
OnChange = LckidChange
end
object GlideName: TComboBox
Tag = 2
@ -304,7 +300,7 @@ inherited frmDyeOutputList: TfrmDyeOutputList
Height = 21
Style = csDropDownList
TabOrder = 9
OnChange = LckidChange
OnChange = GlideNameChange
Items.Strings = (
''
#32763#24067
@ -317,7 +313,7 @@ inherited frmDyeOutputList: TfrmDyeOutputList
Width = 80
Height = 21
TabOrder = 10
OnChange = LckidChange
OnKeyPress = C_ColorNoKeyPress
end
object begtime: TDateTimePicker
Left = 157
@ -348,7 +344,7 @@ inherited frmDyeOutputList: TfrmDyeOutputList
Width = 80
Height = 21
TabOrder = 13
OnChange = LckidChange
OnKeyPress = C_ColorNoKeyPress
end
object C_Width: TEdit
Tag = 2
@ -357,7 +353,7 @@ inherited frmDyeOutputList: TfrmDyeOutputList
Width = 80
Height = 21
TabOrder = 14
OnChange = LckidChange
OnKeyPress = C_ColorNoKeyPress
end
object C_GramWeight: TEdit
Tag = 2
@ -366,7 +362,7 @@ inherited frmDyeOutputList: TfrmDyeOutputList
Width = 80
Height = 21
TabOrder = 15
OnChange = LckidChange
OnKeyPress = C_ColorNoKeyPress
end
end
object cxGrid2: TcxGrid [2]
@ -376,8 +372,6 @@ inherited frmDyeOutputList: TfrmDyeOutputList
Height = 482
Align = alClient
TabOrder = 2
ExplicitTop = 82
ExplicitHeight = 502
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

33
F04染色刷卡/U_DyeOutputList.pas
View File

@ -101,13 +101,14 @@ type
procedure FormShow(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure LckidChange(Sender: TObject);
procedure PRTColorChange(Sender: TObject);
procedure TBdelClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure GlideNameChange(Sender: TObject);
procedure C_ColorNoKeyPress(Sender: TObject; var Key: Char);
private
FLeft, FTop: Integer;
procedure InitGrid();
@ -166,14 +167,14 @@ begin
Close;
sql.Clear;
Filtered := False;
sql.Add('select ORDERNO,GOID,A.GlideName,C.*,Qty,rollnum,groupName,B.*,a.filler as filler2,a.filltime as filltime2,gotime,QtyUnit,StaffName from Dye_Plan_Glide_OutPut A ');
sql.Add('select * from (select ORDERNO,GOID,A.GlideName,D.CustName,C.C_Name,C.C_Spec,C.C_ColorNo,C.C_Color,C.C_I_Name,C.C_Width,C.C_GramWeight,Qty,rollnum,StaffName,a.filler as filler2,a.filltime as filltime2,gotime,QtyUnit from Dye_Plan_Glide_OutPut A ');
sql.Add('inner join PB_LCK B on A.PCID=B.LCKID ');
sql.Add('inner join Knit_Plan_Sub C on B.SUBID=C.SUBID ');
sql.Add('inner join Knit_Plan_MAIN D on D.MAINID=B.MAINID ');
sql.add('where A.GOTime>=''' + trim(mbegdate) + ''' ');
sql.Add('and A.GOTime<''' + trim(menddate) + ''' ');
sql.Add('inner join Knit_Plan_MAIN D on D.MAINID=B.MAINID ) AA ');
sql.add('where GOTime>=''' + trim(mbegdate) + ''' ');
sql.Add('and GOTime<''' + trim(menddate) + ''' ');
sql.Add(Msql);
// showmessage(sql.Text);
//showmessage(sql.Text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_Main);
@ -277,6 +278,15 @@ begin
end;
end;
procedure TfrmDyeOutputList.C_ColorNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmDyeOutputList.TBCloseClick(Sender: TObject);
begin
@ -292,6 +302,11 @@ begin
initgrid();
end;
procedure TfrmDyeOutputList.GlideNameChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmDyeOutputList.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
@ -310,11 +325,6 @@ begin
end;
end;
procedure TfrmDyeOutputList.LckidChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmDyeOutputList.PRTColorChange(Sender: TObject);
begin
TBFind.Click;
@ -334,7 +344,6 @@ begin
sql.Clear;
sql.Add('insert into Dye_Need_Up(UType,UDataId) values(''»ų́ˢ¿¨'',' + quotedstr(Trim(CDS_Main.fieldbyname('GOID').AsString)) + ') ');
sql.Add('delete Dye_Plan_Glide_OutPut where GOID=''' + Trim(CDS_Main.fieldbyname('GOID').AsString) + '''');
ExecSQL;
end;
////////////////// ¸üнø¶È //////////////////

6
T03贸易布匹检验/U_TradeClothInspList.dfm
View File

@ -518,7 +518,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 85
end
object cxgrdbclmnTv1Column12: TcxGridDBColumn
Caption = #24067#31080#21495
@ -607,9 +607,8 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Left = 142
Top = 0
AutoSize = True
Caption = #20462#25913#25209#21495
Caption = #20462#25913#32568#21495
ImageIndex = 3
Visible = False
OnClick = ToolButton2Click
end
object TBZF: TToolButton
@ -829,6 +828,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Hint = '1'
Style = csDropDownList
TabOrder = 4
OnChange = FillerChange
OnKeyPress = KHConNOKeyPress
end
object C_Color: TEdit

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

@ -155,6 +155,7 @@ type
procedure btn1Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure FillerChange(Sender: TObject);
private
DQdate: TDateTime;
FLeft, FTop: Integer;
@ -198,6 +199,12 @@ begin
end;
procedure TfrmTradeClothInspList.FillerChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTradeClothInspList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
@ -268,6 +275,7 @@ begin
sql.Add('@pageIndex=' + inttostr(CurrentPage));
sql.Add(',@pageSize=' + inttostr(RecordsNumber));
sql.Add(',@criteria= ' + quotedstr(WSql));
// showmessage(sql.Text);
Open;
end;
SCreateCDS(ADOQueryMain, Order_Main);
@ -290,6 +298,8 @@ begin
end;
procedure TfrmTradeClothInspList.FormShow(Sender: TObject);
var
fsj: string;
begin
inherited;
canshu1 := self.fParameters1;
@ -298,14 +308,12 @@ begin
ReadCxGrid(Trim(self.Caption) + 'Tv1', Tv1, 'óÒ×¼ìÑé¹ÜÀí');
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime;
// fsj := 'select distinct(Filler) name from Trade_Cloth_Inspect ';
// SInitComBoxBySql(ADOQueryCmd, Filler, False, fsj);
// Filler.ItemIndex := Filler.Items.IndexOf(trim(DName));
fsj := 'select distinct(Filler) name from Trade_Cloth_Inspect ';
SInitComBoxBySql(ADOQueryCmd, Filler, False, fsj);
//Filler.ItemIndex := Filler.Items.IndexOf(trim(DName));
InitGrid();
SetStatus();
InitGrid();
end;
procedure TfrmTradeClothInspList.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
@ -414,9 +422,9 @@ begin
begin
RM1.LoadFromFile(fPrintFile);
if Trim(ADOQueryPrint.fieldbyname('LabPackage').AsString) <> '´ÎÆ·±êÇ©' then
Rm1.DefaultCopies := strtointdef((edt1.Text),1)
Rm1.DefaultCopies := strtointdef((edt1.Text), 1)
else
Rm1.DefaultCopies:=strtointdef((edt1.Text),1);
Rm1.DefaultCopies := strtointdef((edt1.Text), 1);
RM1.PrintReport;
end
else
@ -553,7 +561,6 @@ begin
end;
procedure TfrmTradeClothInspList.btnJBQClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
@ -698,16 +705,16 @@ begin
Order_Main.EnableControls;
end;
if InputQuery('ÅúºÅ', 'ÇëÊäÈë', MStrIn) then
if InputQuery('¸×ºÅ', 'ÇëÊäÈë', MStrIn) then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update Trade_Cloth_Inspect Set BatchNO=' + QuotedStr(MStrIn));
sql.Add('Update Trade_Cloth_Inspect Set FtyPCID=' + QuotedStr(MStrIn));
sql.Add(' where CIID in (' + MStrsql + ')');
sql.Add('Update Trade_Cloth_Stock Set BatchNO=' + QuotedStr(MStrIn));
sql.Add('Update Trade_Cloth_Stock Set FtyPCID=' + QuotedStr(MStrIn));
sql.Add(' where CIID in (' + MStrsql + ')');
ExecSQL;
end;

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

@ -461,8 +461,8 @@ type
{ Private declarations }
FCIID, FOperationStatus, FCIFName, FWorkshop: string;
FBCIOID, FOrderNo, FMainId, FSubId, FPCId, FConNo, FConMId, FConSId, FDRMID, FDRSID, FLCKID: string;
FBatchNO, FLenUnit, FC_Code, FC_Name, FC_Spec, FC_Width, FC_GramWeight, FC_KnitGramWeight, FDyeNo: string;
FC_Color, FC_ColorNo, FOffer, FC_StyleNo, FC_Composition, FC_Pattern, FC_CustPattern, FC_ColorDepth, FLoom: string;
FBatchNO, FLenUnit, FC_Code, FC_Name, FC_Spec, FC_Width, FOrdQty, FOrdUnit, FC_GramWeight, FC_KnitGramWeight, FDyeNo: string;
FC_Color, FC_ColorNo, FOffer, FC_StyleNo, FC_Composition, FC_Pattern, FC_CustPattern, Fkhconno, FC_ColorDepth, FLoom: string;
FFtyPCId, FCUSTNAME, FGangNo, FRulePieceNo, FRuleBeforeTare, FRuleLaterTare, FC_Figure, FC_Yarn, FYWY: string;
FPieceNo: Integer;
IsCommopen: boolean;
@ -526,7 +526,8 @@ begin
AOrdDefNote1.Text := AOrdDefNote1.Text + '门幅:' + FC_Width + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '成品克重:' + FC_GramWeight + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '颜色:' + FC_Color + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '成分:' + FC_Composition + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '订单号:' + Fkhconno + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '订单数量:' + FOrdQty + FOrdUnit + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '上称毛重:' + FRuleBeforeTare + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '不上称皮重:' + FRuleLaterTare + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '下机挡车工:' + FOffer + #13;
@ -719,23 +720,45 @@ begin
if Trim(CKType) = '提交' then
begin
with ADOTmp do
begin
Close;
sql.Clear;
SQL.Add('select * from Trade_Cloth_Inspect where BCIOID not like ''%MR%'' and BCIOID=''' + Trim(FBCIOID) + '''');
SQL.Add('select SUM(NetWeight) NetWeight,SUM(Meter) Meter,SUM(Yardage) Yardage,COUNT(PieceNo) PieceNumber from Trade_Cloth_Inspect where MainId = (select MainId from Knit_Plan_Card where PCID =''' + Trim(FBCIOID) + ''')');
Open;
end;
// if ADOTmp.IsEmpty = false then
// begin
// if Application.MessageBox('该布票已保存过，是否要再次保存？', '提示', 32 + 4) <> IDYES then
// begin
// Result := false;
// exit;
// end;
// end;
if (FOrdUnit = '米') and (ADOTmp.fieldbyname('Meter').AsFloat >= StrToFloatDef(FOrdQty, 0)) then
begin
if Application.MessageBox('订单数量已足够，是否继续提交！', '提示', 32 + 4) <> IDYES then
begin
Result := false;
exit;
end;
end
else if (FOrdUnit = '公斤') and (ADOTmp.fieldbyname('NetWeight').AsFloat >= StrToFloatDef(FOrdQty, 0)) then
begin
if Application.MessageBox('订单数量已足够，是否继续提交！', '提示', 32 + 4) <> IDYES then
begin
Result := false;
exit;
end;
end
else if (FOrdUnit = '码') and (ADOTmp.fieldbyname('Yardage').AsFloat >= StrToFloatDef(FOrdQty, 0)) then
begin
if Application.MessageBox('订单数量已足够，是否继续提交！', '提示', 32 + 4) <> IDYES then
begin
Result := false;
exit;
end;
end
else if (FOrdUnit = '匹') and (ADOTmp.fieldbyname('PieceNumber').AsFloat >= StrToFloatDef(FOrdQty, 0)) then
begin
if Application.MessageBox('订单数量已足够，是否继续提交！', '提示', 32 + 4) <> IDYES then
begin
Result := false;
exit;
end;
end;
if (StrToFloatDef(C_TradeGramWeight.Text, 0) <= 0) or (StrToFloatDef(copy(GramWeight.Text, 1, 3), 0) <= 0) then
begin
raise Exception.Create('克重有问题，请检查克重!');
@ -1100,7 +1123,7 @@ begin
sql.Add(' left JOIN Trade_Cloth_Inspect_Rule E on C.MainId =E.RuleID ');
// sql.Add(' INNER JOIN BS_Contract_Sub F on D.ConSID =F.ConSID ');
sql.Add(' where A.PCID = ''' + Trim(MBCIOID) + '''');
// ShowMessage(sql.Text);
// ShowMessage(sql.Text);
Open;
end;
@ -1129,6 +1152,7 @@ begin
FConSId := Trim(ADOTmp.fieldbyname('ConSId').AsString);
FConNo := Trim(ADOTmp.fieldbyname('ConNo').AsString);
FOrderNo := Trim(ADOTmp.fieldbyname('OrderNo').AsString);
Fkhconno := Trim(ADOTmp.fieldbyname('khconno').AsString);
FCUSTNAME := Trim(ADOTmp.fieldbyname('CUSTNAME').AsString);
FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString);
FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString);
@ -1142,7 +1166,8 @@ begin
FC_KnitGramWeight := Trim(ADOTmp.fieldbyname('C_KnitGramWeight').AsString);
FC_Figure := Trim(ADOTmp.fieldbyname('C_Figure').AsString);
FC_Yarn := Trim(ADOTmp.fieldbyname('C_Yarn').AsString);
FC_Composition := Trim(ADOTmp.fieldbyname('C_Composition').AsString);
FOrdQty := Trim(ADOTmp.fieldbyname('OrdQty').AsString);
FOrdUnit := Trim(ADOTmp.fieldbyname('OrdUnit').AsString);
FLoom := Trim(ADOTmp.fieldbyname('Loom').AsString);
FC_Width := Trim(ADOTmp.fieldbyname('C_Width').AsString);
Edit8.Text := copy(Trim(ADOTmp.fieldbyname('C_Width').AsString), 1, 3);

4
T04贸易明细仓库/TradeClothStk.dpr
View File

@ -34,7 +34,9 @@ uses
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_TradeClothTotalStkList_Sel in 'U_TradeClothTotalStkList_Sel.pas' {frmTradeClothTotalStkList_Sel},
U_TradeClothStkList_Sel in 'U_TradeClothStkList_Sel.pas' {frmTradeClothStkList_Sel},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas';
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_LabelPrint2 in '..\A00通用窗体\U_LabelPrint2.pas' {frmLabelPrint2},
U_printPdf in '..\A00通用窗体\U_printPdf.pas';
{$R *.res}

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

@ -124,7 +124,7 @@
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10gmbitao\T04贸易明细仓库\testDll.exe</Debugger_HostApplication>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10gmBitao\T04贸易明细仓库\testDll.exe</Debugger_HostApplication>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
@ -218,6 +218,11 @@
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<DCCReference Include="..\A00通用窗体\U_LabelPrint2.pas">
<Form>frmLabelPrint2</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_printPdf.pas"/>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

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

@ -1,61 +1,63 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.760,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\TradeClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.742,=D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeClothTotalOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.760,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.900,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.370,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.499,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.025,D:\Dp10Repo\项目代码\东亚\T00贸易通用窗体\U_TradeSalesContractSel.pas=D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeSalesContractSel2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.163,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.097,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.976,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\T04贸易明细仓库\U_TradeClothStkList_Sel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeClothTotalStkList_Sel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.976,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\T04贸易明细仓库\U_TradeClothStkList_Sel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.997,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.629,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.521,D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\T04贸易明细仓库\U_TradeClothTotalInList.dfm=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\T04贸易明细仓库\U_TradeClothTotalOutList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeClothTotalStkList_Sel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.097,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.521,D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\T04贸易明细仓库\U_TradeClothTotalInList.pas=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\T04贸易明细仓库\U_TradeClothTotalOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.900,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.980,D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeSalesContractSel.pas=D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeSalesContractSel2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.980,D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeSalesContractSel.dfm=D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeSalesContractSel2.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.980,D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeSalesContractSel2.dfm=D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeSalesContractSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.434,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeClothTotalStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.868,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothWaitStorage.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.793,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.025,D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeSalesContractSel2.dfm=D:\Dp10Repo\项目代码\东亚\T00贸易通用窗体\U_TradeSalesContractSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.521,D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\T04贸易明细仓库\U_TradeClothTotalOutList.dfm=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\T04贸易明细仓库\U_TradeClothTotalInList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\TradeClothStk.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.793,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.868,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothWaitStorage.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.903,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.150,=D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeSalesContractSel2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.499,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.025,D:\Dp10Repo\项目代码\东亚\T00贸易通用窗体\U_TradeSalesContractSel.dfm=D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeSalesContractSel2.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.370,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.952,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.521,D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\T04贸易明细仓库\U_TradeClothTotalOutList.pas=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\T04贸易明细仓库\U_TradeClothTotalInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.150,=D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeSalesContractSel2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.980,D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeSalesContractSel2.pas=D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.025,D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeSalesContractSel2.pas=D:\Dp10Repo\项目代码\东亚\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.928,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.903,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.952,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>2025-08-28 14:11:25.941,=D:\Dp10Repo\项目代码\D10gmBitao\A00通用窗体\U_LabelPrint2.pas</Transaction>
<Transaction>2025-08-28 14:12:06.001,=D:\Dp10Repo\项目代码\D10gmBitao\A00通用窗体\U_printPdf.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -100,6 +102,9 @@
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
<File Path="..\A00通用窗体\U_LabelPrint.pas"/>
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
<File Path="..\A00通用窗体\U_LabelPrint2.pas"/>
<File Path="..\A00通用窗体\U_LabelPrint2.dfm"/>
<File Path="..\A00通用窗体\U_printPdf.pas"/>
<File Path="..\T00贸易通用窗体"/>
<File Path="..\T00贸易通用窗体\U_TradePlanSel.pas"/>
<File Path="..\T00贸易通用窗体\U_TradePlanSel.dfm"/>

BIN
T04贸易明细仓库/TradeClothStk.identcache
View File

Binary file not shown.

30
T04贸易明细仓库/U_TradeClothOutEdit.dfm
View File

@ -23,6 +23,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
TabOrder = 0
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Summary.DefaultGroupSummaryItems = <>
@ -58,6 +59,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object v1Column6: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
@ -68,6 +70,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object v1Column1: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'orderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Filtering = False
@ -76,12 +79,14 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object v1Column11: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'StkId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 75
end
object v1Column5: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'PieceNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Filtering = False
@ -90,6 +95,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object v1Column3: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Filtering = False
@ -98,12 +104,14 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object Tv1Column1: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 62
end
object v2Column6: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'StkMeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Filtering = False
@ -112,6 +120,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object v2Column5: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'StkGrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Filtering = False
@ -120,6 +129,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object Tv1Column2: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'BatchNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
@ -210,6 +220,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
TabOrder = 0
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv2CellDblClick
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
@ -226,6 +237,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object v1OrderNo: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Options.Sorting = False
@ -234,6 +246,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object v2Column2: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 123
@ -241,6 +254,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object cxGridDBColumn2: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Options.Sorting = False
@ -249,6 +263,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object cxGridDBColumn3: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Options.Sorting = False
@ -257,12 +272,14 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object Tv2Column2: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'PCPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 48
end
object v1Column10: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'PCQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 51
@ -270,6 +287,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object v1Column14: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'PCUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 42
@ -277,6 +295,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object v1PRTMF: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Options.Sorting = False
@ -285,6 +304,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object v1PRTKZ: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Options.Sorting = False
@ -458,6 +478,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
TabOrder = 0
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -486,6 +507,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object v3Column5: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
@ -496,6 +518,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object cxGridDBColumn1: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'orderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
@ -503,6 +526,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object cxGridDBColumn4: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'PieceNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 52
@ -510,6 +534,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object v3MJID: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'StkId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
@ -517,6 +542,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object v3Column3: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -524,12 +550,14 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object Tv3Column1: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 67
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'StkMeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -538,6 +566,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object v3Column1: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'StkGrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 59
@ -545,6 +574,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
object Tv3Column2: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'BatchNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end

2
T04贸易明细仓库/U_TradeClothOutEdit.pas
View File

@ -11,7 +11,7 @@ uses
cxControls, cxGridCustomView, cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, U_BaseList, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, RM_Common, RM_Class,
RM_GridReport, RM_Dataset, Vcl.ToolWin;
RM_GridReport, RM_Dataset, Vcl.ToolWin, dxScrollbarAnnotations;
type
TfrmTradeClothOutEdit = class(TfrmBaseList)

8
T04贸易明细仓库/U_TradeClothOutList.pas
View File

@ -165,7 +165,7 @@ type
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint, U_LabSet;
U_DataLink, U_RTFun, U_LabelPrint, U_LabSet,U_LabelPrint2;
{$R *.dfm}
@ -624,8 +624,8 @@ begin
Exit;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
frmLabelPrint2 := TfrmLabelPrint2.Create(Application);
with frmLabelPrint2 do
begin
FLMType := 'TradeOutPrint';
FFiltration1 := Trim(self.CDS_1.fieldbyname('IONO').AsString);
@ -636,7 +636,7 @@ begin
end;
end;
finally
frmLabelPrint.Free;
frmLabelPrint2.Free;
end;
end;

78
T04贸易明细仓库/U_TradeClothStkList_Sel.dfm
View File

@ -101,7 +101,7 @@ inherited frmTradeClothStkList_Sel: TfrmTradeClothStkList_Sel
end
object Label3: TLabel
Left = 324
Top = 10
Top = 11
Width = 48
Height = 13
Hint = '0'
@ -109,7 +109,7 @@ inherited frmTradeClothStkList_Sel: TfrmTradeClothStkList_Sel
end
object TLabel
Left = 536
Top = 10
Top = 11
Width = 60
Height = 13
Hint = '0'
@ -117,7 +117,7 @@ inherited frmTradeClothStkList_Sel: TfrmTradeClothStkList_Sel
end
object Label10: TLabel
Left = 747
Top = 48
Top = 50
Width = 36
Height = 13
Hint = '1'
@ -133,7 +133,7 @@ inherited frmTradeClothStkList_Sel: TfrmTradeClothStkList_Sel
end
object lbl1: TLabel
Left = 745
Top = 8
Top = 11
Width = 36
Height = 13
Hint = '0'
@ -176,7 +176,7 @@ inherited frmTradeClothStkList_Sel: TfrmTradeClothStkList_Sel
end
object lbl4: TLabel
Left = 951
Top = 8
Top = 11
Width = 24
Height = 13
Hint = '0'
@ -184,7 +184,7 @@ inherited frmTradeClothStkList_Sel: TfrmTradeClothStkList_Sel
end
object lbl5: TLabel
Left = 951
Top = 48
Top = 50
Width = 24
Height = 13
Hint = '0'
@ -192,12 +192,28 @@ inherited frmTradeClothStkList_Sel: TfrmTradeClothStkList_Sel
end
object lbl6: TLabel
Left = 1163
Top = 6
Top = 11
Width = 24
Height = 13
Hint = '0'
Caption = #21367#21495
end
object lbl7: TLabel
Left = 1162
Top = 50
Width = 24
Height = 13
Hint = '0'
Caption = #20928#37325
end
object lbl8: TLabel
Left = 1354
Top = 11
Width = 24
Height = 13
Hint = '0'
Caption = #31859#25968
end
object BegDate: TDateTimePicker
Left = 154
Top = 6
@ -269,7 +285,7 @@ inherited frmTradeClothStkList_Sel: TfrmTradeClothStkList_Sel
object STKID: TEdit
Tag = 2
Left = 816
Top = 44
Top = 46
Width = 100
Height = 21
Hint = '1'
@ -289,7 +305,7 @@ inherited frmTradeClothStkList_Sel: TfrmTradeClothStkList_Sel
object PCId: TEdit
Tag = 2
Left = 816
Top = 4
Top = 6
Width = 100
Height = 21
Hint = '0'
@ -309,7 +325,7 @@ inherited frmTradeClothStkList_Sel: TfrmTradeClothStkList_Sel
object C_Width: TEdit
Tag = 2
Left = 1022
Top = 4
Top = 6
Width = 100
Height = 21
Hint = '0'
@ -319,7 +335,7 @@ inherited frmTradeClothStkList_Sel: TfrmTradeClothStkList_Sel
object C_GramWeight: TEdit
Tag = 2
Left = 1022
Top = 44
Top = 46
Width = 100
Height = 21
Hint = '0'
@ -329,13 +345,33 @@ inherited frmTradeClothStkList_Sel: TfrmTradeClothStkList_Sel
object PieceNo: TEdit
Tag = 1
Left = 1214
Top = 4
Top = 6
Width = 100
Height = 21
Hint = '0'
TabOrder = 13
OnKeyPress = orderNoKeyPress
end
object NetWeight: TEdit
Tag = 2
Left = 1214
Top = 46
Width = 100
Height = 21
Hint = '0'
TabOrder = 14
OnKeyPress = orderNoKeyPress
end
object Meter: TEdit
Tag = 2
Left = 1397
Top = 6
Width = 100
Height = 21
Hint = '0'
TabOrder = 15
OnKeyPress = orderNoKeyPress
end
end
object Panel6: TPanel [2]
Left = 0
@ -453,10 +489,10 @@ inherited frmTradeClothStkList_Sel: TfrmTradeClothStkList_Sel
ParentFont = False
PopupMenu = PM_1
TabOrder = 3
ExplicitTop = 179
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Summary.DefaultGroupSummaryItems = <>
@ -621,14 +657,6 @@ inherited frmTradeClothStkList_Sel: TfrmTradeClothStkList_Sel
Options.Editing = False
Width = 74
end
object Tv1Column2: TcxGridDBColumn
Caption = #26426#21488#21495
DataBinding.FieldName = 'Loom'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column34: TcxGridDBColumn
Caption = #24067#31080#21495
DataBinding.FieldName = 'BCIOID'
@ -725,6 +753,14 @@ inherited frmTradeClothStkList_Sel: TfrmTradeClothStkList_Sel
Options.Editing = False
Width = 100
end
object cxgrdbclmnTv1Column4: TcxGridDBColumn
Caption = #25171#21367#26426#21488#21495
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

29
T04贸易明细仓库/U_TradeClothStkList_Sel.pas
View File

@ -99,7 +99,6 @@ type
N1: TMenuItem;
Tv1Column6: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
ToolButton1: TToolButton;
lbl2: TLabel;
lbl3: TLabel;
@ -126,6 +125,11 @@ type
cxGridLevel1: TcxGridLevel;
CD_2: TDataSource;
CDS_2: TClientDataSet;
lbl7: TLabel;
NetWeight: TEdit;
lbl8: TLabel;
Meter: TEdit;
cxgrdbclmnTv1Column4: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -150,6 +154,7 @@ type
procedure ToolButton1Click(Sender: TObject);
procedure v1Column22PropertiesChange(Sender: TObject);
procedure TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
private
CurrentPage, RecordsNumber: Integer;
lstCust: TStringList;
@ -359,6 +364,28 @@ begin
lbl3.Caption := IntToStr(sl.Count);
end;
procedure TfrmTradeClothStkList_Sel.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
var
AColumn: TcxGridDBColumn;
begin
if CDS_1.Active and (CDS_1.RecNo > 0) then
begin
CDS_1.Edit;
CDS_1.FieldByName('SSel').AsBoolean := not CDS_1.FieldByName('SSel').AsBoolean;
CDS_1.Post;
end;
// 手动通知网格刷新当前行的显示
AColumn := TV1.GetColumnByFieldName('SSel') as TcxGridDBColumn;
if AColumn <> nil then
TV1.ViewData.Records[TV1.DataController.FocusedRowIndex].Invalidate(AColumn);
// 手动触发OnChange事件
if Assigned(AColumn.Properties.OnChange) then
AColumn.Properties.OnChange(Self);
end;
procedure TfrmTradeClothStkList_Sel.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
begin
lstCust.Clear;

13
Z99Dependency/ThreeFun/Form/GetAddRess.dpr Normal file
View File

@ -0,0 +1,13 @@
program GetAddRess;
uses
Forms,
U_GetAddRess in 'U_GetAddRess.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

10793
Z99Dependency/ThreeFun/Form/U_ColumnBandSet.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

468
Z99Dependency/ThreeFun/Form/U_ColumnBandSet.pas Normal file
View File

@ -0,0 +1,468 @@
unit U_ColumnBandSet;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, cxCheckBox, ADODB, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin,
ImgList, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, System.ImageList;
type
TfrmColumnBandSet = class(TForm)
ToolBar1: TToolBar;
TBTP: TToolButton;
TBClose: TToolButton;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
v1Column1: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
v2Column1: TcxGridDBColumn;
ClientDataSet1: TClientDataSet;
ClientDataSet2: TClientDataSet;
DataSource1: TDataSource;
DataSource2: TDataSource;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
ADOQuery3: TADOQuery;
ADOQuery4: TADOQuery;
ADOLink: TADOConnection;
ThreeImgList: TImageList;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
SkyBlue: TcxStyle;
Default: TcxStyle;
QHuangSe: TcxStyle;
Red: TcxStyle;
FontBlue: TcxStyle;
TextSHuangSe: TcxStyle;
FonePurple: TcxStyle;
FoneClMaroon: TcxStyle;
FoneRed: TcxStyle;
RowColor: TcxStyle;
handBlack: TcxStyle;
cxBlue: TcxStyle;
FenHongS: TcxStyle;
cxGrid3: TcxGrid;
Tv3: TcxGridDBTableView;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
DSName: TDataSource;
CDSName: TClientDataSet;
ADOQuery5: TADOQuery;
v2Column2: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure TBTPClick(Sender: TObject);
procedure Tv1CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure SCreateCDS200(SADOQry:TADOQuery; mClientDataset:TclientDataSet );
procedure SInitCDSData200(fromADO:TADOQuery;toCDS:TclientDataSet);
function GetLSNo200(ADOQueryTmp:TADOQuery;
var mMaxNo:string;
mFlag:string;
mTable:string;
mlen:integer;
mtype:integer=0):Boolean;
public
MKName:String;
{ Public declarations }
end;
var
frmColumnBandSet: TfrmColumnBandSet;
implementation
uses
U_DataLink;
{$R *.dfm}
procedure TfrmColumnBandSet.FormDestroy(Sender: TObject);
begin
frmColumnBandSet:=nil;
end;
procedure TfrmColumnBandSet.SCreateCDS200(SADOQry:TADOQuery; mClientDataset:TclientDataSet );
var
i:integer;
mfieldName:string;
mSize:integer;
begin
mfieldName:='';
mClientDataset.FieldDefs.Clear;
with SADOQry do
begin
for i:=0 to fieldCount-1 do //
begin
if (Fields[i].DataType=ftString) and (Fields[i].Size=0) then
begin
msize:=1;
end
else
msize:=Fields[i].Size;
mfieldName:=trim(fields[i].FieldName);
mClientDataset.FieldDefs.Add(mfieldName,
Fields[i].DataType,msize);
end;
end;
mClientDataset.FieldDefs.Add('Sflag',ftString,1);
mClientDataset.FieldDefs.Add('Sindex',ftInteger,0);
mClientDataset.FieldDefs.Add('Ssel',ftBoolean,0);
mClientDataset.FieldDefs.Add('SDefNote',ftString,10);
mClientDataset.Close;
mClientDataset.CreateDataSet;
end;
procedure TfrmColumnBandSet.SInitCDSData200(fromADO:TADOQuery;toCDS:TclientDataSet);
var
i:integer;
k:integer;
begin
if fromADO.IsEmpty then exit;
fromADO.first;
K:=1;
try
toCDS.DisableControls;
toCDS.Filtered:=false;
while not fromADO.Eof do
begin
with toCDS do
begin
Append;
for i:=0 to fromADO.FieldCount-1 do
begin
fields[i].value:=fromADO.Fields[i].Value ;
end;
fieldByName('Sflag').AsString :='1';
fieldByName('Sindex').value :=k;
fieldByName('Ssel').value :=false;
inc(k);
Post;
end;
fromADO.Next;
end;
if not toCDS.IsEmpty then
begin
toCDS.First ;
end;
finally
toCDS.EnableControls;
end;
end;
procedure TfrmColumnBandSet.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmColumnBandSet.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmColumnBandSet.FormShow(Sender: TObject);
begin
try
ADOQuery1.DisableControls;
with ADOQuery1 do
begin
Close;
sql.Clear;
SQL.Add('select * from SY_User where UserId<>''Admin'' ');
Open;
end;
SCreateCDS200(ADOQuery1,ClientDataSet1);
SInitCDSData200(ADOQuery1,ClientDataSet1);
finally
ADOQuery1.EnableControls;
end;
end;
procedure TfrmColumnBandSet.TBTPClick(Sender: TObject);
var
MaxNo:String;
begin
if ClientDataSet1.IsEmpty then Exit;
if ClientDataSet1.Locate('SSel',True,[])=False then Exit;
try
ADOQuery3.Connection.BeginTrans;
if ClientDataSet1.Locate('SSel',True,[])=True then
begin
with ClientDataSet1 do
begin
First;
while not eof do
begin
if ClientDataSet1.FieldByName('SSel').AsBoolean=True then
begin
with ADOQuery3 do
begin
Close;
sql.Clear;
sql.Add('Delete Table_Column where ');
sql.Add(' Owner='''+Trim(ClientDataSet1.fieldbyname('UserId').AsString)+'''');
ExecSQL;
end;
with ADOQuery3 do
begin
Close;
sql.Clear;
sql.Add('select * from Table_Column where 1<>1 ');
open;
end;
ClientDataSet2.DisableControls;
with ClientDataSet2 do
begin
first;
while not Eof do
begin
with ADOQuery3 do
begin
Append;
if GetLSNo200(ADOQuery4,MaxNo,'CL','Table_Column',4,1)=False then
begin
ADOQuery3.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！','提示',0);
Exit;
end;
FieldByName('TCID').Value:=Trim(MaxNo);
FieldByName('Owner').Value:=Trim(ClientDataSet1.fieldbyname('UserId').AsString);
//SSetSaveDataCDSNew(ADOQuery3,Tv2,ClientDataSet2,'Table_Column',0);
FieldByName('CxTabName').Value:=Trim(ClientDataSet2.fieldbyname('CxTabName').AsString);
FieldByName('CxColName').Value:=Trim(ClientDataSet2.fieldbyname('CxColName').AsString);
if ClientDataSet2.fieldbyname('TCNotVisble').AsBoolean=True then
FieldByName('TCNotVisble').Value:=1
else
FieldByName('TCNotVisble').Value:=0;
FieldByName('ColName').Value:=Trim(ClientDataSet2.fieldbyname('ColName').AsString);
FieldByName('OrderNo').Value:=ClientDataSet2.fieldbyname('OrderNo').Value;
FieldByName('FillTime').Value:=Now;
Post;
end;
Next;
end;
end;
ClientDataSet2.EnableControls;
end;
Next;
end;
end;
if ClientDataSet1.Locate('SSel',True,[])=True then
begin
with ClientDataSet1 do
begin
First;
while not eof do
begin
if ClientDataSet1.FieldByName('SSel').AsBoolean=True then
begin
with ADOQuery3 do
begin
Close;
sql.Clear;
sql.Add(' Delete Table_Name where');
sql.Add(' Owner='''+Trim(ClientDataSet1.fieldbyname('UserId').AsString)+'''');
ExecSQL;
end;
with ADOQuery3 do
begin
Close;
sql.Clear;
sql.Add('select * from Table_Name where 1<>1 ');
open;
end;
CDSName.DisableControls;
with CDSName do
begin
First;
while not eof do
begin
with ADOQuery3 do
begin
Append;
FieldByName('Owner').Value:=Trim(ClientDataSet1.fieldbyname('UserId').AsString);
FieldByName('CxTabName').Value:=Trim(CDSName.fieldbyname('CxTabName').AsString);
if CDSName.fieldbyname('TCNotVisble').AsBoolean=True then
FieldByName('TCNotVisble').Value:=1
else
FieldByName('TCNotVisble').Value:=0;
if CDSName.fieldbyname('InPut').AsBoolean=True then
FieldByName('InPut').Value:=1
else
FieldByName('InPut').Value:=0;
FieldByName('FillTime').Value:=Now;
FieldByName('OrderNo').Value:=CDSName.fieldbyname('OrderNo').Value;
Post;
end;
next;
end;
end;
CDSName.EnableControls;
end;
Next;
end;
end;
end;
end;
ADOQuery3.Connection.CommitTrans;
Application.MessageBox('保存成功！','提示',0);
except
ADOQuery3.Connection.RollbackTrans;
Application.MessageBox('保存失败！','提示',0);
end;
end;
function TfrmColumnBandSet.GetLSNo200(ADOQueryTmp:TADOQuery;
var mMaxNo:string;
mFlag:string;
mTable:string;
mlen:integer;
mtype:integer=0):Boolean;
begin
try
with ADOQueryTmp do
begin
Close;
sql.Clear ;
sql.Add('exec Get_SY_MaxBH ');
sql.Add(' '+quotedStr(mFlag));
sql.Add(','+quotedStr(mTable));
sql.Add(','+intTostr(mlen));
sql.Add(','+intTostr(mtype));
//ShowMessage(SQL.Text);
Open;
if RecordCount>0 then
begin
mMaxNo:=trim(fieldByName('MaxBH').AsString) ;
if mMaxNo<>'' then
result:=true
else
Result:=false;
end
else
begin
result:=false;
end;
end;
if not Result then
application.MessageBox(Pchar('无法生成流水号('+mflag+')'),'提示信息',MB_ICONINFORMATION);
Except
result:=false;
application.MessageBox(Pchar('无法生成流水号('+mflag+')'),'提示信息',MB_ICONINFORMATION);
end;
end;
procedure TfrmColumnBandSet.Tv1CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
ADOQuery2.DisableControls;
with ADOQuery2 do
begin
Close;
sql.Clear;
sql.Add('select * from Table_Column where ');
sql.Add(' Owner='''+Trim(ClientDataSet1.fieldbyname('UserId').AsString)+'''');
Open;
end;
if ADOQuery2.IsEmpty=False then
begin
with ADOQuery2 do
begin
Close;
sql.Clear;
sql.Add('select * from Table_Column where ');
sql.Add(' Owner='''+Trim(ClientDataSet1.fieldbyname('UserId').AsString)+'''');
sql.Add(' order by OrderNo ');
Open;
end;
SCreateCDS200(ADOQuery2,ClientDataSet2);
SInitCDSData200(ADOQuery2,ClientDataSet2);
end else
begin
while ClientDataSet2.Locate('TCNotVisble',True,[]) do
begin
with ClientDataSet2 do
begin
Edit;
FieldByName('TCNotVisble').Value:=0;
Post;
end;
end;
end;
ADOQuery2.EnableControls;
ADOQuery5.DisableControls;
with ADOQuery5 do
begin
Close;
sql.Clear;
sql.Add('select * from Table_Name where ');
sql.Add(' Owner='''+Trim(ClientDataSet1.fieldbyname('UserId').AsString)+'''');
Open;
end;
if ADOQuery5.IsEmpty=False then
begin
with ADOQuery5 do
begin
Close;
sql.Clear;
sql.Add('select * from Table_Name where ');
sql.Add(' Owner='''+Trim(ClientDataSet1.fieldbyname('UserId').AsString)+'''');
sql.Add(' order by OrderNo ');
Open;
end;
SCreateCDS200(ADOQuery5,CDSName);
SInitCDSData200(ADOQuery5,CDSName);
end else
begin
while CDSName.Locate('TCNotVisble',True,[]) do
begin
with CDSName do
begin
Edit;
FieldByName('TCNotVisble').Value:=0;
FieldByName('InPut').Value:=0;
Post;
end;
end;
end;
ADOQuery5.EnableControls;
end;
procedure TfrmColumnBandSet.FormCreate(Sender: TObject);
begin
with ADOLink do
begin
if not Connected then
begin
Connected:=false;
ConnectionString:=DConString;
//LoginPrompt:=false;
Connected:=true;
end;
end;
end;
end.

10736
Z99Dependency/ThreeFun/Form/U_ColumnSet.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

348
Z99Dependency/ThreeFun/Form/U_ColumnSet.pas Normal file
View File

@ -0,0 +1,348 @@
unit U_ColumnSet;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, cxCheckBox, ADODB, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin,
ImgList, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, System.ImageList;
type
TfrmColumnSet = class(TForm)
ToolBar1: TToolBar;
TBTP: TToolButton;
TBClose: TToolButton;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
v1Column1: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
v2Column1: TcxGridDBColumn;
ClientDataSet1: TClientDataSet;
ClientDataSet2: TClientDataSet;
DataSource1: TDataSource;
DataSource2: TDataSource;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
ADOQuery3: TADOQuery;
ADOQuery4: TADOQuery;
ADOLink: TADOConnection;
ThreeImgList: TImageList;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
SkyBlue: TcxStyle;
Default: TcxStyle;
QHuangSe: TcxStyle;
Red: TcxStyle;
FontBlue: TcxStyle;
TextSHuangSe: TcxStyle;
FonePurple: TcxStyle;
FoneClMaroon: TcxStyle;
FoneRed: TcxStyle;
RowColor: TcxStyle;
handBlack: TcxStyle;
cxBlue: TcxStyle;
FenHongS: TcxStyle;
procedure FormDestroy(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure TBTPClick(Sender: TObject);
procedure Tv1CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure SCreateCDS200(SADOQry:TADOQuery; mClientDataset:TclientDataSet );
procedure SInitCDSData200(fromADO:TADOQuery;toCDS:TclientDataSet);
function GetLSNo200(ADOQueryTmp:TADOQuery;
var mMaxNo:string;
mFlag:string;
mTable:string;
mlen:integer;
mtype:integer=0):Boolean;
public
MKName:String;
{ Public declarations }
end;
var
frmColumnSet: TfrmColumnSet;
implementation
uses
U_DataLink;
{$R *.dfm}
procedure TfrmColumnSet.FormDestroy(Sender: TObject);
begin
frmColumnSet:=nil;
end;
procedure TfrmColumnSet.SCreateCDS200(SADOQry:TADOQuery; mClientDataset:TclientDataSet );
var
i:integer;
mfieldName:string;
mSize:integer;
begin
mfieldName:='';
mClientDataset.FieldDefs.Clear;
with SADOQry do
begin
for i:=0 to fieldCount-1 do //
begin
if (Fields[i].DataType=ftString) and (Fields[i].Size=0) then
begin
msize:=1;
end
else
msize:=Fields[i].Size;
mfieldName:=trim(fields[i].FieldName);
mClientDataset.FieldDefs.Add(mfieldName,
Fields[i].DataType,msize);
end;
end;
mClientDataset.FieldDefs.Add('Sflag',ftString,1);
mClientDataset.FieldDefs.Add('Sindex',ftInteger,0);
mClientDataset.FieldDefs.Add('Ssel',ftBoolean,0);
mClientDataset.FieldDefs.Add('SDefNote',ftString,10);
mClientDataset.Close;
mClientDataset.CreateDataSet;
end;
procedure TfrmColumnSet.SInitCDSData200(fromADO:TADOQuery;toCDS:TclientDataSet);
var
i:integer;
k:integer;
begin
if fromADO.IsEmpty then exit;
fromADO.first;
K:=1;
try
toCDS.DisableControls;
toCDS.Filtered:=false;
while not fromADO.Eof do
begin
with toCDS do
begin
Append;
for i:=0 to fromADO.FieldCount-1 do
begin
fields[i].value:=fromADO.Fields[i].Value ;
end;
fieldByName('Sflag').AsString :='1';
fieldByName('Sindex').value :=k;
fieldByName('Ssel').value :=false;
inc(k);
Post;
end;
fromADO.Next;
end;
if not toCDS.IsEmpty then
begin
toCDS.First ;
end;
finally
toCDS.EnableControls;
end;
end;
procedure TfrmColumnSet.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmColumnSet.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmColumnSet.FormShow(Sender: TObject);
begin
try
ADOQuery1.DisableControls;
with ADOQuery1 do
begin
Close;
sql.Clear;
SQL.Add('select * from SY_User where UserId<>''Admin'' ');
Open;
end;
SCreateCDS200(ADOQuery1,ClientDataSet1);
SInitCDSData200(ADOQuery1,ClientDataSet1);
finally
ADOQuery1.EnableControls;
end;
end;
procedure TfrmColumnSet.TBTPClick(Sender: TObject);
var
MaxNo:String;
begin
if ClientDataSet1.Locate('SSel',True,[])=False then Exit;
try
ADOQuery3.Connection.BeginTrans;
with ClientDataSet1 do
begin
First;
while not eof do
begin
if ClientDataSet1.FieldByName('SSel').AsBoolean=True then
begin
with ADOQuery3 do
begin
Close;
sql.Clear;
sql.Add('Delete Table_Column where CxTabName='''+Trim(ClientDataSet2.fieldbyname('CxTabName').AsString)+'''');
sql.Add(' and Owner='''+Trim(ClientDataSet1.fieldbyname('UserId').AsString)+'''');
ExecSQL;
end;
with ADOQuery3 do
begin
Close;
sql.Clear;
sql.Add('select * from Table_Column where 1<>1 ');
open;
end;
with ClientDataSet2 do
begin
first;
while not Eof do
begin
with ADOQuery3 do
begin
Append;
if GetLSNo200(ADOQuery4,MaxNo,'CL','Table_Column',4,1)=False then
begin
ADOQuery3.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！','提示',0);
Exit;
end;
FieldByName('TCID').Value:=Trim(MaxNo);
FieldByName('Owner').Value:=Trim(ClientDataSet1.fieldbyname('UserId').AsString);
//SSetSaveDataCDSNew(ADOQuery3,Tv2,ClientDataSet2,'Table_Column',0);
FieldByName('CxTabName').Value:=Trim(ClientDataSet2.fieldbyname('CxTabName').AsString);
FieldByName('CxColName').Value:=Trim(ClientDataSet2.fieldbyname('CxColName').AsString);
FieldByName('TCNotVisble').Value:=ClientDataSet2.fieldbyname('TCNotVisble').Value;
FieldByName('ColName').Value:=Trim(ClientDataSet2.fieldbyname('ColName').AsString);
Post;
end;
Next;
end;
end;
end;
Next;
end;
end;
ADOQuery3.Connection.CommitTrans;
Application.MessageBox('保存成功！','提示',0);
except
ADOQuery3.Connection.RollbackTrans;
Application.MessageBox('保存失败！','提示',0);
end;
end;
function TfrmColumnSet.GetLSNo200(ADOQueryTmp:TADOQuery;
var mMaxNo:string;
mFlag:string;
mTable:string;
mlen:integer;
mtype:integer=0):Boolean;
begin
try
with ADOQueryTmp do
begin
Close;
sql.Clear ;
sql.Add('exec Get_SY_MaxBH ');
sql.Add(' '+quotedStr(mFlag));
sql.Add(','+quotedStr(mTable));
sql.Add(','+intTostr(mlen));
sql.Add(','+intTostr(mtype));
//ShowMessage(SQL.Text);
Open;
if RecordCount>0 then
begin
mMaxNo:=trim(fieldByName('MaxBH').AsString) ;
if mMaxNo<>'' then
result:=true
else
Result:=false;
end
else
begin
result:=false;
end;
end;
if not Result then
application.MessageBox(Pchar('无法生成流水号('+mflag+')'),'提示信息',MB_ICONINFORMATION);
Except
result:=false;
application.MessageBox(Pchar('无法生成流水号('+mflag+')'),'提示信息',MB_ICONINFORMATION);
end;
end;
procedure TfrmColumnSet.Tv1CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
ADOQuery2.DisableControls;
with ADOQuery2 do
begin
Close;
sql.Clear;
sql.Add('select * from Table_Column where CxTabName='''+Trim(ClientDataSet2.fieldbyname('CxTabName').AsString)+'''');
sql.Add(' and Owner='''+Trim(ClientDataSet1.fieldbyname('UserId').AsString)+'''');
Open;
end;
if ADOQuery2.IsEmpty=False then
begin
SCreateCDS200(ADOQuery2,ClientDataSet2);
SInitCDSData200(ADOQuery2,ClientDataSet2);
end else
begin
while ClientDataSet2.Locate('TCNotVisble',True,[]) do
begin
with ClientDataSet2 do
begin
Edit;
FieldByName('TCNotVisble').Value:=0;
Post;
end;
end;
end;
ADOQuery2.EnableControls;
end;
procedure TfrmColumnSet.FormCreate(Sender: TObject);
begin
with ADOLink do
begin
if not Connected then
begin
Connected:=false;
ConnectionString:=DConString;
//LoginPrompt:=false;
Connected:=true;
end;
end;
end;
end.

88
Z99Dependency/ThreeFun/Form/U_CompressionFun.pas Normal file
View File

@ -0,0 +1,88 @@
unit U_CompressionFun;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, ShlObj, cxShellCommon, cxControls,
cxContainer, cxShellTreeView, cxShellListView, StdCtrls, BtnEdit,
OleCtnrs, DB, ADODB,ZLib;
procedure CompressionStream(var ASrcStream:TMemoryStream;ACompressionLevel:Integer = 2);
procedure UnCompressionStream(var ASrcStream:TMemoryStream);
implementation
uses
U_iniparam;
////////////////////////////////////////////////////
///////压缩流
////////////////////////////////////////////////////
procedure CompressionStream(var ASrcStream:TMemoryStream;ACompressionLevel:Integer = 2);
var
nDestStream:TMemoryStream;
nTmpStream:TCompressionStream;
nCompressionLevel:TCompressionLevel;
begin
ASrcStream.Position := 0;
nDestStream := TMemoryStream.Create;
try
//级别
case ACompressionLevel of
0:nCompressionLevel := clNone;
1:nCompressionLevel := clFastest;
2:nCompressionLevel := clDefault;
3:nCompressionLevel := clMax;
else
nCompressionLevel := clMax;
end;
//开始压缩
nTmpStream := TCompressionStream.Create(nCompressionLevel,nDestStream);
try
ASrcStream.SaveToStream(nTmpStream);
finally
nTmpStream.Free;//释放后nDestStream才会有数据
end;
ASrcStream.Clear;
ASrcStream.LoadFromStream(nDestStream);
ASrcStream.Position := 0;
finally
nDestStream.Clear;
nDestStream.Free;
end;
end;
////////////////////////////////////////////////////
///////解压缩流
////////////////////////////////////////////////////
procedure UnCompressionStream(var ASrcStream:TMemoryStream);
var
nTmpStream:TDecompressionStream;
nDestStream:TMemoryStream;
nBuf: array[1..512] of Byte;
nSrcCount: integer;
begin
ASrcStream.Position := 0;
nDestStream := TMemoryStream.Create;
nTmpStream := TDecompressionStream.Create(ASrcStream);
try
repeat
//读入实际大小
nSrcCount := nTmpStream.Read(nBuf, SizeOf(nBuf));
if nSrcCount > 0 then
nDestStream.Write(nBuf, nSrcCount);
until (nSrcCount = 0);
ASrcStream.Clear;
ASrcStream.LoadFromStream(nDestStream);
ASrcStream.Position := 0;
finally
nDestStream.Clear;
nDestStream.Free;
nTmpStream.Free;
end;
end;
end.

10616
Z99Dependency/ThreeFun/Form/U_DxZDYHelp.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

312
Z99Dependency/ThreeFun/Form/U_DxZDYHelp.pas Normal file
View File

@ -0,0 +1,312 @@
unit U_DxZDYHelp;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, ToolWin, ComCtrls,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList,
StdCtrls, ExtCtrls, cxCheckBox, cxDropDownEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator,
dxDateRanges, System.ImageList;
type
TfrmDxZDYHelp = class(TForm)
TV1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
V1Code: TcxGridDBColumn;
V1Name: TcxGridDBColumn;
ToolBar1: TToolBar;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DataSource1: TDataSource;
ClientDataSet1: TClientDataSet;
TBAdd: TToolButton;
TBSave: TToolButton;
TBDel: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
TBEdit: TToolButton;
V1Note: TcxGridDBColumn;
V1OrderNo: TcxGridDBColumn;
ADOConnection1: TADOConnection;
Panel1: TPanel;
Label1: TLabel;
ZDYName: TEdit;
ThreeImgList: TImageList;
V1Sel: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TV1CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure ZDYNameChange(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
flag,flagname,snote:string;
fnote,forderno:Boolean;
Mresult:string;
{ Public declarations }
end;
var
frmDxZDYHelp: TfrmDxZDYHelp;
implementation
uses
U_DataLink,U_Fun10, U_ZDYHelp;
{$R *.dfm}
procedure TfrmDxZDYHelp.FormCreate(Sender: TObject);
begin
cxGrid1.Align:=alClient;
with ADOConnection1 do
begin
Connected:=false;
ConnectionString:=DConString;
Connected:=true;
end;
end;
procedure TfrmDxZDYHelp.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=cahide;
end;
procedure TfrmDxZDYHelp.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select * from KH_ZDY where Type='''+flag+'''');
Open;
end;
SCreateCDS20(ADOQueryMain,ClientDataSet1);
SInitCDSData20(ADOQueryMain,ClientDataSet1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmDxZDYHelp.TBAddClick(Sender: TObject);
begin
v1name.Options.Editing:=true;
//TV1.OptionsData.Editing:=True;
with ClientDataSet1 do
begin
Append;
Post;
end;
end;
procedure TfrmDxZDYHelp.TBSaveClick(Sender: TObject);
var
maxno:string;
begin
if ClientDataSet1.IsEmpty then Exit;
try
ADOQueryCmd.Connection.BeginTrans;
{with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('delete KH_ZDY where Type='''+Trim(Flag)+'''');
SQL.Add('delete KH_ZDY where ZDYNo='''+Trim(Flag)+'''');
sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type) select :ZDYNo,:ZDYName,:Type ');
Parameters.ParamByName('ZDYNo').Value:=Trim(flag);
Parameters.ParamByName('ZDYName').Value:=Trim(flagname);
Parameters.ParamByName('Type').Value:='Main';
ExecSQL;
end;}
with ADOQueryCmd do
begin
with ClientDataSet1 do
begin
First;
while not eof do
begin
if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString)='' then
begin
if GetLSNo(ADOQueryTemp,maxno,'SY','KH_ZDY',3,1)=False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大编号失败！','提示',0);
Exit;
end;
end else
begin
maxno:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('delete KH_ZDY where ZDYNO='''+Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString)+'''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from KH_ZDY where 1<>1');
Open;
end;
if Trim(ClientDataSet1.FieldByName('ZDYName').AsString)='' then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('名称不能为空！','提示',0);
Exit;
end;
ADOQueryCmd.Append;
ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(maxno);
ADOQueryCmd.FieldByName('ZDYName').Value:=ClientDataSet1.fieldbyname('ZDYName').AsString;
ADOQueryCmd.FieldByName('note').Value:=Trim(ClientDataSet1.fieldbyname('note').AsString);
//ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
ADOQueryCmd.FieldByName('Type').Value:=flag;
ADOQueryCmd.FieldByName('valid').Value:='Y';
//ADOQueryCmd.FieldByName('sel').Value:=0;
ADOQueryCmd.Post;
ClientDataSet1.Edit;
ClientDataSet1.FieldByName('ZDYNo').Value:=Trim(maxno);
ClientDataSet1.Post;
Next;
end;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
Application.MessageBox('保存成功！','提示',0);
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！','提示',0);
end;
V1Name.Options.Editing:=false;
end;
procedure TfrmDxZDYHelp.TBDelClick(Sender: TObject);
begin
if ClientDataSet1.IsEmpty then Exit;
if (Trim(ClientDataSet1.FieldByName('ZDYNo').AsString)<>'') or
(Trim(ClientDataSet1.FieldByName('ZDYname').AsString)<>'') then
begin
if application.MessageBox('确定要删除吗?','提示信息',1)=2 then exit;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete KH_ZDY where ZDYNo='''+Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString)+'''');
SQL.Add(' and Type='''+Trim(flag)+'''');
ExecSQL;
end;
end;
ClientDataSet1.Delete;
end;
procedure TfrmDxZDYHelp.TBCloseClick(Sender: TObject);
begin
ModalResult:=2;
Close;
end;
procedure TfrmDxZDYHelp.FormShow(Sender: TObject);
var
fsj,fsj1:string;
begin
InitGrid();
fsj:=Trim(flag)+'01';
fsj1:=Trim(flagname)+'01';
{if ClientDataSet1.IsEmpty then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('insert into KH_ZDY(ZDYNo,ZDYname,Type,note)');
sql.Add('select '''+Trim(fsj)+'''');
sql.Add(','''+Trim(fsj1)+'''');
SQL.Add(','''+Trim(flag)+'''');
sql.Add(','''+Trim(snote)+'''');
ExecSQL;
end;
InitGrid();
end;}
frmDxZDYHelp.Caption:=Trim(flagname)+'<'+Trim(flag)+'>';
end;
procedure TfrmDxZDYHelp.ToolButton1Click(Sender: TObject);
var
ftype:string;
i:integer;
begin
i:=0;
with ClientDataSet1 do
begin
Mresult:='';
First;
DisableControls;
while not eof do
begin
if fieldbyname('Ssel').AsBoolean then
begin
if (i=1) and (ftype<>trim(fieldbyname('note').AsString)) then
begin
application.MessageBox('备注信息不同，不能选择！','提示信息',0);
EnableControls;
exit;
end;
Mresult:=Mresult+trim(fieldbyname('zdyname').AsString)+';';
ftype:=trim(fieldbyname('note').AsString);
i:=1;
end;
next;
end;
First;
EnableControls;
end;
ModalResult:=1;
end;
procedure TfrmDxZDYHelp.TBEditClick(Sender: TObject);
begin
v1name.Options.Editing:=true;
// TV1.OptionsData.Editing:=True;
end;
procedure TfrmDxZDYHelp.TV1CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
if v1name.Options.Editing=False then
begin
ToolButton1.Click;
end;
end;
procedure TfrmDxZDYHelp.ZDYNameChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS20(ADOQueryMain,ClientDataSet1);
SInitCDSData20(ADOQueryMain,ClientDataSet1);
end;
end;
end.

86
Z99Dependency/ThreeFun/Form/U_FilterHelp.dfm Normal file
View File

@ -0,0 +1,86 @@
object frmFilterHelp: TfrmFilterHelp
Left = 287
Top = 145
BorderStyle = bsDialog
Caption = #39640#32423#36807#28388
ClientHeight = 507
ClientWidth = 457
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 12
object ScrollBox1: TScrollBox
Left = 0
Top = 0
Width = 457
Height = 465
Align = alTop
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 0
object Label1: TLabel
Left = 184
Top = 8
Width = 68
Height = 16
Caption = #36807#28388#26465#20214
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object CheckBox1: TCheckBox
Left = 384
Top = 8
Width = 57
Height = 17
Caption = #31934#30830
TabOrder = 0
end
end
object Panel1: TPanel
Left = 0
Top = 465
Width = 457
Height = 43
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object Button1: TButton
Left = 112
Top = 9
Width = 75
Height = 25
Caption = #30830#23450
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 264
Top = 9
Width = 75
Height = 25
Caption = #20851#38381
TabOrder = 1
OnClick = Button2Click
end
end
object XPManifest1: TXPManifest
Left = 280
Top = 328
end
end

213
Z99Dependency/ThreeFun/Form/U_FilterHelp.pas Normal file
View File

@ -0,0 +1,213 @@
unit U_FilterHelp;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, cxStyles, cxCustomData, cxGraphics,
cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData,StrUtils,ADODB,
XPMan;
type
TfrmFilterHelp = class(TForm)
ScrollBox1: TScrollBox;
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
CheckBox1: TCheckBox;
XPManifest1: TXPManifest;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
procedure CreateFilers(Tv1:TcxGridDBTableView);
function GSGetFilters():string;
procedure GSQryDofilter(ADOQry:TADOQuery;FilterStr:string);
procedure TcxGridToExcel(mfileName:string;gridName:TcxGrid);
{ Public declarations }
end;
var
frmFilterHelp: TfrmFilterHelp;
implementation
{$R *.dfm}
procedure TfrmFilterHelp.Button1Click(Sender: TObject);
begin
ModalResult:=1
end;
///////////////////////////////////////////////////////////////////
//函数功能：利用cxGrid自带的功能导出到excel中
//////////////////////////////////////////////////////////////////
procedure TfrmFilterHelp.TcxGridToExcel(mfileName:string;gridName:TcxGrid);
var
saveDialog:TSaveDialog;
begin
try
saveDialog:=TSaveDialog.Create(nil);
saveDialog.Filter:='xls(*.xls)|*.xls|全部(*.*)|*.*';
saveDialog.Options:=[ofOverwritePrompt];
saveDialog.FileName:=mfileName;
if saveDialog.Execute then
if Assigned(gridName) then
begin
try
// ExportGrid4ToExcel(saveDialog.FileName,gridName);
except
application.MessageBox('创建失败,源文件可能处于编辑状态!','提示信息',0);
exit;
end;
application.MessageBox('成功导出!','提示信息',0);
end
else
application.MessageBox('导出失败!','提示信息',0);
finally
saveDialog.Free;
end;
end;
procedure TfrmFilterHelp.Button2Click(Sender: TObject);
begin
ModalResult:=-1;
end;
procedure TfrmFilterHelp.CreateFilers(Tv1:TcxGridDBTableView);
var
i,j,z,m,FTop,FLeft,Fdiv,FMod:Integer;// mod 余数，div商
FLableEdit:TLabeledEdit;
begin
j:=0;
for i:=0 to Tv1.ColumnCount-1 do
begin
m:=0;
if Tv1.Columns[i].Visible=False then Continue;
if not ( (Tv1.DataController.DataSource.DataSet.FieldByName(Tv1.Columns[i].DataBinding.FieldName).DataType=ftBCD) or
(Tv1.DataController.DataSource.DataSet.FieldByName(Tv1.Columns[i].DataBinding.FieldName).DataType=ftString) ) then Continue;
Fdiv:=(j+1) div 3;
FMod:=(j+1) mod 3;
FLableEdit:=TLabeledEdit.Create(Self);
FLableEdit.EditLabel.Caption:=Trim(Tv1.Columns[i].Caption);
FLableEdit.Name:=Trim(Tv1.Columns[i].DataBinding.FieldName);
if Tv1.DataController.DataSource.DataSet.FieldByName(Tv1.Columns[i].DataBinding.FieldName).DataType=ftBCD then
begin
FLableEdit.EditLabel.Caption:=Trim(Tv1.Columns[i].Caption+'始');
FLableEdit.Hint:=Trim(Tv1.Columns[i].DataBinding.FieldName);
FLableEdit.Tag:=1;
end;
FLableEdit.Text:='';
FLableEdit.TabOrder:=j;
FLableEdit.Parent:=ScrollBox1;
if FMod>0 then
FLableEdit.Top:=50*(Fdiv+1)
else
FLableEdit.Top:=50*Fdiv;
if FMod=1 then
FLableEdit.Left:=29
else if FMod=2 then
FLableEdit.Left:=163
else if FMod=0 then
FLableEdit.Left:=305;
if Tv1.DataController.DataSource.DataSet.FieldByName(Tv1.Columns[i].DataBinding.FieldName).DataType=ftBCD then
begin
j:=j+1;
Fdiv:=(j+1) div 3;
FMod:=(j+1) mod 3;
FLableEdit:=TLabeledEdit.Create(Self);
FLableEdit.EditLabel.Caption:=Trim(Tv1.Columns[i].Caption+'止');
FLableEdit.Hint:=Trim(Tv1.Columns[i].DataBinding.FieldName);
FLableEdit.Tag:=2;
FLableEdit.Text:='';
FLableEdit.TabOrder:=j;
FLableEdit.Parent:=ScrollBox1;
if FMod>0 then
FLableEdit.Top:=50*(Fdiv+1)
else
FLableEdit.Top:=50*Fdiv;
if FMod=1 then
FLableEdit.Left:=29
else if FMod=2 then
FLableEdit.Left:=163
else if FMod=0 then
FLableEdit.Left:=305;
end;
j:=j+1;
end;
end;
function TfrmFilterHelp.GSGetFilters():string;
var
i:Integer;
FValue:Double;
begin
Result:='';
with ScrollBox1 do
begin
for i:=0 to ControlCount-1 do
begin
if Controls[i] is TLabel then Continue;
if Controls[i] is TLabeledEdit then
begin
if Trim(TLabeledEdit(Controls[i]).Text)<>'' then
begin
if TLabeledEdit(Controls[i]).Tag>0 then
begin
try
FValue:=StrToFloat(TLabeledEdit(Controls[i]).Text);
except
Application.MessageBox('不能输入非法数字！','提示',0);
Exit;
end;
end;
if TLabeledEdit(Controls[i]).Tag=1 then
begin
Result:=Result+'and '+Controls[i].Hint+'>='+Trim(TLabeledEdit(Controls[i]).Text);
end else
if TLabeledEdit(Controls[i]).Tag=2 then
begin
Result:=Result+'and '+Controls[i].Hint+'<='+Trim(TLabeledEdit(Controls[i]).Text);
end else
begin
if CheckBox1.Checked then
Result:=Result+'and '+Controls[i].Name+'='+QuotedStr(Trim(TLabeledEdit(Controls[i]).Text))
else
Result:=Result+'and '+Controls[i].Name+' like '+QuotedStr('%'+Trim(TLabeledEdit(Controls[i]).Text)+'%');
end;
end;
end;
end;
end;
if Trim(Result)<>'' then
Result:=Trim(RightBStr(Result,Length(Result)-4));
end;
procedure TfrmFilterHelp.GSQryDofilter(ADOQry:TADOQuery;FilterStr:string);
begin
try
ADOQry.DisableControls;
with ADOQry do
begin
if Trim(FilterStr)='' then
begin
Filtered:=False;
end else
begin
Filtered:=False;
Filter:=FilterStr;
Filtered:=True;
end;
end;
finally
ADOQry.EnableControls;
end;
end;
end.

135
Z99Dependency/ThreeFun/Form/U_FjList.dfm Normal file
View File

@ -0,0 +1,135 @@
object frmFjList: TfrmFjList
Left = 237
Top = 203
BorderIcons = [biSystemMenu, biMinimize]
Caption = #38468#20214#20449#24687
ClientHeight = 417
ClientWidth = 691
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ListView1: TListView
Left = 0
Top = 0
Width = 540
Height = 417
Align = alClient
Columns = <>
TabOrder = 0
OnDblClick = ListView1DblClick
end
object Panel1: TPanel
Left = 540
Top = 0
Width = 151
Height = 417
Align = alRight
TabOrder = 1
object FileName: TcxButton
Left = 30
Top = 60
Width = 75
Height = 25
Hint = 'Filesother'
Caption = #28155#21152
LookAndFeel.Kind = lfOffice11
TabOrder = 0
OnClick = FileNameClick
end
object cxButton1: TcxButton
Left = 30
Top = 96
Width = 75
Height = 25
Hint = 'Filesother'
Caption = #21024#38500
LookAndFeel.Kind = lfOffice11
TabOrder = 1
OnClick = cxButton1Click
end
object cxButton2: TcxButton
Left = 30
Top = 132
Width = 75
Height = 25
Hint = 'Filesother'
Caption = #20445#23384
LookAndFeel.Kind = lfOffice11
TabOrder = 2
OnClick = cxButton2Click
end
object cxButton3: TcxButton
Left = 30
Top = 172
Width = 75
Height = 25
Hint = 'Filesother'
Caption = #20851#38381
LookAndFeel.Kind = lfOffice11
TabOrder = 3
Visible = False
OnClick = cxButton3Click
end
end
object Panel2: TPanel
Left = 176
Top = 140
Width = 193
Height = 41
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Panel2'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
Visible = False
OnDblClick = Panel2DblClick
end
object ADOQueryTmp: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 520
Top = 28
end
object ADOQueryCmd: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 568
Top = 32
end
object ImageList1: TImageList
Left = 536
Top = 228
end
object IdFTP1: TIdFTP
ConnectTimeout = 0
NATKeepAlive.UseKeepAlive = False
NATKeepAlive.IdleTimeMS = 0
NATKeepAlive.IntervalMS = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
ReadTimeout = 0
Left = 500
Top = 198
end
object ADOConnection1: TADOConnection
LoginPrompt = False
Left = 532
Top = 240
end
end

395
Z99Dependency/ThreeFun/Form/U_FjList.pas Normal file
View File

@ -0,0 +1,395 @@
unit U_FjList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ComCtrls, Menus, cxLookAndFeelPainters, StdCtrls,
cxButtons, DB, ADODB, ImgList,shellapi, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdFTP,strutils, cxGraphics, cxLookAndFeels,
IdExplicitTLSClientServerBase,
System.ImageList;
type
TfrmFjList = class(TForm)
ListView1: TListView;
Panel1: TPanel;
FileName: TcxButton;
cxButton1: TcxButton;
cxButton2: TcxButton;
cxButton3: TcxButton;
ADOQueryTmp: TADOQuery;
ADOQueryCmd: TADOQuery;
ImageList1: TImageList;
Panel2: TPanel;
IdFTP1: TIdFTP;
ADOConnection1: TADOConnection;
procedure cxButton3Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FileNameClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ListView1DblClick(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Panel2DblClick(Sender: TObject);
private
procedure InitData();
{ Private declarations }
public
fkeyNO:string;
fType:string;
fId:integer;
fstatus:integer;
{ Public declarations }
end;
var
frmFjList: TfrmFjList;
implementation
uses
U_DataLink,U_Fun10;
{$R *.dfm}
procedure TfrmFjList.InitData();
var
ListItem: TListItem;
Flag: Cardinal;
info: TSHFileInfo;//SHFILEINFOA;
Icon: TIcon;
begin
ListView1.Items.Clear;
try
with adoqueryTmp do
begin
close;
sql.Clear;
sql.Add('select fileName from TP_File ');
sql.Add('where WBID='+quotedstr(trim(fkeyNO)));
sql.Add('and TFType='+quotedstr(trim(fType)));
open;
if not IsEmpty then
begin
while not eof do
begin
with ListView1 do
begin
LargeImages := ImageList1;
Icon := TIcon.Create;
ListItem := Items.Add;
Listitem.Caption := trim(fieldbyname('fileName').AsString);
// Listitem.SubItems.Add(OpenDiaLog.FileName);
Flag := (SHGFI_SMALLICON or SHGFI_ICON or SHGFI_USEFILEATTRIBUTES);
SHGetFileInfo(Pwidechar(trim(fieldbyname('fileName').AsString)), 0, info, Sizeof(info), Flag);
Icon.Handle := info.hIcon;
ImageList1.AddIcon(Icon);
ListItem.ImageIndex := ImageList1.Count - 1;
end;
next;
end;
end;
end;
except
end;
end;
procedure TfrmFjList.cxButton3Click(Sender: TObject);
begin
ADOQueryTmp.Close;
ADOQuerycmd.Close;
ListView1.Items.Free;
ModalResult:=-1;
end;
procedure TfrmFjList.FormDestroy(Sender: TObject);
begin
frmFjList:=nil;
end;
procedure TfrmFjList.FileNameClick(Sender: TObject);
var
OpenDiaLog: TOpenDialog;
fFileName:string;
fFilePath:string;
maxNo:string;
// myStream: TADOBlobStream;
// FJStream : TMemoryStream;
begin
try
OpenDiaLog := TOpenDialog.Create(Self);
if OpenDiaLog.Execute then
begin
fFilePath:=OpenDiaLog.FileName;
fFileName:=ExtractFileName(OpenDiaLog.FileName);
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('select TFId from TP_File ');
sql.Add('where WBID<>'+quotedstr(trim(fkeyNO)));
sql.Add('and TFType='+quotedstr(trim(fType)));
sql.Add('and FileName='+quotedstr(trim(fFileName)));
open;
IF not adoqueryCmd.IsEmpty then
begin
application.MessageBox('此附件名称已存在，请修改文件名，继续上传！','提示信息',MB_ICONERROR);
exit;
end;
end;
Panel2.Caption:='正在上传数据，请稍等...';
Panel2.Visible:=true;
application.ProcessMessages;
if GetLSNo(ADOQueryCmd,maxNo,'FJ','TP_File',4,1)=False then
begin
Application.MessageBox('取最大号失败！','提示',0);
Exit;
end;
adoqueryCmd.Connection.BeginTrans;
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('delete from TP_File ');
sql.Add('where WBID='+quotedstr(trim(fkeyNO)));
sql.Add('and TFType='+quotedstr(trim(fType)));
sql.Add('and FileName='+quotedstr(trim(fFileName)));
execsql;
end;
try
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from TP_File ');
sql.Add('where WBID='+quotedstr(trim(fkeyNO)));
sql.Add('and TFType='+quotedstr(trim(fType)));
sql.Add('and FileName='+quotedstr(trim(fFileName)));
open;
append;
fieldbyname('TFID').Value:=trim(maxNO);
fieldbyname('WBID').Value:=trim(fkeyNO);
fieldbyname('TFType').Value:=trim(fType);
fieldbyname('FileName').Value:=trim(fFileName);
// tblobfield(FieldByName('Filesother')).LoadFromFile(fFilePath);
post;
end;
if fFilePath <> '' then
begin
try
IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI','SERVER','FTP地址','127.0.0.1');
IdFTP1.Username := 'three';
IdFTP1.Password := '641010';
IdFTP1.Connect();
IdFTP1.Put(fFilePath, 'FJ\' + Trim(fFileName));
IdFTP1.Quit;
except
IdFTP1.Quit;
Application.MessageBox('上传客户图样文件失败，请检查文件服务器！', '提示', MB_ICONWARNING);
end;
end;
IdFTP1.Quit;
Panel2.Visible:=false;
initdata();
finally
// FJStream.Free;
end;
end;
adoqueryCmd.Connection.CommitTrans;
except
adoqueryCmd.Connection.RollbackTrans;
application.MessageBox('附件保存失败！','提示信息',0);
end;
end;
procedure TfrmFjList.FormCreate(Sender: TObject);
begin
with ADOConnection1 do
begin
Connected:=false;
ConnectionString:=DConString;
//ConnectionString:='';
Connected:=true;
end;
ListView1.Align:=alclient;
fstatus:=0;
end;
procedure TfrmFjList.FormShow(Sender: TObject);
begin
IF fstatus=0 then Panel1.Visible:=true
else Panel1.Visible:=false;
initdata();
end;
procedure TfrmFjList.ListView1DblClick(Sender: TObject);
var
sFieldName:string;
fileName:string;
begin
if ListView1.Items.Count<1 THEN EXIT;
if listView1.SelCount<1 then exit;
sFieldName:=leftbstr(ExtractFilePath(Application.ExeName),1)+':\图片查看';
if not DirectoryExists(pchar(sFieldName)) then
CreateDirectory(pchar(sFieldName),nil);
fileName:=ListView1.Selected.Caption;
sFieldName:=sFieldName+'\'+trim(fileName);
try
IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI','SERVER','FTP地址','127.0.0.1');
IdFTP1.Username := 'three';
IdFTP1.Password := '641010';
IdFTP1.Connect();
except
;
end;
if IdFTP1.Connected then
begin
Panel2.Caption:='正在下载数据，请稍等...';
Panel2.Visible:=true;
application.ProcessMessages;
try
IdFTP1.Get('FJ\'+ Trim(fileName), sFieldName,true, false);
except
Panel2.Visible:=false;
Application.MessageBox('客户图样文件不存在', '提示', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
end
else
begin
Panel2.Visible:=false;
Application.MessageBox('无法连接文件服务器', '提示', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
Panel2.Visible:=false;
if IdFTP1.Connected then IdFTP1.Quit;
ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL);
end;
procedure TfrmFjList.cxButton1Click(Sender: TObject);
var
fFileName:string;
fFilePath:string;
begin
if listView1.SelCount<1 then exit;
try
fFileName:=ListView1.Selected.Caption;
// ADOQueryTmp.Locate('fileName',fFileName,[]);
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('delete from TP_File ');
sql.Add('where WBID='+quotedstr(trim(fkeyNO)));
sql.Add('and TFType='+quotedstr(trim(fType)));
sql.Add('and FileName='+quotedstr(trim(fFileName)));
execsql;
end;
initData();
except
end;
end;
procedure TfrmFjList.cxButton2Click(Sender: TObject);
var
SaveDialog: TSaveDialog;
fFileName:string;
fFilePath:string;
begin
if listView1.SelCount<1 then exit;
try
fFileName:=ListView1.Selected.Caption;
SaveDialog := TSaveDialog.Create(Self);
SaveDialog.FileName:=fFileName;
if SaveDialog.Execute then
begin
Panel2.Caption:='正在保存数据，请稍等...';
Panel2.Visible:=true;
application.ProcessMessages;
fFilePath:=SaveDialog.FileName;
try
IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI','SERVER','FTP地址','127.0.0.1');;
IdFTP1.Username := 'three';
IdFTP1.Password := '641010';
IdFTP1.Connect();
except
;
end;
if IdFTP1.Connected then
begin
Panel2.Caption:='正在下载数据，请稍等...';
Panel2.Visible:=true;
application.ProcessMessages;
try
IdFTP1.Get('FJ\'+ Trim(fFileName), fFilePath,false, true);
except
Panel2.Visible:=false;
Application.MessageBox('客户图样文件不存在', '提示', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
end
else
begin
Panel2.Visible:=false;
Application.MessageBox('无法连接文件服务器', '提示', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
Panel2.Visible:=false;
if IdFTP1.Connected then IdFTP1.Quit;
end;
except
Panel2.Visible:=false;
end;
end;
procedure TfrmFjList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if fId=10 then Action:=cafree
else
Action:=cahide;
end;
procedure TfrmFjList.Panel2DblClick(Sender: TObject);
begin
Panel2.Visible:=false;
end;
end.

147
Z99Dependency/ThreeFun/Form/U_FjList10.dfm Normal file
View File

@ -0,0 +1,147 @@
object frmFjList10: TfrmFjList10
Left = 237
Top = 203
BorderIcons = [biSystemMenu, biMinimize]
Caption = #38468#20214#20449#24687
ClientHeight = 463
ClientWidth = 782
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ListView1: TListView
Left = 0
Top = 0
Width = 631
Height = 463
Align = alClient
Columns = <
item
end>
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnDblClick = ListView1DblClick
ExplicitHeight = 464
end
object Panel1: TPanel
Left = 631
Top = 0
Width = 151
Height = 463
Align = alRight
TabOrder = 1
ExplicitHeight = 464
object FileName: TcxButton
Left = 30
Top = 60
Width = 75
Height = 25
Hint = 'Filesother'
Caption = #28155#21152
LookAndFeel.Kind = lfOffice11
TabOrder = 0
OnClick = FileNameClick
end
object cxButton1: TcxButton
Left = 30
Top = 96
Width = 75
Height = 25
Hint = 'Filesother'
Caption = #21024#38500
LookAndFeel.Kind = lfOffice11
TabOrder = 1
OnClick = cxButton1Click
end
object cxButton2: TcxButton
Left = 30
Top = 132
Width = 75
Height = 25
Hint = 'Filesother'
Caption = #21478#23384#20026'...'
LookAndFeel.Kind = lfOffice11
TabOrder = 2
OnClick = cxButton2Click
end
object cxButton3: TcxButton
Left = 30
Top = 172
Width = 75
Height = 25
Hint = 'Filesother'
Caption = #20851#38381
LookAndFeel.Kind = lfOffice11
TabOrder = 3
Visible = False
OnClick = cxButton3Click
end
end
object Panel2: TPanel
Left = 176
Top = 140
Width = 193
Height = 41
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Panel2'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
Visible = False
OnDblClick = Panel2DblClick
end
object ADOQueryTmp: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 520
Top = 28
end
object ADOQueryCmd: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 568
Top = 32
end
object ImageList1: TImageList
Height = 32
Width = 32
Left = 536
Top = 228
end
object IdFTP1: TIdFTP
ConnectTimeout = 0
NATKeepAlive.UseKeepAlive = False
NATKeepAlive.IdleTimeMS = 0
NATKeepAlive.IntervalMS = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
ReadTimeout = 0
Left = 500
Top = 198
end
object ADOConnection1: TADOConnection
LoginPrompt = False
Left = 532
Top = 276
end
end

441
Z99Dependency/ThreeFun/Form/U_FjList10.pas Normal file
View File

@ -0,0 +1,441 @@
unit U_FjList10;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ComCtrls, Menus, cxLookAndFeelPainters, StdCtrls,
cxButtons, DB, ADODB, ImgList,shellapi, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdFTP,strutils, cxGraphics, cxLookAndFeels,
IdExplicitTLSClientServerBase,
System.ImageList;
type
TfrmFjList10 = class(TForm)
ListView1: TListView;
Panel1: TPanel;
FileName: TcxButton;
cxButton1: TcxButton;
cxButton2: TcxButton;
cxButton3: TcxButton;
ADOQueryTmp: TADOQuery;
ADOQueryCmd: TADOQuery;
ImageList1: TImageList;
Panel2: TPanel;
IdFTP1: TIdFTP;
ADOConnection1: TADOConnection;
procedure cxButton3Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FileNameClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ListView1DblClick(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Panel2DblClick(Sender: TObject);
private
procedure InitData();
{ Private declarations }
public
fkeyNO:string;
fType:string;
fId:integer;
fstatus:integer;
{ Public declarations }
end;
var
frmFjList10: TfrmFjList10;
implementation
uses
U_DataLink,U_RTFun,U_CompressionFun;
{$R *.dfm}
procedure TfrmFjList10.InitData();
var
ListItem: TListItem;
Flag: Cardinal;
info:TSHFileInfo;// SHFILEINFOA;
Icon: TIcon;
begin
ListView1.Items.Clear;
try
with adoqueryTmp do
begin
close;
sql.Clear;
sql.Add('select * from TP_File ');
sql.Add('where WBID='+quotedstr(trim(fkeyNO)));
sql.Add('and TFType='+quotedstr(trim(fType)));
open;
if not IsEmpty then
begin
while not eof do
begin
with ListView1 do
begin
LargeImages := ImageList1;
Icon := TIcon.Create;
ListItem := Items.Add;
Listitem.Caption := trim(fieldbyname('fileName').AsString);
// Listitem.SubItems.Add(OpenDiaLog.FileName);
// Flag := (SHGFI_LARGEICON or SHGFI_ICON or SHGFI_USEFILEATTRIBUTES); //大图标， 改imagelist里面的宽度高度 32*32
Flag := (SHGFI_SMALLICON or SHGFI_ICON or SHGFI_USEFILEATTRIBUTES); //小图标， 16*16
SHGetFileInfo(Pwidechar(trim(fieldbyname('fileName').AsString)), 0, info, Sizeof(info), flag);
Icon.Handle := info.hIcon;
ImageList1.AddIcon(Icon);
ListItem.ImageIndex := ImageList1.Count - 1;
end;
next;
end;
end;
end;
except
end;
end;
procedure TfrmFjList10.cxButton3Click(Sender: TObject);
begin
ADOQueryTmp.Close;
ADOQuerycmd.Close;
ListView1.Items.Free;
ModalResult:=-1;
end;
procedure TfrmFjList10.FormDestroy(Sender: TObject);
begin
frmFjList10:=nil;
end;
procedure TfrmFjList10.FileNameClick(Sender: TObject);
var
OpenDiaLog: TOpenDialog;
fFileName:string;
fFilePath:string;
maxNo:string;
// myStream: TADOBlobStream;
// FJStream : TMemoryStream;
FJStream : TMemoryStream;
mfileSize:integer;
mCreationTime:TdateTime;
mWriteTime:TdateTime;
begin
try
OpenDiaLog := TOpenDialog.Create(Self);
if OpenDiaLog.Execute then
begin
fFilePath:=OpenDiaLog.FileName;
fFileName:=ExtractFileName(OpenDiaLog.FileName);
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('select TFId from TP_File ');
sql.Add('where WBID<>'+quotedstr(trim(fkeyNO)));
sql.Add('and TFType='+quotedstr(trim(fType)));
sql.Add('and FileName='+quotedstr(trim(fFileName)));
open;
IF not adoqueryCmd.IsEmpty then
begin
application.MessageBox('此附件名称已存在，请修改文件名，继续上传！','提示信息',MB_ICONERROR);
exit;
end;
end;
Panel2.Caption:='正在上传数据，请稍等...';
Panel2.Visible:=true;
application.ProcessMessages;
if GetLSNo(ADOQueryCmd,maxNo,'FJ','TP_File',4,1)=False then
begin
Application.MessageBox('取最大号失败！','提示',0);
Exit;
end;
//获取文件信息
// GetFileInfo(fFilePath,mfileSize,mCreationTime,mWriteTime);
adoqueryCmd.Connection.BeginTrans;
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('delete from TP_File ');
sql.Add('where WBID='+quotedstr(trim(fkeyNO)));
sql.Add('and TFType='+quotedstr(trim(fType)));
sql.Add('and FileName='+quotedstr(trim(fFileName)));
execsql;
end;
try
FJStream:=TMemoryStream.Create;
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from TP_File ');
sql.Add('where WBID='+quotedstr(trim(fkeyNO)));
sql.Add('and TFType='+quotedstr(trim(fType)));
sql.Add('and FileName='+quotedstr(trim(fFileName)));
open;
append;
fieldbyname('TFID').Value:=trim(maxNO);
fieldbyname('WBID').Value:=trim(fkeyNO);
fieldbyname('TFType').Value:=trim(fType);
fieldbyname('FileName').Value:=trim(fFileName);
FJStream.LoadFromFile(fFilePath);
CompressionStream(FJStream);
tblobfield(FieldByName('Filesother')).LoadFromStream(FJStream);
// tblobfield(FieldByName('Filesother')).LoadFromFile(fFilePath);
post;
end;
{ if fFilePath <> '' then
begin
try
IdFTP1.Host := PicSvr;
IdFTP1.Username := 'three';
IdFTP1.Password := '641010';
IdFTP1.Connect();
IdFTP1.Put(fFilePath, 'FJ\' + Trim(fFileName));
IdFTP1.Quit;
except
IdFTP1.Quit;
Application.MessageBox('上传客户图样文件失败，请检查文件服务器！', '提示', MB_ICONWARNING);
end;
end;
IdFTP1.Quit; }
Panel2.Visible:=false;
initdata();
finally
// FJStream.Free;
end;
adoqueryCmd.Connection.CommitTrans;
end;
except
adoqueryCmd.Connection.RollbackTrans;
application.MessageBox('附件保存失败！','提示信息',0);
end;
end;
procedure TfrmFjList10.FormCreate(Sender: TObject);
begin
with ADOConnection1 do
begin
Connected:=false;
ConnectionString:=DConString;
//ConnectionString:='';
Connected:=true;
end;
ListView1.Align:=alclient;
fstatus:=0;
end;
procedure TfrmFjList10.FormShow(Sender: TObject);
begin
IF fstatus=0 then Panel1.Visible:=true
else Panel1.Visible:=false;
initdata();
end;
procedure TfrmFjList10.ListView1DblClick(Sender: TObject);
var
sFieldName:string;
fileName:string;
ff: TADOBlobStream;
FJStream : TMemoryStream;
begin
if ListView1.Items.Count<1 THEN EXIT;
if listView1.SelCount<1 then exit;
sFieldName:=leftbstr(ExtractFilePath(Application.ExeName),1)+':\图片查看';
if not DirectoryExists(pchar(sFieldName)) then
CreateDirectory(pchar(sFieldName),nil);
fileName:=ListView1.Selected.Caption;
sFieldName:=sFieldName+'\'+trim(fileName);
{ try
IdFTP1.Host := PicSvr;
IdFTP1.Username := 'three';
IdFTP1.Password := '641010';
IdFTP1.Connect();
except
;
end;
if IdFTP1.Connected then
begin
Panel2.Caption:='正在下载数据，请稍等...';
Panel2.Visible:=true;
application.ProcessMessages;
try
IdFTP1.Get('FJ\'+ Trim(fileName), sFieldName,true, false);
except
Panel2.Visible:=false;
Application.MessageBox('客户图样文件不存在', '提示', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
end
else
begin
Panel2.Visible:=false;
Application.MessageBox('无法连接文件服务器', '提示', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
Panel2.Visible:=false;
if IdFTP1.Connected then IdFTP1.Quit;
ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL);
}
try
adoqueryTmp.Locate('FileName',fileName,[]);
ff := TADOBlobstream.Create(adoqueryTmp.fieldByName('FilesOther') as TblobField, bmRead);
fjStream:= TMemoryStream.Create ;
ff.SaveToStream(fjStream);
UnCompressionStream(fjStream);
fjStream.SaveToFile(sFieldName);
ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL);
finally
fjStream.free;
ff.Free;
end;
end;
procedure TfrmFjList10.cxButton1Click(Sender: TObject);
var
fFileName:string;
fFilePath:string;
begin
if listView1.SelCount<1 then exit;
try
fFileName:=ListView1.Selected.Caption;
// ADOQueryTmp.Locate('fileName',fFileName,[]);
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('delete from TP_File ');
sql.Add('where WBID='+quotedstr(trim(fkeyNO)));
sql.Add('and TFType='+quotedstr(trim(fType)));
sql.Add('and FileName='+quotedstr(trim(fFileName)));
execsql;
end;
initData();
except
end;
end;
procedure TfrmFjList10.cxButton2Click(Sender: TObject);
var
SaveDialog: TSaveDialog;
fFileName:string;
fFilePath:string;
ff: TADOBlobStream;
FJStream : TMemoryStream;
begin
if listView1.SelCount<1 then exit;
try
fFileName:=ListView1.Selected.Caption;
adoqueryTmp.Locate('FileName',fFileName,[]);
SaveDialog := TSaveDialog.Create(Self);
SaveDialog.FileName:=fFileName;
if SaveDialog.Execute then
begin
Panel2.Caption:='正在保存数据，请稍等...';
Panel2.Visible:=true;
application.ProcessMessages;
fFilePath:=SaveDialog.FileName;
try
ff := TADOBlobstream.Create(adoqueryTmp.fieldByName('FilesOther') as TblobField, bmRead);
fjStream:= TMemoryStream.Create ;
ff.SaveToStream(fjStream);
UnCompressionStream(fjStream);
fjStream.SaveToFile(fFilePath);
// ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL);
finally
fjStream.free;
ff.Free;
Panel2.Visible:=false;
end;
end;
{ try
IdFTP1.Host := PicSvr;
IdFTP1.Username := 'three';
IdFTP1.Password := '641010';
IdFTP1.Connect();
except
;
end;
if IdFTP1.Connected then
begin
Panel2.Caption:='正在下载数据，请稍等...';
Panel2.Visible:=true;
application.ProcessMessages;
try
IdFTP1.Get('FJ\'+ Trim(fFileName), fFilePath,false, true);
except
Panel2.Visible:=false;
Application.MessageBox('客户图样文件不存在', '提示', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
end
else
begin
Panel2.Visible:=false;
Application.MessageBox('无法连接文件服务器', '提示', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
Panel2.Visible:=false;
if IdFTP1.Connected then IdFTP1.Quit;
end; }
except
Panel2.Visible:=false;
end;
end;
procedure TfrmFjList10.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if fId=10 then Action:=cafree
else
Action:=cahide;
end;
procedure TfrmFjList10.Panel2DblClick(Sender: TObject);
begin
Panel2.Visible:=false;
end;
end.

46
Z99Dependency/ThreeFun/Form/U_GetAddRess.dfm Normal file
View File

@ -0,0 +1,46 @@
object Form1: TForm1
Left = 387
Top = 243
Width = 520
Height = 376
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 128
Top = 96
Width = 32
Height = 13
Caption = 'Label1'
end
object Label2: TLabel
Left = 208
Top = 104
Width = 32
Height = 13
Caption = 'Label2'
end
object Button1: TButton
Left = 112
Top = 48
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
object Edit1: TEdit
Left = 200
Top = 48
Width = 121
Height = 21
TabOrder = 1
end
end

43
Z99Dependency/ThreeFun/Form/U_GetAddRess.pas Normal file
View File

@ -0,0 +1,43 @@
unit U_GetAddRess;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls,WinSock, ComCtrls;
Function sendarp(ipaddr:ulong;temp:dword;ulmacaddr:pointer;ulmacaddrleng:pointer) : DWord; StdCall; External 'Iphlpapi.dll' Name 'SendARP';
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
myip:ulong;
mymac:array[0..5] of byte;
mymaclength:ulong;
r:integer;
begin
{myip:=inet_addr(PChar(Trim(Edit1.Text)));
mymaclength:=length(mymac);
r:=sendarp(myip,0,@mymac,@mymaclength);
label1.caption:='errorcode:'+inttostr(r);
label2.caption:=format('%2.2x:%2.2x:%2.2x:%2.2x:%2.2x:%2.2x',[mymac[0],mymac[1],mymac[2],mymac[3],mymac[4],mymac[5]]); }
end;
end.

3503
Z99Dependency/ThreeFun/Form/U_ItemManageNew.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

265
Z99Dependency/ThreeFun/Form/U_ItemManageNew.pas Normal file
View File

@ -0,0 +1,265 @@
unit U_ItemManageNew;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, ToolWin, ComCtrls,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList,
StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, System.ImageList;
type
TfrmItemManageNew = class(TForm)
TV1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
V1Code: TcxGridDBColumn;
V1Name: TcxGridDBColumn;
ToolBar1: TToolBar;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DataSource1: TDataSource;
ClientDataSet1: TClientDataSet;
TBAdd: TToolButton;
TBSave: TToolButton;
TBDel: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
TBEdit: TToolButton;
V1Note: TcxGridDBColumn;
V1OrderNo: TcxGridDBColumn;
ADOConnection1: TADOConnection;
ImageList24: TImageList;
Panel1: TPanel;
Label1: TLabel;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TV1CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
private
procedure InitGrid();
{ Private declarations }
public
flag,flagname,snote:string;
fnote,forderno:Boolean;
{ Public declarations }
end;
var
frmItemManageNew: TfrmItemManageNew;
implementation
uses
U_DataLink,U_Fun;
{$R *.dfm}
procedure TfrmItemManageNew.FormCreate(Sender: TObject);
begin
cxGrid1.Align:=alClient;
with ADOConnection1 do
begin
Connected:=false;
ConnectionString:=DConString;
Connected:=true;
end;
end;
procedure TfrmItemManageNew.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmItemManageNew.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select * from XC_Code where Flag='''+flag+'''');
Open;
end;
SCreateCDS20(ADOQueryMain,ClientDataSet1);
SInitCDSData20(ADOQueryMain,ClientDataSet1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmItemManageNew.TBAddClick(Sender: TObject);
begin
TV1.OptionsData.Editing:=True;
with ClientDataSet1 do
begin
Append;
Post;
end;
end;
procedure TfrmItemManageNew.TBSaveClick(Sender: TObject);
begin
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('delete XC_Code where Flag='''+Flag+'''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from XC_Code where 1<>1');
Open;
end;
with ADOQueryCmd do
begin
if ClientDataSet1.IsEmpty then
begin
ADOQueryCmd.Close;
ADOQueryCmd.sql.Clear;
ADOQueryCmd.sql.Add('delete from XC_Code where Code='''+Flag+'''');
ADOQueryCmd.ExecSQL;
end else
begin
with ClientDataSet1 do
begin
First;
while not eof do
begin
if Trim(ClientDataSet1.FieldByName('Code').AsString)='' then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('编号不能为空！','提示',0);
Exit;
end;
if Trim(ClientDataSet1.FieldByName('Name').AsString)='' then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('名称不能为空！','提示',0);
Exit;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from XC_Code where Code='''+Trim(ClientDataSet1.fieldbyname('Code').AsString)+'''');
Open;
if not IsEmpty then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('编号重复！','提示',0);
Exit;
end;
end;
ADOQueryCmd.Append;
ADOQueryCmd.FieldByName('Code').Value:=ClientDataSet1.fieldbyname('Code').AsString;
ADOQueryCmd.FieldByName('Name').Value:=ClientDataSet1.fieldbyname('Name').AsString;
ADOQueryCmd.FieldByName('note').Value:=Trim(snote);
//ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
ADOQueryCmd.FieldByName('Flag').Value:=flag;
ADOQueryCmd.FieldByName('valid').Value:='Y';
ADOQueryCmd.FieldByName('sel').Value:=0;
ADOQueryCmd.Post;
Next;
end;
end;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
Application.MessageBox('保存成功！','提示',0);
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！','提示',0);
end;
TV1.OptionsData.Editing:=False;
end;
procedure TfrmItemManageNew.TBDelClick(Sender: TObject);
begin
if ClientDataSet1.IsEmpty then Exit;
if (Trim(ClientDataSet1.FieldByName('Code').AsString)<>'') or
(Trim(ClientDataSet1.FieldByName('name').AsString)<>'') then
begin
if application.MessageBox('确定要删除吗?','提示信息',1)=2 then exit;
ClientDataSet1.Delete;
end;
end;
procedure TfrmItemManageNew.TBCloseClick(Sender: TObject);
begin
ModalResult:=2;
Close;
end;
procedure TfrmItemManageNew.FormShow(Sender: TObject);
var
fsj,fsj1:string;
begin
InitGrid();
fsj:=Trim(flag)+'01';
fsj1:=Trim(flagname)+'01';
if ClientDataSet1.IsEmpty then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
//sql.Add('insert into XC_Code(code,name,flag,note)');
//sql.Add('select '''+Trim(flag)+'''');
//sql.Add(','''+Trim(flagname)+'''');
//SQL.Add(',''BASECODE'' ');
//sql.Add(','''+Trim(snote)+'''');
sql.Add('insert into XC_Code(code,name,flag,note)');
sql.Add('select '''+Trim(fsj)+'''');
sql.Add(','''+Trim(fsj1)+'''');
SQL.Add(','''+Trim(flag)+'''');
sql.Add(','''+Trim(snote)+'''');
ExecSQL;
end;
InitGrid();
end;
frmItemManageNew.Caption:=Trim(flagname)+'<'+Trim(flag)+'>';
end;
procedure TfrmItemManageNew.ToolButton1Click(Sender: TObject);
begin
ModalResult:=1;
end;
procedure TfrmItemManageNew.TBEditClick(Sender: TObject);
begin
TV1.OptionsData.Editing:=True;
end;
procedure TfrmItemManageNew.TV1CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
if TV1.OptionsData.Editing=False then
begin
ModalResult:=1;
end;
end;
end.

10572
Z99Dependency/ThreeFun/Form/U_KHHelp.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

Some files were not shown because too many files have changed in this diff Show More