Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-29 09:29:56 +08:00
parent 2f4312e0c3
commit 25d7434110
10 changed files with 395 additions and 336 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

140
云翔一码通/U_YMTFHSQInPut.dfm
View File

@ -1,24 +1,24 @@
object frmFHSQInPut: TfrmFHSQInPut object frmFHSQInPut: TfrmFHSQInPut
Left = 354 Left = 354
Top = 585 Top = 296
Width = 1113 Width = 1499
Height = 664 Height = 664
Caption = #21457#36135#30003#35831#24405#20837 Caption = #21457#36135#30003#35831#24405#20837
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
Position = poScreenCenter Position = poScreenCenter
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 96 PixelsPerInch = 120
TextHeight = 12 TextHeight = 15
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1105 Width = 1491
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 75 ButtonWidth = 75
@ -58,8 +58,8 @@ object frmFHSQInPut: TfrmFHSQInPut
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 29 Top = 29
Width = 1105 Width = 1491
Height = 111 Height = 139
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
@ -70,102 +70,102 @@ object frmFHSQInPut: TfrmFHSQInPut
TabOrder = 1 TabOrder = 1
object Label1: TLabel object Label1: TLabel
Tag = 1 Tag = 1
Left = 33 Left = 41
Top = 12 Top = 15
Width = 90 Width = 115
Height = 17 Height = 22
Caption = #20986#24211#31867#22411#65306 Caption = #20986#24211#31867#22411#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label12: TLabel object Label12: TLabel
Tag = 1 Tag = 1
Left = 39 Left = 49
Top = 78 Top = 98
Width = 84 Width = 105
Height = 17 Height = 22
Caption = #22791' '#27880#65306 Caption = #22791' '#27880#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label11: TLabel object Label11: TLabel
Tag = 1 Tag = 1
Left = 380 Left = 475
Top = 12 Top = 15
Width = 90 Width = 115
Height = 17 Height = 22
Caption = #25910#36135#21333#20301#65306 Caption = #25910#36135#21333#20301#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Tag = 1 Tag = 1
Left = 380 Left = 475
Top = 43 Top = 54
Width = 90 Width = 115
Height = 17 Height = 22
Caption = #30003#35831#26085#26399#65306 Caption = #30003#35831#26085#26399#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Tag = 1 Tag = 1
Left = 51 Left = 64
Top = 43 Top = 54
Width = 72 Width = 92
Height = 17 Height = 22
Caption = #19994#21153#21592#65306 Caption = #19994#21153#21592#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
Tag = 1 Tag = 1
Left = 849 Left = 1061
Top = 12 Top = 15
Width = 72 Width = 92
Height = 17 Height = 22
Caption = #21152#24037#31867#22411 Caption = #21152#24037#31867#22411
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object CRType: TComboBox object CRType: TComboBox
Tag = 1 Tag = 1
Left = 115 Left = 144
Top = 8 Top = 10
Width = 250 Width = 312
Height = 25 Height = 30
Style = csDropDownList Style = csDropDownList
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 17 ItemHeight = 22
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
Items.Strings = ( Items.Strings = (
@ -178,13 +178,13 @@ object frmFHSQInPut: TfrmFHSQInPut
end end
object Note: TEdit object Note: TEdit
Tag = 1 Tag = 1
Left = 115 Left = 144
Top = 75 Top = 94
Width = 714 Width = 892
Height = 23 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -193,14 +193,14 @@ object frmFHSQInPut: TfrmFHSQInPut
end end
object SHDanWei: TBtnEditC object SHDanWei: TBtnEditC
Tag = 1 Tag = 1
Left = 455 Left = 569
Top = 7 Top = 9
Width = 373 Width = 466
Height = 26 Height = 26
Hint = 'KHNo' Hint = 'KHNo'
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
@ -211,10 +211,10 @@ object frmFHSQInPut: TfrmFHSQInPut
end end
object SQDate: TDateTimePicker object SQDate: TDateTimePicker
Tag = 1 Tag = 1
Left = 455 Left = 569
Top = 39 Top = 49
Width = 130 Width = 162
Height = 25 Height = 30
BevelInner = bvNone BevelInner = bvNone
Date = 43473.670856296290000000 Date = 43473.670856296290000000
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
@ -222,7 +222,7 @@ object frmFHSQInPut: TfrmFHSQInPut
Checked = False Checked = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -231,13 +231,13 @@ object frmFHSQInPut: TfrmFHSQInPut
end end
object Salesman: TBtnEditC object Salesman: TBtnEditC
Tag = 1 Tag = 1
Left = 115 Left = 144
Top = 38 Top = 48
Width = 135 Width = 169
Height = 26 Height = 26
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -248,13 +248,13 @@ object frmFHSQInPut: TfrmFHSQInPut
end end
object JGType: TEdit object JGType: TEdit
Tag = 1 Tag = 1
Left = 931 Left = 1164
Top = 8 Top = 10
Width = 120 Width = 150
Height = 23 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -264,8 +264,8 @@ object frmFHSQInPut: TfrmFHSQInPut
end end
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 0 Left = 0
Top = 140 Top = 168
Width = 1105 Width = 1491
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -304,9 +304,9 @@ object frmFHSQInPut: TfrmFHSQInPut
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 169 Top = 197
Width = 1105 Width = 1491
Height = 464 Height = 430
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView

26
云翔一码通/U_YMTFHSQInPut.pas
View File

@ -96,7 +96,7 @@ var
implementation implementation
uses uses
U_DataLink, U_ZDYHelp, U_RTFun, U_YMTKHList, U_YMTOrderSel, U_YMTGYSList; U_DataLink, U_ZDYHelp, U_RTFun, U_YMTOrderSel, U_ZdyAttachKH, U_ZdyAttachGYS; // U_YMTKHList, , U_YMTGYSList
{$R *.dfm} {$R *.dfm}
@ -377,37 +377,37 @@ begin
if CRType.Text = '加工出库' then if CRType.Text = '加工出库' then
begin begin
try try
frmGYSList := TfrmGYSList.Create(Application); frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmGYSList do with frmZdyAttachGYS do
begin begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.SHDanWei.Text := Trim(Order_Main.fieldbyname('KHNameJC').AsString); Self.SHDanWei.Text := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('KHNameJC').AsString);
Self.SHDanWei.TxtCode := Trim(Order_Main.fieldbyname('KHNo').AsString); Self.SHDanWei.TxtCode := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('KHNo').AsString);
Self.Salesman.Text := Trim(Order_Main.fieldbyname('YWY').AsString); Self.Salesman.Text := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('YWY').AsString);
end; end;
end; end;
finally finally
frmGYSList.Free; frmZdyAttachGYS.Free;
end; end;
end end
else else
begin begin
try try
frmKHList_CX := TfrmKHList_CX.Create(Application); frmZdyAttachkh := TfrmZdyAttachkh.Create(Application);
with frmKHList_CX do with frmZdyAttachkh do
begin begin
// if self.canshu1 <> '高权限' then // if self.canshu1 <> '高权限' then
// canshu1 := '业务员'; // canshu1 := '业务员';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.SHDanWei.Text := Trim(CDS_HZ.fieldbyname('KHNameJC').AsString); Self.SHDanWei.Text := Trim(frmZdyAttachkh.CDS_HZ.fieldbyname('KHNameJC').AsString);
Self.SHDanWei.TxtCode := Trim(CDS_HZ.fieldbyname('KHNo').AsString); Self.SHDanWei.TxtCode := Trim(frmZdyAttachkh.CDS_HZ.fieldbyname('KHNo').AsString);
Self.Salesman.Text := Trim(CDS_HZ.fieldbyname('YWY').AsString); Self.Salesman.Text := Trim(frmZdyAttachkh.CDS_HZ.fieldbyname('YWY').AsString);
end; end;
end; end;
finally finally
frmKHList_CX.Free; frmZdyAttachkh.Free;
end; end;
end; end;
end; end;

245
云翔一码通/U_YMTFHSQList.dfm
View File

@ -7,7 +7,7 @@ object frmYMTFHSQList: TfrmYMTFHSQList
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
@ -15,8 +15,8 @@ object frmYMTFHSQList: TfrmYMTFHSQList
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 96 PixelsPerInch = 120
TextHeight = 12 TextHeight = 15
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
@ -121,9 +121,9 @@ object frmYMTFHSQList: TfrmYMTFHSQList
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 109 Top = 128
Width = 1300 Width = 1300
Height = 281 Height = 194
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -291,6 +291,13 @@ object frmYMTFHSQList: TfrmYMTFHSQList
Styles.Header = DataLink_YXYMT.Default Styles.Header = DataLink_YXYMT.Default
Width = 81 Width = 81
end end
object Tv1Column1: TcxGridDBColumn
Caption = #23457#26680#29366#24577
DataBinding.FieldName = 'ChkStatus'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object v1OrdDate: TcxGridDBColumn object v1OrdDate: TcxGridDBColumn
Caption = #30003#35831#21457#36135#26085#26399 Caption = #30003#35831#21457#36135#26085#26399
DataBinding.FieldName = 'SQDate' DataBinding.FieldName = 'SQDate'
@ -366,88 +373,88 @@ object frmYMTFHSQList: TfrmYMTFHSQList
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1300 Width = 1300
Height = 77 Height = 96
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
object Label1: TLabel object Label1: TLabel
Left = 23 Left = 29
Top = 15 Top = 19
Width = 72 Width = 92
Height = 17 Height = 22
Caption = #30003#35831#26085#26399 Caption = #30003#35831#26085#26399
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 274 Left = 343
Top = 15 Top = 19
Width = 72 Width = 92
Height = 17 Height = 22
Caption = #25910#36135#21333#20301 Caption = #25910#36135#21333#20301
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 292 Left = 365
Top = 45 Top = 56
Width = 54 Width = 69
Height = 17 Height = 22
Caption = #19994#21153#21592 Caption = #19994#21153#21592
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Left = 85 Left = 106
Top = 45 Top = 56
Width = 10 Width = 12
Height = 17 Height = 22
Caption = '-' Caption = '-'
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
Left = 469 Left = 586
Top = 45 Top = 19
Width = 72 Width = 92
Height = 17 Height = 22
Caption = #23457#26680#29366#24577 Caption = #23457#26680#29366#24577
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 94 Left = 126
Top = 11 Top = 15
Width = 125 Width = 156
Height = 25 Height = 30
Date = 40675.464742650460000000 Date = 40675.464742650460000000
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
Time = 40675.464742650460000000 Time = 40675.464742650460000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -456,16 +463,16 @@ object frmYMTFHSQList: TfrmYMTFHSQList
OnChange = BegDateChange OnChange = BegDateChange
end end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 94 Left = 126
Top = 41 Top = 52
Width = 126 Width = 157
Height = 25 Height = 30
Date = 40675.464761099540000000 Date = 40675.464761099540000000
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
Time = 40675.464761099540000000 Time = 40675.464761099540000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -475,13 +482,13 @@ object frmYMTFHSQList: TfrmYMTFHSQList
end end
object SHDanWei: TEdit object SHDanWei: TEdit
Tag = 2 Tag = 2
Left = 348 Left = 435
Top = 11 Top = 17
Width = 98 Width = 123
Height = 25 Height = 25
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -491,13 +498,13 @@ object frmYMTFHSQList: TfrmYMTFHSQList
end end
object Salesman: TEdit object Salesman: TEdit
Tag = 2 Tag = 2
Left = 348 Left = 435
Top = 41 Top = 54
Width = 96 Width = 120
Height = 25 Height = 25
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -507,16 +514,16 @@ object frmYMTFHSQList: TfrmYMTFHSQList
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Tag = 7 Tag = 7
Left = 543 Left = 679
Top = 41 Top = 15
Width = 101 Width = 126
Height = 25 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ItemHeight = 17 ItemHeight = 22
ItemIndex = 0 ItemIndex = 0
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
@ -529,7 +536,7 @@ object frmYMTFHSQList: TfrmYMTFHSQList
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 390 Top = 322
Width = 1300 Width = 1300
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
@ -538,9 +545,9 @@ object frmYMTFHSQList: TfrmYMTFHSQList
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 398 Top = 330
Width = 1300 Width = 1300
Height = 250 Height = 312
Align = alBottom Align = alBottom
TabOrder = 4 TabOrder = 4
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -673,52 +680,52 @@ object frmYMTFHSQList: TfrmYMTFHSQList
end end
end end
object Panel3: TPanel object Panel3: TPanel
Left = 488 Left = 610
Top = 188 Top = 235
Width = 234 Width = 293
Height = 97 Height = 121
Color = clSkyBlue Color = clSkyBlue
TabOrder = 5 TabOrder = 5
Visible = False Visible = False
object Label25: TLabel object Label25: TLabel
Left = 24 Left = 30
Top = 12 Top = 15
Width = 48 Width = 60
Height = 12 Height = 15
Caption = #20986#24211#31867#22411 Caption = #20986#24211#31867#22411
end end
object btnChk: TButton object btnChk: TButton
Left = 28 Left = 35
Top = 57 Top = 71
Width = 60 Width = 75
Height = 25 Height = 32
Caption = #30830#35748 Caption = #30830#35748
TabOrder = 0 TabOrder = 0
OnClick = btnChkClick OnClick = btnChkClick
end end
object Button3: TButton object Button3: TButton
Left = 160 Left = 200
Top = 57 Top = 71
Width = 60 Width = 75
Height = 25 Height = 32
Caption = #20851#38381 Caption = #20851#38381
TabOrder = 1 TabOrder = 1
OnClick = Button3Click OnClick = Button3Click
end end
object CRType: TComboBox object CRType: TComboBox
Tag = 1 Tag = 1
Left = 79 Left = 99
Top = 8 Top = 10
Width = 139 Width = 174
Height = 25 Height = 30
Style = csDropDownList Style = csDropDownList
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 17 ItemHeight = 22
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
Items.Strings = ( Items.Strings = (
@ -733,45 +740,45 @@ object frmYMTFHSQList: TfrmYMTFHSQList
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 1000 Left = 514
Top = 184 Top = 337
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_YXYMT.ADOLink Connection = DataLink_YXYMT.ADOLink
Parameters = <> Parameters = <>
Left = 488 Left = 514
Top = 152 Top = 215
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_YXYMT.ADOLink Connection = DataLink_YXYMT.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 652 Left = 575
Top = 144 Top = 215
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_YXYMT.ADOLink Connection = DataLink_YXYMT.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 684 Left = 758
Top = 144 Top = 215
end end
object DataSource1: TDataSource object DataSource1: TDataSource
DataSet = Order_Main DataSet = Order_Main
Left = 968 Left = 697
Top = 184 Top = 337
end end
object Order_Main: TClientDataSet object Order_Main: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 532 Left = 758
Top = 320 Top = 276
end end
object RMDB_Main: TRMDBDataSet object RMDB_Main: TRMDBDataSet
Visible = True Visible = True
DataSet = ADOQueryPrint DataSet = ADOQueryPrint
Left = 312 Left = 575
Top = 256 Top = 398
end end
object RMXLSExport1: TRMXLSExport object RMXLSExport1: TRMXLSExport
ShowAfterExport = True ShowAfterExport = True
@ -784,50 +791,50 @@ object frmYMTFHSQList: TfrmYMTFHSQList
ScaleX = 1.000000000000000000 ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000 ScaleY = 1.000000000000000000
CompressFile = False CompressFile = False
Left = 375 Left = 697
Top = 184 Top = 398
end end
object ADOQueryPrint: TADOQuery object ADOQueryPrint: TADOQuery
Connection = DataLink_YXYMT.ADOLink Connection = DataLink_YXYMT.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 280 Left = 636
Top = 256 Top = 215
end end
object CDS_Print: TClientDataSet object CDS_Print: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 216 Left = 636
Top = 200 Top = 276
end end
object ADOQuerySub: TADOQuery object ADOQuerySub: TADOQuery
Connection = DataLink_YXYMT.ADOLink Connection = DataLink_YXYMT.ADOLink
Parameters = <> Parameters = <>
Left = 720 Left = 697
Top = 144 Top = 215
end end
object DataSource2: TDataSource object DataSource2: TDataSource
DataSet = ClientDataSet2 DataSet = ClientDataSet2
Left = 464 Left = 758
Top = 504 Top = 337
end end
object ClientDataSet2: TClientDataSet object ClientDataSet2: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 496 Left = 697
Top = 504 Top = 276
end end
object cxGridPopupMenu2: TcxGridPopupMenu object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid2 Grid = cxGrid2
PopupMenus = <> PopupMenus = <>
Left = 528 Left = 575
Top = 504 Top = 337
end end
object CDS_Note: TClientDataSet object CDS_Note: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 408 Left = 575
Top = 184 Top = 276
end end
object RM1: TRMGridReport object RM1: TRMGridReport
ThreadPrepareReport = True ThreadPrepareReport = True
@ -845,15 +852,15 @@ object frmYMTFHSQList: TfrmYMTFHSQList
CompressThread = False CompressThread = False
LaterBuildEvents = True LaterBuildEvents = True
OnlyOwnerDataSet = False OnlyOwnerDataSet = False
Left = 352 Left = 636
Top = 256 Top = 398
ReportData = {} ReportData = {}
end end
object CDSUser: TClientDataSet object CDSUser: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 440 Left = 514
Top = 240 Top = 276
end end
object IdHTTP1: TIdHTTP object IdHTTP1: TIdHTTP
MaxLineAction = maException MaxLineAction = maException
@ -869,13 +876,13 @@ object frmYMTFHSQList: TfrmYMTFHSQList
Request.BasicAuthentication = False Request.BasicAuthentication = False
Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)' Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
HTTPOptions = [hoForceEncodeParams] HTTPOptions = [hoForceEncodeParams]
Left = 660 Left = 514
Top = 308 Top = 398
end end
object cxStyleRepository1: TcxStyleRepository object cxStyleRepository1: TcxStyleRepository
Left = 16 Left = 636
Top = 112 Top = 337
PixelsPerInch = 96 PixelsPerInch = 120
object cxStyle1: TcxStyle object cxStyle1: TcxStyle
AssignedValues = [svFont] AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET

9
云翔一码通/U_YMTFHSQList.pas
View File

@ -109,6 +109,7 @@ type
Button3: TButton; Button3: TButton;
CRType: TComboBox; CRType: TComboBox;
v1Column6: TcxGridDBColumn; v1Column6: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
//RMllPDFExport1: TRMllPDFExport; //RMllPDFExport1: TRMllPDFExport;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
@ -540,8 +541,8 @@ begin
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString))); sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
execsql; execsql;
end; end;
Order_Main.Delete; // Order_Main.Delete;
InitSubGrid(); InitGrid();
application.MessageBox('审核成功！', '提示信息'); application.MessageBox('审核成功！', '提示信息');
except except
application.MessageBox('审核失败！', '提示信息', 0); application.MessageBox('审核失败！', '提示信息', 0);
@ -596,8 +597,8 @@ begin
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString))); sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
execsql; execsql;
end; end;
Order_Main.Delete; // Order_Main.Delete;
InitSubGrid(); InitGrid();
application.MessageBox('撤销成功！', '提示信息'); application.MessageBox('撤销成功！', '提示信息');
except except
application.MessageBox('撤销失败！', '提示信息', 0); application.MessageBox('撤销失败！', '提示信息', 0);

152
云翔一码通/U_YMTOrderSel.dfm
View File

@ -7,7 +7,7 @@ object frmOrderSel: TfrmOrderSel
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
@ -16,8 +16,8 @@ object frmOrderSel: TfrmOrderSel
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 96 PixelsPerInch = 120
TextHeight = 12 TextHeight = 15
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
@ -68,131 +68,131 @@ object frmOrderSel: TfrmOrderSel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1320 Width = 1320
Height = 70 Height = 88
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
object Label1: TLabel object Label1: TLabel
Left = 25 Left = 31
Top = 14 Top = 18
Width = 72 Width = 92
Height = 17 Height = 22
Caption = #19979#21333#26085#26399 Caption = #19979#21333#26085#26399
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
Left = 473 Left = 591
Top = 41 Top = 51
Width = 72 Width = 92
Height = 17 Height = 22
Caption = #25351#31034#21333#21495 Caption = #25351#31034#21333#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 239 Left = 299
Top = 14 Top = 18
Width = 76 Width = 94
Height = 17 Height = 22
Caption = #23458' '#25143 Caption = #23458' '#25143
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label9: TLabel object Label9: TLabel
Left = 473 Left = 591
Top = 14 Top = 18
Width = 74 Width = 93
Height = 17 Height = 22
Caption = #21512' '#21516' '#21495 Caption = #21512' '#21516' '#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label12: TLabel object Label12: TLabel
Left = 613 Left = 766
Top = 119 Top = 149
Width = 26 Width = 32
Height = 12 Height = 15
Caption = #20811#37325 Caption = #20811#37325
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 239 Left = 299
Top = 41 Top = 51
Width = 72 Width = 92
Height = 17 Height = 22
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label7: TLabel object Label7: TLabel
Left = 525 Left = 656
Top = 88 Top = 110
Width = 52 Width = 64
Height = 12 Height = 15
Caption = #23457#26680#29366#24577 Caption = #23457#26680#29366#24577
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False Visible = False
end end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 100 Left = 125
Top = 10 Top = 13
Width = 123 Width = 154
Height = 25 Height = 30
Date = 40675.464742650460000000 Date = 40675.464742650460000000
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
Time = 40675.464742650460000000 Time = 40675.464742650460000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
end end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 100 Left = 125
Top = 37 Top = 46
Width = 123 Width = 154
Height = 25 Height = 30
Date = 40675.464761099540000000 Date = 40675.464761099540000000
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
Time = 40675.464761099540000000 Time = 40675.464761099540000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -200,13 +200,13 @@ object frmOrderSel: TfrmOrderSel
end end
object MLOrderNo: TEdit object MLOrderNo: TEdit
Tag = 2 Tag = 2
Left = 552 Left = 690
Top = 37 Top = 46
Width = 120 Width = 150
Height = 25 Height = 25
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -216,13 +216,13 @@ object frmOrderSel: TfrmOrderSel
end end
object KHNameHZ: TEdit object KHNameHZ: TEdit
Tag = 2 Tag = 2
Left = 317 Left = 396
Top = 10 Top = 13
Width = 140 Width = 175
Height = 25 Height = 25
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -231,13 +231,13 @@ object frmOrderSel: TfrmOrderSel
end end
object MLConNo: TEdit object MLConNo: TEdit
Tag = 2 Tag = 2
Left = 552 Left = 690
Top = 10 Top = 13
Width = 120 Width = 150
Height = 25 Height = 25
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -247,21 +247,21 @@ object frmOrderSel: TfrmOrderSel
end end
object MPRTKZ: TEdit object MPRTKZ: TEdit
Tag = 2 Tag = 2
Left = 654 Left = 818
Top = 99 Top = 124
Width = 56 Width = 70
Height = 20 Height = 20
TabOrder = 5 TabOrder = 5
end end
object MLCodeName: TEdit object MLCodeName: TEdit
Tag = 2 Tag = 2
Left = 317 Left = 396
Top = 37 Top = 46
Width = 139 Width = 174
Height = 25 Height = 25
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -22
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -271,11 +271,11 @@ object frmOrderSel: TfrmOrderSel
end end
object status: TComboBox object status: TComboBox
Tag = 2 Tag = 2
Left = 581 Left = 726
Top = 87 Top = 109
Width = 103 Width = 129
Height = 20 Height = 23
ItemHeight = 12 ItemHeight = 15
TabOrder = 7 TabOrder = 7
Visible = False Visible = False
Items.Strings = ( Items.Strings = (
@ -287,7 +287,7 @@ object frmOrderSel: TfrmOrderSel
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 648 Top = 642
Width = 1320 Width = 1320
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
@ -296,9 +296,9 @@ object frmOrderSel: TfrmOrderSel
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 102 Top = 120
Width = 1320 Width = 1320
Height = 546 Height = 522
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView

58
云翔一码通/U_YMTOrderSel.pas
View File

@ -261,45 +261,45 @@ begin
if CDS_Main.fieldbyname('SSel').AsBoolean = True then if CDS_Main.fieldbyname('SSel').AsBoolean = True then
begin begin
if (Trim(FFTT) = '') and (Trim(CDS_Main.fieldbyname('SYRName').AsString) <> '') then // if (Trim(FFTT) = '') and (Trim(CDS_Main.fieldbyname('SYRName').AsString) <> '') then
begin // begin
FFTT := Trim(CDS_Main.fieldbyname('SYRName').AsString); // FFTT := Trim(CDS_Main.fieldbyname('SYRName').AsString);
end; // end;
//
if Trim(FFKHName) = '' then // if Trim(FFKHName) = '' then
begin // begin
FFKHName := Trim(CDS_Main.fieldbyname('KHName').AsString); // FFKHName := Trim(CDS_Main.fieldbyname('KHName').AsString);
end; // end;
//同时选的生产单不能包含多个抬头 //同时选的生产单不能包含多个抬头
if (Trim(CDS_Main.fieldbyname('SYRName').AsString) <> FFTT) and (Trim(CDS_Main.fieldbyname('SYRName').AsString) <> '') then // if (Trim(CDS_Main.fieldbyname('SYRName').AsString) <> FFTT) and (Trim(CDS_Main.fieldbyname('SYRName').AsString) <> '') then
begin // begin
Application.MessageBox('不能选择多个抬头!', '提示', 0); // Application.MessageBox('不能选择多个抬头!', '提示', 0);
exit; // exit;
end; // end;
//新选的抬头不能和已经选的抬头不同 //新选的抬头不能和已经选的抬头不同
if (Trim(CDS_Main.fieldbyname('SYRName').AsString) <> FTT) and (FTT <> '') and (Trim(CDS_Main.fieldbyname('SYRName').AsString) <> '') then // if (Trim(CDS_Main.fieldbyname('SYRName').AsString) <> FTT) and (FTT <> '') and (Trim(CDS_Main.fieldbyname('SYRName').AsString) <> '') then
begin // begin
Application.MessageBox('不能选择其它抬头!', '提示', 0); // Application.MessageBox('不能选择其它抬头!', '提示', 0);
exit; // exit;
end; // end;
//同时选的生产单不能包含多个客户 //同时选的生产单不能包含多个客户
if (Trim(CDS_Main.fieldbyname('KHName').AsString) <> FFKHName) then // if (Trim(CDS_Main.fieldbyname('KHName').AsString) <> FFKHName) then
begin // begin
Application.MessageBox('不能选择多个客户!', '提示', 0); // Application.MessageBox('不能选择多个客户!', '提示', 0);
exit; // exit;
end; // end;
//新选的生产单不能和已经选的客户不同 //新选的生产单不能和已经选的客户不同
if (Trim(CDS_Main.fieldbyname('KHNo').AsString) <> FKHNo) and (FKHNo <> '') then // if (Trim(CDS_Main.fieldbyname('KHNo').AsString) <> FKHNo) and (FKHNo <> '') then
begin // begin
Application.MessageBox('不能选择其它客户!', '提示', 0); // Application.MessageBox('不能选择其它客户!', '提示', 0);
exit; // exit;
end; // end;
end; end;

40
云翔一码通/U_YMTRKInPut.dfm
View File

@ -1,7 +1,7 @@
object frmYMTRKInPut: TfrmYMTRKInPut object frmYMTRKInPut: TfrmYMTRKInPut
Left = 165 Left = -65
Top = 270 Top = 225
Width = 1829 Width = 1876
Height = 623 Height = 623
Align = alClient Align = alClient
Caption = #22238#20179#20837#24211 Caption = #22238#20179#20837#24211
@ -20,7 +20,7 @@ object frmYMTRKInPut: TfrmYMTRKInPut
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1585 Width = 1544
Height = 553 Height = 553
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
@ -257,6 +257,13 @@ object frmYMTRKInPut: TfrmYMTRKInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 63 Width = 63
end end
object Tv1Column3: TcxGridDBColumn
Tag = 2
Caption = #37325#37327
DataBinding.FieldName = 'KGQty'
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #25968#37327#21333#20301 Caption = #25968#37327#21333#20301
@ -291,6 +298,7 @@ object frmYMTRKInPut: TfrmYMTRKInPut
Tag = 2 Tag = 2
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
HeaderAlignmentHorz = taCenter
Width = 79 Width = 79
end end
end end
@ -301,7 +309,7 @@ object frmYMTRKInPut: TfrmYMTRKInPut
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1821 Width = 1868
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -538,19 +546,19 @@ object frmYMTRKInPut: TfrmYMTRKInPut
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 1585 Left = 1544
Top = 33 Top = 33
Width = 236 Width = 324
Height = 553 Height = 553
Align = alRight Align = alRight
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 3 TabOrder = 3
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = -11 Left = 1
Top = 1 Top = 1
Width = 246 Width = 322
Height = 551 Height = 551
Align = alRight Align = alClient
TabOrder = 0 TabOrder = 0
object TvMX: TcxGridDBTableView object TvMX: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -582,6 +590,10 @@ object frmYMTRKInPut: TfrmYMTRKInPut
item item
Kind = skSum Kind = skSum
Column = TvMXMXQty Column = TvMXMXQty
end
item
Kind = skSum
Column = TvMXColumn1
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.GoToNextCellOnEnter = True
@ -595,7 +607,7 @@ object frmYMTRKInPut: TfrmYMTRKInPut
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'MXID' DataBinding.FieldName = 'MXID'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 99
end end
object TvMXMXQty: TcxGridDBColumn object TvMXMXQty: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327
@ -606,6 +618,12 @@ object frmYMTRKInPut: TfrmYMTRKInPut
Options.Sorting = False Options.Sorting = False
Width = 80 Width = 80
end end
object TvMXColumn1: TcxGridDBColumn
Caption = #37325#37327
DataBinding.FieldName = 'KGQty'
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
GridView = TvMX GridView = TvMX

2
云翔一码通/U_YMTRKInPut.pas
View File

@ -88,6 +88,8 @@ type
cxGridLevel2: TcxGridLevel; cxGridLevel2: TcxGridLevel;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
TvMXColumn1: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

56
云翔一码通/U_YMTRKList.dfm
View File

@ -2,7 +2,7 @@ object frmYMTRKList: TfrmYMTRKList
Left = 267 Left = 267
Top = 100 Top = 100
Width = 1370 Width = 1370
Height = 750 Height = 700
Caption = #38754#26009#22238#20179#30331#35760 Caption = #38754#26009#22238#20179#30331#35760
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -363,8 +363,8 @@ object frmYMTRKList: TfrmYMTRKList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 123 Top = 123
Width = 1049 Width = 1008
Height = 590 Height = 540
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -398,11 +398,16 @@ object frmYMTRKList: TfrmYMTRKList
item item
Format = '#,###' Format = '#,###'
Kind = skSum Kind = skSum
end
item
Kind = skSum
Column = Tv1Column4
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.Inactive = DataLink_YXYMT.SHuangSe Styles.Inactive = DataLink_YXYMT.SHuangSe
Styles.IncSearch = DataLink_YXYMT.SHuangSe Styles.IncSearch = DataLink_YXYMT.SHuangSe
Styles.Selection = DataLink_YXYMT.SHuangSe Styles.Selection = DataLink_YXYMT.SHuangSe
@ -412,7 +417,7 @@ object frmYMTRKList: TfrmYMTRKList
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 40 Width = 47
end end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #20837#24211#21333#21495 Caption = #20837#24211#21333#21495
@ -459,6 +464,12 @@ object frmYMTRKList: TfrmYMTRKList
Options.Editing = False Options.Editing = False
Width = 102 Width = 102
end end
object Tv1Column3: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustomerNoName'
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column14: TcxGridDBColumn object v1Column14: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #20379#24212#21830 Caption = #20379#24212#21830
@ -578,7 +589,7 @@ object frmYMTRKList: TfrmYMTRKList
Properties.DisplayFormat = '0.00;' Properties.DisplayFormat = '0.00;'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 67 Width = 32
end end
object v2Column6: TcxGridDBColumn object v2Column6: TcxGridDBColumn
Tag = 2 Tag = 2
@ -587,7 +598,13 @@ object frmYMTRKList: TfrmYMTRKList
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 85 Width = 62
end
object Tv1Column4: TcxGridDBColumn
Caption = #37325#37327
DataBinding.FieldName = 'KgQty'
HeaderAlignmentHorz = taCenter
Width = 80
end end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #21333#20215 Caption = #21333#20215
@ -631,6 +648,7 @@ object frmYMTRKList: TfrmYMTRKList
Tag = 2 Tag = 2
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 79 Width = 79
end end
@ -640,18 +658,18 @@ object frmYMTRKList: TfrmYMTRKList
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 1049 Left = 1008
Top = 123 Top = 123
Width = 313 Width = 354
Height = 590 Height = 540
Align = alRight Align = alRight
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 3 TabOrder = 3
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 1 Left = 1
Top = 82 Top = 82
Width = 311 Width = 352
Height = 507 Height = 457
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object TvMX: TcxGridDBTableView object TvMX: TcxGridDBTableView
@ -684,6 +702,10 @@ object frmYMTRKList: TfrmYMTRKList
item item
Kind = skSum Kind = skSum
Column = TvMXMXQty Column = TvMXMXQty
end
item
Kind = skSum
Column = TvMXColumn1
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.GoToNextCellOnEnter = True
@ -691,7 +713,7 @@ object frmYMTRKList: TfrmYMTRKList
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.Indicator = True OptionsView.Indicator = True
OptionsView.IndicatorWidth = 33 OptionsView.IndicatorWidth = 20
OnCustomDrawIndicatorCell = TvMXCustomDrawIndicatorCell OnCustomDrawIndicatorCell = TvMXCustomDrawIndicatorCell
object TvMXSsel: TcxGridDBColumn object TvMXSsel: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
@ -715,6 +737,12 @@ object frmYMTRKList: TfrmYMTRKList
Options.Sorting = False Options.Sorting = False
Width = 80 Width = 80
end end
object TvMXColumn1: TcxGridDBColumn
Caption = #37325#37327
DataBinding.FieldName = 'KgQty'
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
GridView = TvMX GridView = TvMX
@ -723,7 +751,7 @@ object frmYMTRKList: TfrmYMTRKList
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 1 Left = 1
Top = 53 Top = 53
Width = 311 Width = 352
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 80 ButtonWidth = 80
@ -752,7 +780,7 @@ object frmYMTRKList: TfrmYMTRKList
object Panel3: TPanel object Panel3: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 311 Width = 352
Height = 52 Height = 52
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2

3
云翔一码通/U_YMTRKList.pas
View File

@ -132,6 +132,9 @@ type
KuWei: TcxButtonEdit; KuWei: TcxButtonEdit;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
TvMXColumn1: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);