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 16:40:01 +08:00
parent 25d7434110
commit 2b9e4b0774
18 changed files with 615 additions and 498 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,6 @@
object frmYMTRKInPut: TfrmYMTRKInPut object frmYMTRKInPut: TfrmYMTRKInPut
Left = -65 Left = 258
Top = 225 Top = 163
Width = 1876 Width = 1876
Height = 623 Height = 623
Align = alClient Align = alClient
@ -8,20 +8,20 @@ object frmYMTRKInPut: TfrmYMTRKInPut
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 120 PixelsPerInch = 96
TextHeight = 15 TextHeight = 12
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1544 Width = 1609
Height = 553 Height = 559
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -246,21 +246,19 @@ object frmYMTRKInPut: TfrmYMTRKInPut
Tag = 2 Tag = 2
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.00;'
Properties.OnEditValueChanged = Tv1PricePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 85 Width = 85
end end
object Tv1Column2: TcxGridDBColumn
Tag = 2
Caption = #21333#20215
DataBinding.FieldName = 'Price'
HeaderAlignmentHorz = taCenter
Width = 63
end
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #37325#37327 Caption = #37325#37327
DataBinding.FieldName = 'KGQty' DataBinding.FieldName = 'KGQty'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.00;'
Properties.OnEditValueChanged = Tv1PricePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
@ -277,23 +275,6 @@ object frmYMTRKInPut: TfrmYMTRKInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 77 Width = 77
end end
object v1Column16: TcxGridDBColumn
Tag = 2
Caption = #26469#33258#24037#21378
DataBinding.FieldName = 'FromFactoryName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = v1Column16PropertiesButtonClick
Visible = False
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 79
end
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #22791#27880 Caption = #22791#27880
@ -301,6 +282,47 @@ object frmYMTRKInPut: TfrmYMTRKInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 79 Width = 79
end end
object Tv1PriceType: TcxGridDBColumn
Tag = 2
Caption = #35745#20215#26041#24335
DataBinding.FieldName = 'PriceType'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#31859
#20844#26020)
Properties.OnEditValueChanged = Tv1PriceTypePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1IsTax: TcxGridDBColumn
Tag = 2
Caption = #31246#29366
DataBinding.FieldName = 'IsTax'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#21547#31246
#19981#21547#31246)
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Money: TcxGridDBColumn
Tag = 2
Caption = #24635#37329#39069
DataBinding.FieldName = 'Money'
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Price: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.00;'
Properties.OnEditValueChanged = Tv1PricePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -368,23 +390,23 @@ object frmYMTRKInPut: TfrmYMTRKInPut
end end
end end
object Panel4: TPanel object Panel4: TPanel
Left = 920 Left = 736
Top = 160 Top = 128
Width = 281 Width = 225
Height = 271 Height = 217
TabOrder = 2 TabOrder = 2
Visible = False Visible = False
object Label14: TLabel object Label14: TLabel
Left = 60 Left = 48
Top = 110 Top = 88
Width = 8 Width = 6
Height = 15 Height = 12
end end
object Panel10: TPanel object Panel10: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 279 Width = 223
Height = 29 Height = 23
Align = alTop Align = alTop
Alignment = taLeftJustify Alignment = taLeftJustify
BevelOuter = bvNone BevelOuter = bvNone
@ -392,16 +414,16 @@ object frmYMTRKInPut: TfrmYMTRKInPut
Color = clSkyBlue Color = clSkyBlue
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -22 Font.Height = -19
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
object Image2: TImage object Image2: TImage
Left = 241 Left = 193
Top = 4 Top = 3
Width = 28 Width = 22
Height = 20 Height = 16
ParentShowHint = False ParentShowHint = False
Picture.Data = { Picture.Data = {
07544269746D617076040000424D760400000000000036000000280000001500 07544269746D617076040000424D760400000000000036000000280000001500
@ -447,117 +469,117 @@ object frmYMTRKInPut: TfrmYMTRKInPut
end end
end end
object Button1: TButton object Button1: TButton
Left = 36 Left = 29
Top = 225 Top = 180
Width = 94 Width = 75
Height = 31 Height = 25
Caption = #20840#36873 Caption = #20840#36873
TabOrder = 1 TabOrder = 1
OnClick = Button1Click OnClick = Button1Click
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 30 Left = 24
Top = 70 Top = 56
Width = 221 Width = 177
Height = 151 Height = 121
Caption = #26367#25442#23383#27573 Caption = #26367#25442#23383#27573
TabOrder = 2 TabOrder = 2
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
Left = 14 Left = 11
Top = 20 Top = 16
Width = 91 Width = 73
Height = 21 Height = 17
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
TabOrder = 0 TabOrder = 0
end end
object CheckBox2: TCheckBox object CheckBox2: TCheckBox
Left = 14 Left = 11
Top = 45 Top = 36
Width = 91 Width = 73
Height = 21 Height = 17
Caption = #21152' '#24037' '#21378 Caption = #21152' '#24037' '#21378
TabOrder = 1 TabOrder = 1
end end
object CheckBox3: TCheckBox object CheckBox3: TCheckBox
Left = 14 Left = 11
Top = 70 Top = 56
Width = 91 Width = 73
Height = 21 Height = 17
Caption = #26579#21378#32568#21495 Caption = #26579#21378#32568#21495
TabOrder = 2 TabOrder = 2
end end
object CheckBox4: TCheckBox object CheckBox4: TCheckBox
Left = 14 Left = 11
Top = 95 Top = 76
Width = 91 Width = 73
Height = 21 Height = 17
Caption = #23384#25918#24037#21378 Caption = #23384#25918#24037#21378
TabOrder = 3 TabOrder = 3
end end
object CheckBox5: TCheckBox object CheckBox5: TCheckBox
Left = 14 Left = 11
Top = 120 Top = 96
Width = 91 Width = 73
Height = 21 Height = 17
Caption = #24211' '#20301 Caption = #24211' '#20301
TabOrder = 4 TabOrder = 4
end end
object CheckBox6: TCheckBox object CheckBox6: TCheckBox
Left = 124 Left = 99
Top = 21 Top = 17
Width = 91 Width = 73
Height = 22 Height = 17
Caption = #21305' '#25968 Caption = #21305' '#25968
TabOrder = 5 TabOrder = 5
end end
object CheckBox7: TCheckBox object CheckBox7: TCheckBox
Left = 124 Left = 99
Top = 46 Top = 37
Width = 91 Width = 73
Height = 22 Height = 17
Caption = #25968' '#37327 Caption = #25968' '#37327
TabOrder = 6 TabOrder = 6
end end
object CheckBox8: TCheckBox object CheckBox8: TCheckBox
Left = 124 Left = 99
Top = 71 Top = 57
Width = 91 Width = 73
Height = 22 Height = 17
Caption = #25968#37327#21333#20301 Caption = #25968#37327#21333#20301
TabOrder = 7 TabOrder = 7
end end
object CheckBox9: TCheckBox object CheckBox9: TCheckBox
Left = 124 Left = 99
Top = 96 Top = 77
Width = 91 Width = 73
Height = 22 Height = 17
Caption = #22791' '#27880 Caption = #22791' '#27880
TabOrder = 8 TabOrder = 8
end end
end end
object Button2: TButton object Button2: TButton
Left = 166 Left = 133
Top = 225 Top = 180
Width = 94 Width = 75
Height = 31 Height = 25
Caption = #30830#23450 Caption = #30830#23450
TabOrder = 3 TabOrder = 3
OnClick = Button2Click OnClick = Button2Click
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 1544 Left = 1609
Top = 33 Top = 33
Width = 324 Width = 259
Height = 553 Height = 559
Align = alRight Align = alRight
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 3 TabOrder = 3
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
Width = 322 Width = 257
Height = 551 Height = 557
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object TvMX: TcxGridDBTableView object TvMX: TcxGridDBTableView

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

@ -54,7 +54,6 @@ type
v1Column1: TcxGridDBColumn; v1Column1: TcxGridDBColumn;
v1Column3: TcxGridDBColumn; v1Column3: TcxGridDBColumn;
v1Column11: TcxGridDBColumn; v1Column11: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
v1Column15: TcxGridDBColumn; v1Column15: TcxGridDBColumn;
v1Column17: TcxGridDBColumn; v1Column17: TcxGridDBColumn;
v1Column18: TcxGridDBColumn; v1Column18: TcxGridDBColumn;
@ -87,9 +86,12 @@ type
TvMXMXQty: TcxGridDBColumn; TvMXMXQty: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel; cxGridLevel2: TcxGridLevel;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
TvMXColumn1: TcxGridDBColumn; TvMXColumn1: TcxGridDBColumn;
Tv1PriceType: TcxGridDBColumn;
Tv1IsTax: TcxGridDBColumn;
Tv1Money: TcxGridDBColumn;
Tv1Price: 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);
@ -114,6 +116,8 @@ type
procedure TvMXCustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); procedure TvMXCustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
procedure TvMXKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure TvMXKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure v1Column21PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1Column21PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1PricePropertiesEditValueChanged(Sender: TObject);
procedure Tv1PriceTypePropertiesEditValueChanged(Sender: TObject);
private private
{ Private declarations } { Private declarations }
function SaveCKData(): Boolean; function SaveCKData(): Boolean;
@ -271,6 +275,11 @@ begin
FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('QtyUnit').Value := 'M'; FieldByName('QtyUnit').Value := 'M';
FieldByName('ToFactoryName').Value := 'ÔÆÏè²Ö¿â'; FieldByName('ToFactoryName').Value := 'ÔÆÏè²Ö¿â';
FieldByName('PriceType').Value := 'Ã×';
FieldByName('IsTax').Value := 'º¬Ë°';
FieldByName('Price').Value := '0';
FieldByName('Qty').Value := '0';
FieldByName('KGQty').Value := '0';
Post; Post;
end; end;
end; end;
@ -898,5 +907,56 @@ begin
end; end;
procedure TfrmYMTRKInPut.Tv1PricePropertiesEditValueChanged(
Sender: TObject);
var
mvalue,FFieldName: string;
begin
mvalue := TcxCurrencyEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_Sub do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
end;
with CDS_Sub do
begin
Edit;
if FieldByName('PriceType').Value = 'Ã×' then
FieldByName('Money').Value := FieldByName('Price').Asfloat * FieldByName('Qty').Asfloat
else
FieldByName('Money').Value := FieldByName('Price').Asfloat * FieldByName('KGQty').Asfloat;
Post;
end;
end;
procedure TfrmYMTRKInPut.Tv1PriceTypePropertiesEditValueChanged(
Sender: TObject);
var
mvalue,FFieldName: string;
begin
mvalue := TcxComboBox(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_Sub do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
end;
with CDS_Sub do
begin
Edit;
if FieldByName('PriceType').Value = 'Ã×' then
FieldByName('Money').Value := FieldByName('Price').Asfloat * FieldByName('Qty').Asfloat
else
FieldByName('Money').Value := FieldByName('Price').Asfloat * FieldByName('KGQty').Asfloat;
Post;
end;
end;
end. end.

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

@ -7,7 +7,7 @@ object frmYMTRKList: TfrmYMTRKList
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
@ -15,8 +15,8 @@ object frmYMTRKList: TfrmYMTRKList
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 120 PixelsPerInch = 96
TextHeight = 15 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
@ -121,118 +121,118 @@ object frmYMTRKList: TfrmYMTRKList
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1362 Width = 1362
Height = 90 Height = 72
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 = 35 Left = 28
Top = 15 Top = 12
Width = 60 Width = 48
Height = 15 Height = 12
Caption = #26597#35810#26102#38388 Caption = #26597#35810#26102#38388
end end
object Label2: TLabel object Label2: TLabel
Left = 80 Left = 64
Top = 45 Top = 36
Width = 15 Width = 12
Height = 15 Height = 12
Caption = #33267 Caption = #33267
end end
object Label3: TLabel object Label3: TLabel
Left = 398 Left = 318
Top = 15 Top = 12
Width = 30 Width = 24
Height = 15 Height = 12
Caption = #21697#21517 Caption = #21697#21517
end end
object Label4: TLabel object Label4: TLabel
Left = 544 Left = 435
Top = 15 Top = 12
Width = 45 Width = 36
Height = 15 Height = 12
Caption = #21152#24037#21378 Caption = #21152#24037#21378
end end
object Label5: TLabel object Label5: TLabel
Left = 223 Left = 178
Top = 15 Top = 12
Width = 60 Width = 48
Height = 15 Height = 12
Caption = #20837#24211#21333#21495 Caption = #20837#24211#21333#21495
end end
object Label8: TLabel object Label8: TLabel
Left = 398 Left = 318
Top = 45 Top = 36
Width = 30 Width = 24
Height = 15 Height = 12
Caption = #35268#26684 Caption = #35268#26684
end end
object Label6: TLabel object Label6: TLabel
Left = 544 Left = 435
Top = 45 Top = 36
Width = 46 Width = 36
Height = 15 Height = 12
Caption = #25104' '#20998 Caption = #25104' '#20998
end end
object Label7: TLabel object Label7: TLabel
Left = 701 Left = 561
Top = 45 Top = 36
Width = 61 Width = 48
Height = 15 Height = 12
Caption = #35746' '#21333' '#21495 Caption = #35746' '#21333' '#21495
end end
object Label9: TLabel object Label9: TLabel
Left = 701 Left = 561
Top = 15 Top = 12
Width = 60 Width = 48
Height = 15 Height = 12
Caption = #23384#25918#24037#21378 Caption = #23384#25918#24037#21378
end end
object Label12: TLabel object Label12: TLabel
Left = 223 Left = 178
Top = 45 Top = 36
Width = 60 Width = 48
Height = 15 Height = 12
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
end end
object Label11: TLabel object Label11: TLabel
Left = 1029 Left = 823
Top = 46 Top = 37
Width = 60 Width = 48
Height = 15 Height = 12
Caption = #26579#21378#32568#21495 Caption = #26579#21378#32568#21495
end end
object Label13: TLabel object Label13: TLabel
Left = 880 Left = 704
Top = 15 Top = 12
Width = 30 Width = 24
Height = 15 Height = 12
Caption = #39068#33394 Caption = #39068#33394
end end
object Label15: TLabel object Label15: TLabel
Left = 880 Left = 704
Top = 46 Top = 37
Width = 30 Width = 24
Height = 15 Height = 12
Caption = #33457#22411 Caption = #33457#22411
end end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 96 Left = 77
Top = 11 Top = 9
Width = 109 Width = 87
Height = 23 Height = 20
Date = 40768.458268587970000000 Date = 40768.458268587970000000
Time = 40768.458268587970000000 Time = 40768.458268587970000000
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 0 TabOrder = 0
end end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 96 Left = 77
Top = 40 Top = 32
Width = 109 Width = 87
Height = 23 Height = 20
Date = 40768.458268587970000000 Date = 40768.458268587970000000
Time = 40768.458268587970000000 Time = 40768.458268587970000000
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -240,83 +240,83 @@ object frmYMTRKList: TfrmYMTRKList
end end
object SPName: TEdit object SPName: TEdit
Tag = 2 Tag = 2
Left = 431 Left = 345
Top = 11 Top = 9
Width = 100 Width = 80
Height = 23 Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 2 TabOrder = 2
OnChange = TBFindClick OnChange = TBFindClick
end end
object FactoryName: TEdit object FactoryName: TEdit
Tag = 2 Tag = 2
Left = 590 Left = 472
Top = 11 Top = 9
Width = 100 Width = 80
Height = 23 Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 3 TabOrder = 3
OnChange = FactoryNameChange OnChange = FactoryNameChange
end end
object SPID: TEdit object SPID: TEdit
Tag = 2 Tag = 2
Left = 285 Left = 228
Top = 11 Top = 9
Width = 100 Width = 80
Height = 23 Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 1 TabOrder = 1
OnChange = SPIDChange OnChange = SPIDChange
end end
object SPSpec: TEdit object SPSpec: TEdit
Tag = 2 Tag = 2
Left = 431 Left = 345
Top = 40 Top = 32
Width = 100 Width = 80
Height = 23 Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 9 TabOrder = 9
OnChange = SPSpecChange OnChange = SPSpecChange
end end
object SPCF: TEdit object SPCF: TEdit
Tag = 2 Tag = 2
Left = 590 Left = 472
Top = 40 Top = 32
Width = 100 Width = 80
Height = 23 Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 10 TabOrder = 10
OnChange = FactoryNameChange OnChange = FactoryNameChange
end end
object OrderNo: TEdit object OrderNo: TEdit
Tag = 2 Tag = 2
Left = 765 Left = 612
Top = 41 Top = 33
Width = 100 Width = 80
Height = 23 Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 11 TabOrder = 11
OnChange = FactoryNameChange OnChange = FactoryNameChange
end end
object ToFactoryName: TEdit object ToFactoryName: TEdit
Tag = 2 Tag = 2
Left = 765 Left = 612
Top = 11 Top = 9
Width = 100 Width = 80
Height = 23 Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 4 TabOrder = 4
OnChange = FactoryNameChange OnChange = FactoryNameChange
end end
object CRType: TComboBox object CRType: TComboBox
Tag = 2 Tag = 2
Left = 285 Left = 228
Top = 40 Top = 32
Width = 100 Width = 80
Height = 23 Height = 20
Style = csDropDownList Style = csDropDownList
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 15 ItemHeight = 12
TabOrder = 8 TabOrder = 8
OnChange = TBFindClick OnChange = TBFindClick
Items.Strings = ( Items.Strings = (
@ -331,30 +331,30 @@ object frmYMTRKList: TfrmYMTRKList
end end
object RCGangNo: TEdit object RCGangNo: TEdit
Tag = 2 Tag = 2
Left = 1093 Left = 874
Top = 43 Top = 34
Width = 100 Width = 80
Height = 23 Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 12 TabOrder = 12
OnChange = FactoryNameChange OnChange = FactoryNameChange
end end
object SPColor: TEdit object SPColor: TEdit
Tag = 2 Tag = 2
Left = 911 Left = 729
Top = 11 Top = 9
Width = 100 Width = 80
Height = 23 Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 5 TabOrder = 5
OnChange = FactoryNameChange OnChange = FactoryNameChange
end end
object SPHX: TEdit object SPHX: TEdit
Tag = 2 Tag = 2
Left = 911 Left = 729
Top = 43 Top = 34
Width = 100 Width = 80
Height = 23 Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 6 TabOrder = 6
OnChange = FactoryNameChange OnChange = FactoryNameChange
@ -362,9 +362,9 @@ object frmYMTRKList: TfrmYMTRKList
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 123 Top = 105
Width = 1008 Width = 1078
Height = 540 Height = 564
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -658,18 +658,18 @@ object frmYMTRKList: TfrmYMTRKList
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 1008 Left = 1078
Top = 123 Top = 105
Width = 354 Width = 284
Height = 540 Height = 564
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 = 71
Width = 352 Width = 282
Height = 457 Height = 492
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object TvMX: TcxGridDBTableView object TvMX: TcxGridDBTableView
@ -750,11 +750,11 @@ object frmYMTRKList: TfrmYMTRKList
end end
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 1 Left = 1
Top = 53 Top = 42
Width = 352 Width = 282
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 80 ButtonWidth = 71
Caption = 'ToolBar2' Caption = 'ToolBar2'
Images = DataLink_YXYMT.ThreeImgList Images = DataLink_YXYMT.ThreeImgList
List = True List = True
@ -769,7 +769,7 @@ object frmYMTRKList: TfrmYMTRKList
OnClick = TbAddRowClick OnClick = TbAddRowClick
end end
object TbDeleteRow: TToolButton object TbDeleteRow: TToolButton
Left = 84 Left = 75
Top = 2 Top = 2
AutoSize = True AutoSize = True
Caption = #21024#34892 Caption = #21024#34892
@ -780,30 +780,30 @@ object frmYMTRKList: TfrmYMTRKList
object Panel3: TPanel object Panel3: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 352 Width = 282
Height = 52 Height = 41
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
object Label17: TLabel object Label17: TLabel
Left = 8 Left = 6
Top = 15 Top = 12
Width = 45 Width = 36
Height = 15 Height = 12
Caption = #22686#34892#25968 Caption = #22686#34892#25968
Layout = tlCenter Layout = tlCenter
end end
object AddNum: TEdit object AddNum: TEdit
Left = 59 Left = 47
Top = 13 Top = 10
Width = 51 Width = 41
Height = 23 Height = 20
TabOrder = 0 TabOrder = 0
end end
object Button1: TButton object Button1: TButton
Left = 123 Left = 98
Top = 5 Top = 4
Width = 93 Width = 75
Height = 38 Height = 30
Caption = #24555#36895#22686#34892 Caption = #24555#36895#22686#34892
TabOrder = 1 TabOrder = 1
OnClick = Button1Click OnClick = Button1Click
@ -811,41 +811,41 @@ object frmYMTRKList: TfrmYMTRKList
end end
end end
object Panel4: TPanel object Panel4: TPanel
Left = 700 Left = 560
Top = 175 Top = 140
Width = 293 Width = 234
Height = 156 Height = 125
Color = clSkyBlue Color = clSkyBlue
TabOrder = 4 TabOrder = 4
Visible = False Visible = False
object Label25: TLabel object Label25: TLabel
Left = 48 Left = 38
Top = 43 Top = 34
Width = 30 Width = 24
Height = 15 Height = 12
Caption = #24211#20301 Caption = #24211#20301
end end
object btnChk: TButton object btnChk: TButton
Left = 35 Left = 28
Top = 101 Top = 81
Width = 75 Width = 60
Height = 32 Height = 25
Caption = #30830#35748 Caption = #30830#35748
TabOrder = 0 TabOrder = 0
OnClick = btnChkClick OnClick = btnChkClick
end end
object btn1: TButton object btn1: TButton
Left = 200 Left = 160
Top = 100 Top = 80
Width = 75 Width = 60
Height = 31 Height = 25
Caption = #20851#38381 Caption = #20851#38381
TabOrder = 1 TabOrder = 1
OnClick = btn1Click OnClick = btn1Click
end end
object KuWei: TcxButtonEdit object KuWei: TcxButtonEdit
Left = 94 Left = 75
Top = 34 Top = 27
ParentFont = False ParentFont = False
Properties.Buttons = < Properties.Buttons = <
item item
@ -855,12 +855,12 @@ object frmYMTRKList: TfrmYMTRKList
Properties.OnButtonClick = KuWeiPropertiesButtonClick Properties.OnButtonClick = KuWeiPropertiesButtonClick
Style.Font.Charset = GB2312_CHARSET Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText Style.Font.Color = clWindowText
Style.Font.Height = -22 Style.Font.Height = -19
Style.Font.Name = #23435#20307 Style.Font.Name = #23435#20307
Style.Font.Style = [fsBold] Style.Font.Style = [fsBold]
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 2 TabOrder = 2
Width = 151 Width = 121
end end
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery

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

@ -293,8 +293,8 @@ begin
TBDel.Visible := True; TBDel.Visible := True;
TBEdit.Visible := True; TBEdit.Visible := True;
end; end;
ReadCxGrid('´ý¼ì²¼Èë¿âÁбí', Tv1, '´ý¼ì²¼²Ö¿â'); // ReadCxGrid('´ý¼ì²¼Èë¿âÁбí', Tv1, '´ý¼ì²¼²Ö¿â');
ReadCxGrid('´ý¼ì²¼Èë¿âÁбí2', TvMX, '´ý¼ì²¼²Ö¿â'); // ReadCxGrid('´ý¼ì²¼Èë¿âÁбí2', TvMX, '´ý¼ì²¼²Ö¿â');
InitGrid(); InitGrid();
end; end;

2
云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas
View File

@ -30,6 +30,7 @@ uses
dxSkinWhiteprint, dxSkinXmas2008Blue; dxSkinWhiteprint, dxSkinXmas2008Blue;
type type
TfrmLLRKInPutMH_PBCG = class(TForm) TfrmLLRKInPutMH_PBCG = class(TForm)
ToolBar1: TToolBar; ToolBar1: TToolBar;
li: TToolButton; li: TToolButton;
@ -473,6 +474,7 @@ begin
SCSHDataNew(ADOQuery1, Panel4, 0); SCSHDataNew(ADOQuery1, Panel4, 0);
SCSHDataNew(ADOQuery1, Panel5, 2); SCSHDataNew(ADOQuery1, Panel5, 2);
SCSHDataNew(ADOQuery1, Panel5, 0); SCSHDataNew(ADOQuery1, Panel5, 0);
SCSHDataNew(ADOQuery1, Panel6, 2);
SCSHDataNew(ADOQuery1, Panel15, 2); SCSHDataNew(ADOQuery1, Panel15, 2);
MDMFlag.Checked := ADOQuery1.FieldByName('MDMflag').AsBoolean; MDMFlag.Checked := ADOQuery1.FieldByName('MDMflag').AsBoolean;
MDKGFlag.Checked := ADOQuery1.FieldByName('MDKGFlag').AsBoolean; MDKGFlag.Checked := ADOQuery1.FieldByName('MDKGFlag').AsBoolean;

24
云翔生产管理(MYSC.dll)/U_MCGRKList.dfm
View File

@ -21,6 +21,7 @@ object frmMCGRKList: TfrmMCGRKList
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1141 Width = 1141
Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -86,11 +87,12 @@ object frmMCGRKList: TfrmMCGRKList
AutoSize = True AutoSize = True
Caption = #21367#25968#31995#25968 Caption = #21367#25968#31995#25968
ImageIndex = 25 ImageIndex = 25
Wrap = True
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object labMYType: TLabel object labMYType: TLabel
Left = 474 Left = 0
Top = 0 Top = 30
Width = 292 Width = 292
Height = 30 Height = 30
Caption = ' '#36741#26009#37319#36141#20837#24211' ' Caption = ' '#36741#26009#37319#36141#20837#24211' '
@ -102,8 +104,8 @@ object frmMCGRKList: TfrmMCGRKList
ParentFont = False ParentFont = False
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 766 Left = 292
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
ImageIndex = 4 ImageIndex = 4
@ -111,16 +113,16 @@ object frmMCGRKList: TfrmMCGRKList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 835 Left = 361
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 904 Left = 430
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 21 ImageIndex = 21
@ -129,9 +131,9 @@ object frmMCGRKList: TfrmMCGRKList
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 109 Top = 139
Width = 1141 Width = 1141
Height = 536 Height = 506
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
@ -328,7 +330,7 @@ object frmMCGRKList: TfrmMCGRKList
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 62
Width = 1141 Width = 1141
Height = 77 Height = 77
Align = alTop Align = alTop

38
云翔生产管理(MYSC.dll)/U_MCGRKList.pas
View File

@ -13,32 +13,19 @@ uses
cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinDarkRoom, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinSpringTime,
dxSkinDarkRoom, dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinSpringTime,
dxSkinsDefaultPainters,
dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver,
dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
dxSkinWhiteprint, dxSkinXmas2008Blue;
type type
TfrmMCGRKList = class(TForm) TfrmMCGRKList = class(TForm)
@ -272,6 +259,7 @@ begin
// ShowMessage(sql.text); // ShowMessage(sql.text);
Open; Open;
end; end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
finally finally
@ -1027,6 +1015,7 @@ begin
Initimage(); Initimage();
end; end;
adoqueryCmd.Connection.CommitTrans; adoqueryCmd.Connection.CommitTrans;
Panel12.Visible := false;
except except
adoqueryCmd.Connection.RollbackTrans; adoqueryCmd.Connection.RollbackTrans;
application.MessageBox('文件保存失败！', '提示信息', 0); application.MessageBox('文件保存失败！', '提示信息', 0);
@ -1131,9 +1120,10 @@ begin
end; end;
end; end;
IdFTP1.Quit; IdFTP1.Quit;
//Panel2.Visible:=false;
Initimage(); Initimage();
adoqueryCmd.Connection.CommitTrans; adoqueryCmd.Connection.CommitTrans;
Panel12.Visible := false;
except except
adoqueryCmd.Connection.RollbackTrans; adoqueryCmd.Connection.RollbackTrans;
application.MessageBox('文件保存失败！', '提示信息', 0); application.MessageBox('文件保存失败！', '提示信息', 0);

15
云翔生产管理(MYSC.dll)/U_MCGRKList_PTCL.pas
View File

@ -26,7 +26,19 @@ uses
dxSkinSharpPlus, dxSkinSharpPlus,
dxSkinSpringTime, dxSkinSpringTime,
dxSkinsDefaultPainters, dxSkinsDefaultPainters,
dxSkinscxPCPainter; dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
dxSkinWhiteprint, dxSkinXmas2008Blue;
type type
TfrmMCGRKList_PTCL = class(TForm) TfrmMCGRKList_PTCL = class(TForm)
@ -235,6 +247,7 @@ begin
SQL.Add(' and isnull(MYType,'''')=''粒劃第蹋'''); SQL.Add(' and isnull(MYType,'''')=''粒劃第蹋''');
Open; Open;
end; end;
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS20(ADOQueryMain,Order_Main); SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main); SInitCDSData20(ADOQueryMain,Order_Main);
finally finally

22
云翔生产管理(MYSC.dll)/U_PBCGRKList.pas
View File

@ -14,17 +14,16 @@ uses
cxNavigator, BtnEdit, dxSkinsCore, dxSkinDarkRoom, dxSkinOffice2013White, cxNavigator, BtnEdit, dxSkinsCore, dxSkinDarkRoom, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinSpringTime, dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinSharpPlus, dxSkinSpringTime, dxSkinsDefaultPainters, dxSkinscxPCPainter,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver,
dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
dxSkinWhiteprint, dxSkinXmas2008Blue;
type type
TfrmPBCGRKList = class(TForm) TfrmPBCGRKList = class(TForm)
@ -258,6 +257,7 @@ begin
// ShowMessage(sql.text); // ShowMessage(sql.text);
Open; Open;
end; end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
finally finally

8
云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.dfm
View File

@ -1,7 +1,7 @@
object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
Left = 599 Left = 599
Top = 280 Top = 280
Width = 1556 Width = 1044
Height = 781 Height = 781
Caption = #21152#24037#30721#21333#30331#35760 Caption = #21152#24037#30721#21333#30331#35760
Color = clBtnFace Color = clBtnFace
@ -20,7 +20,7 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1548 Width = 1036
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -112,7 +112,7 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 98 Top = 98
Width = 1548 Width = 1036
Height = 652 Height = 652
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
@ -363,7 +363,7 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1548 Width = 1036
Height = 66 Height = 66
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

2
云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.pas
View File

@ -244,6 +244,7 @@ begin
sql.Add(')AA'); sql.Add(')AA');
Open; Open;
end; end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
finally finally
@ -320,7 +321,6 @@ end;
procedure TfrmPBCGRKList_RCDJ.TBRafreshClick(Sender: TObject); procedure TfrmPBCGRKList_RCDJ.TBRafreshClick(Sender: TObject);
begin begin
InitGrid(); InitGrid();
TBFind.Click;
end; end;
procedure TfrmPBCGRKList_RCDJ.TBAddClick(Sender: TObject); procedure TfrmPBCGRKList_RCDJ.TBAddClick(Sender: TObject);

4
云翔生产管理(MYSC.dll)/U_QCRKList.dfm
View File

@ -250,7 +250,7 @@ object frmQCRKList: TfrmQCRKList
Left = 62 Left = 62
Top = 39 Top = 39
Width = 125 Width = 125
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -297,7 +297,7 @@ object frmQCRKList: TfrmQCRKList
Left = 62 Left = 62
Top = 10 Top = 10
Width = 125 Width = 125
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15

321
云翔生产管理(MYSC.dll)/U_QCRKList.pas
View File

@ -6,26 +6,25 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxLookAndFeels, cxDropDownEdit, cxPC, Buttons, cxLookAndFeels, cxLookAndFeelPainters,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsCore, dxSkinDarkRoom, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinDarkRoom, dxSkinSpringTime, dxSkinsDefaultPainters, dxSkinscxPCPainter, cxNavigator,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2013White, dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinSharpPlus, dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
dxSkinSpringTime, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
dxSkinscxPCPainter, dxSkinWhiteprint, dxSkinXmas2008Blue;
cxNavigator;
type type
TfrmQCRKList = class(TForm) TfrmQCRKList = class(TForm)
@ -96,9 +95,7 @@ type
procedure ZJStatusChange(Sender: TObject); procedure ZJStatusChange(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure TBEditClick(Sender: TObject); procedure TBEditClick(Sender: TObject);
procedure TV2CellDblClick(Sender: TcxCustomGridTableView; procedure TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject);
@ -109,14 +106,14 @@ type
procedure SpeedButton4Click(Sender: TObject); procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject); procedure SpeedButton5Click(Sender: TObject);
private private
canshu1:string; canshu1: string;
DQdate:TDateTime; DQdate: TDateTime;
procedure InitGrid(); procedure InitGrid();
procedure InitForm(); procedure InitForm();
function DelData():Boolean; function DelData(): Boolean;
{ Private declarations } { Private declarations }
public public
FFInt,FCloth:Integer; FFInt, FCloth: Integer;
{ Public declarations } { Public declarations }
end; end;
@ -125,31 +122,32 @@ var
frmQCRKList: TfrmQCRKList; frmQCRKList: TfrmQCRKList;
implementation implementation
uses uses
U_DataLink,U_RTFun, U_QCRKInPut,U_ZDYHelp,U_LLRKInPut_SD,U_QCRKInPut_SD,U_QCRKList_CX, U_DataLink, U_RTFun, U_QCRKInPut, U_ZDYHelp, U_LLRKInPut_SD, U_QCRKInPut_SD,
U_ZDYCPName,U_QCRKInPut_CPNo,U_QCRKInPut_TJML,U_QCRKInPut_YHML; U_QCRKList_CX, U_ZDYCPName, U_QCRKInPut_CPNo, U_QCRKInPut_TJML,
U_QCRKInPut_YHML;
{$R *.dfm} {$R *.dfm}
procedure TfrmQCRKList.FormDestroy(Sender: TObject); procedure TfrmQCRKList.FormDestroy(Sender: TObject);
begin begin
frmQCRKList:=nil; frmQCRKList := nil;
end; end;
procedure TfrmQCRKList.FormClose(Sender: TObject; procedure TfrmQCRKList.FormClose(Sender: TObject; var Action: TCloseAction);
var Action: TCloseAction);
begin begin
Action:=caFree; Action := caFree;
end; end;
procedure TfrmQCRKList.FormCreate(Sender: TObject); procedure TfrmQCRKList.FormCreate(Sender: TObject);
begin begin
canshu1:=Trim(DParameters1); canshu1 := Trim(DParameters1);
end; end;
procedure TfrmQCRKList.TBCloseClick(Sender: TObject); procedure TfrmQCRKList.TBCloseClick(Sender: TObject);
begin begin
WriteCxGrid('期初入库RS211',Tv1,'贸易生产管理'); WriteCxGrid('期初入库RS211', Tv1, '贸易生产管理');
Close; Close;
end; end;
@ -159,81 +157,83 @@ begin
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
begin begin
Filtered:=False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select convert(varchar(10),A.CRTime,120) CRTime,A.MYCode,A.MYName,Sum(A.GangQty) GangQty '); sql.Add(' select convert(varchar(10),A.CRTime,120) CRTime,A.MYCode,A.MYName,Sum(A.GangQty) GangQty ');
sql.Add(',Sum(A.PS) PS,Sum(A.KgQty) KgQty,Sum(A.Qty) Qty'); sql.Add(',Sum(A.PS) PS,Sum(A.KgQty) KgQty,Sum(A.Qty) Qty');
sql.Add(' from CK_MYSC_CR A '); sql.Add(' from CK_MYSC_CR A ');
sql.Add(' where 1=1 '); sql.Add(' where 1=1 ');
if CheckBox1.Checked=False then if CheckBox1.Checked = False then
begin begin
sql.Add(' and A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',now))+''''); sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', now)) + '''');
sql.Add(' and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',now+1))+''''); sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', now + 1)) + '''');
BegDate.Visible:=false; BegDate.Visible := false;
EndDate.Visible:=false; EndDate.Visible := false;
end end
else else
begin begin
sql.Add(' and A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
sql.Add(' and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
BegDate.Visible:=true; BegDate.Visible := true;
EndDate.Visible:=true; EndDate.Visible := true;
end; end;
sql.Add(' and isnull(CRType,'''')=''ÆÚ³õÈë¿â'' '); sql.Add(' and isnull(CRType,'''')=''ÆÚ³õÈë¿â'' ');
sql.Add('group by convert(varchar(10),A.CRTime,120),A.MYCode,A.MYName'); sql.Add('group by convert(varchar(10),A.CRTime,120),A.MYCode,A.MYName');
Open; Open;
end; end;
SCreateCDS20(ADOQueryMain,Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
finally finally
ADOQueryMain.EnableControls; ADOQueryMain.EnableControls;
end; end;
end; end;
procedure TfrmQCRKList.InitForm(); procedure TfrmQCRKList.InitForm();
begin begin
BegDate.Date:=SGetServerDateMBeg(ADOQueryTemp); BegDate.Date := SGetServerDateMBeg(ADOQueryTemp);
EndDate.Date:=SGetServerDate(ADOQueryTemp); EndDate.Date := SGetServerDate(ADOQueryTemp);
ReadCxGrid('期初入库RS211',Tv1,'贸易生产管理'); ReadCxGrid('期初入库RS211', Tv1, '贸易生产管理');
InitGrid(); InitGrid();
end; end;
procedure TfrmQCRKList.TBFindClick(Sender: TObject); procedure TfrmQCRKList.TBFindClick(Sender: TObject);
begin begin
if ADOQueryMain.Active=False then Exit; if ADOQueryMain.Active = False then
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); Exit;
SCreateCDS20(ADOQueryMain,Order_Main); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SInitCDSData20(ADOQueryMain,Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end; end;
procedure TfrmQCRKList.TBDelClick(Sender: TObject); procedure TfrmQCRKList.TBDelClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
Exit;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from CK_MYSC_CR_MX where MYID='''+Trim(Order_Main.fieldbyname('MYID').AsString)+''''); sql.Add('select * from CK_MYSC_CR_MX where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + '''');
Open; Open;
end; end;
if ADOQueryTemp.IsEmpty=False then if ADOQueryTemp.IsEmpty = False then
begin begin
Application.MessageBox('已产生明细数据，不能删除!','提示',0); Application.MessageBox('已产生明细数据，不能删除!', '提示', 0);
Exit; Exit;
end; end;
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if DelData() then if DelData() then
begin begin
//Order_Main.Delete; //Order_Main.Delete;
end; end;
end; end;
function TfrmQCRKList.DelData():Boolean; function TfrmQCRKList.DelData(): Boolean;
begin begin
try try
Result:=false; Result := false;
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
Order_MX.DisableControls; Order_MX.DisableControls;
with Order_MX do with Order_MX do
@ -246,10 +246,10 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' insert into CK_MYSC_CR_Log '); sql.Add(' insert into CK_MYSC_CR_Log ');
sql.Add(' select * from CK_MYSC_CR where MYID='''+Trim(Order_MX.fieldbyname('MYID').AsString)+''''); sql.Add(' select * from CK_MYSC_CR where MYID=''' + Trim(Order_MX.fieldbyname('MYID').AsString) + '''');
sql.Add(' UPdate CK_MYSC_CR_Log Set DelTime=getdate(),DelerCode='''+Trim(DCode)+''',Deler='''+Trim(DName)+''''); sql.Add(' UPdate CK_MYSC_CR_Log Set DelTime=getdate(),DelerCode=''' + Trim(DCode) + ''',Deler=''' + Trim(DName) + '''');
sql.Add(' where MYID='''+Trim(Order_MX.fieldbyname('MYID').AsString)+''''); sql.Add(' where MYID=''' + Trim(Order_MX.fieldbyname('MYID').AsString) + '''');
sql.Add('Delete CK_MYSC_CR where MYId='''+Trim(Order_MX.fieldbyname('MYId').AsString)+''''); sql.Add('Delete CK_MYSC_CR where MYId=''' + Trim(Order_MX.fieldbyname('MYId').AsString) + '''');
ExecSQL; ExecSQL;
end; end;
Order_MX.Delete; Order_MX.Delete;
@ -257,20 +257,20 @@ begin
end; end;
Order_MX.EnableControls; Order_MX.EnableControls;
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
Result:=True; Result := True;
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Result:=False; Result := False;
Application.MessageBox('数据删除异常！','提示',0); Application.MessageBox('数据删除异常！', '提示', 0);
end; end;
end; end;
procedure TfrmQCRKList.TBExportClick(Sender: TObject); procedure TfrmQCRKList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then Exit; if ADOQueryMain.IsEmpty then
TcxGridToExcel(Self.Caption,cxGrid1); Exit;
TcxGridToExcel(Self.Caption, cxGrid1);
end; end;
procedure TfrmQCRKList.TBRafreshClick(Sender: TObject); procedure TfrmQCRKList.TBRafreshClick(Sender: TObject);
@ -295,34 +295,35 @@ end;
procedure TfrmQCRKList.ToolButton1Click(Sender: TObject); procedure TfrmQCRKList.ToolButton1Click(Sender: TObject);
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
Exit;
try try
frmQCRKList_CX:=TfrmQCRKList_CX.Create(Application); frmQCRKList_CX := TfrmQCRKList_CX.Create(Application);
with frmQCRKList_CX do with frmQCRKList_CX do
begin begin
frmQCRKList_CX.MYName.Text:=Trim(Self.Order_Main.fieldbyname('MYName').AsString); frmQCRKList_CX.MYName.Text := Trim(Self.Order_Main.fieldbyname('MYName').AsString);
frmQCRKList_CX.MYCode.Text:=Trim(Self.Order_Main.fieldbyname('MYCode').AsString); frmQCRKList_CX.MYCode.Text := Trim(Self.Order_Main.fieldbyname('MYCode').AsString);
frmQCRKList_CX.BegDate.Date:=Self.Order_Main.fieldbyname('CRTime').AsDateTime; frmQCRKList_CX.BegDate.Date := Self.Order_Main.fieldbyname('CRTime').AsDateTime;
frmQCRKList_CX.EndDate.Date:=Self.Order_Main.fieldbyname('CRTime').AsDateTime; frmQCRKList_CX.EndDate.Date := Self.Order_Main.fieldbyname('CRTime').AsDateTime;
if self.Order_Main.fieldbyname('KgQty').AsFloat=0 then if self.Order_Main.fieldbyname('KgQty').AsFloat = 0 then
begin begin
v1KgQty.Visible:=false; v1KgQty.Visible := false;
end end
else else
begin begin
v1KgQty.Visible:=true; v1KgQty.Visible := true;
end; end;
if self.Order_Main.fieldbyname('Qty').AsFloat=0 then if self.Order_Main.fieldbyname('Qty').AsFloat = 0 then
begin begin
v1Qty.Visible:=false; v1Qty.Visible := false;
end end
else else
begin begin
v1Qty.Visible:=true; v1Qty.Visible := true;
end; end;
if ShowModal=1 then if ShowModal = 1 then
begin begin
end; end;
end; end;
finally finally
@ -332,28 +333,31 @@ end;
procedure TfrmQCRKList.CustomerNoNameChange(Sender: TObject); procedure TfrmQCRKList.CustomerNoNameChange(Sender: TObject);
begin begin
if ADOQueryMain.Active=False then Exit; if ADOQueryMain.Active = False then
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); Exit;
SCreateCDS20(ADOQueryMain,Order_Main); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SInitCDSData20(ADOQueryMain,Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end; end;
procedure TfrmQCRKList.N2Click(Sender: TObject); procedure TfrmQCRKList.N2Click(Sender: TObject);
begin begin
if Order_MX.IsEmpty then Exit; if Order_MX.IsEmpty then
Exit;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from CK_MYSC_CR_MX where MYID='''+Trim(Order_MX.fieldbyname('MYID').AsString)+''''); sql.Add('select * from CK_MYSC_CR_MX where MYID=''' + Trim(Order_MX.fieldbyname('MYID').AsString) + '''');
Open; Open;
end; end;
if ADOQueryTemp.IsEmpty=False then if ADOQueryTemp.IsEmpty = False then
begin begin
Application.MessageBox('已产生明细数据，不能删除!','提示',0); Application.MessageBox('已产生明细数据，不能删除!', '提示', 0);
Exit; Exit;
end; end;
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if DelData() then if DelData() then
begin begin
//Order_Main.Delete; //Order_Main.Delete;
@ -362,14 +366,15 @@ end;
procedure TfrmQCRKList.N1Click(Sender: TObject); procedure TfrmQCRKList.N1Click(Sender: TObject);
begin begin
if Order_MX.IsEmpty then Exit; if Order_MX.IsEmpty then
Exit;
try try
frmQCRKInPut:=TfrmQCRKInPut.Create(Application); frmQCRKInPut := TfrmQCRKInPut.Create(Application);
with frmQCRKInPut do with frmQCRKInPut do
begin begin
PState:=1; PState := 1;
FMainId:=Trim(Self.Order_MX.fieldbyname('MYId').AsString); FMainId := Trim(Self.Order_MX.fieldbyname('MYId').AsString);
if ShowModal=1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();
end; end;
@ -391,42 +396,46 @@ end;
procedure TfrmQCRKList.ToolButton4Click(Sender: TObject); procedure TfrmQCRKList.ToolButton4Click(Sender: TObject);
var var
fPrintFile:string; fPrintFile: string;
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
if Trim(Order_Main.fieldbyname('Chker').AsString)='' then exit; Exit;
fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\检测报告.rmf'; if Trim(Order_Main.fieldbyname('Chker').AsString) = '' then
RMXLSExport2:= TRMXLSExport.Create(RMXLSExport2); exit;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\检测报告.rmf';
RMXLSExport2 := TRMXLSExport.Create(RMXLSExport2);
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from Test_Report where TRId='''+Trim(Order_Main.fieldbyname('TRId').AsString)+''''); sql.Add('select * from Test_Report where TRId=''' + Trim(Order_Main.fieldbyname('TRId').AsString) + '''');
Open; Open;
end; end;
SCreateCDS20(ADOQueryTemp,CDS_PRT); SCreateCDS20(ADOQueryTemp, CDS_PRT);
SInitCDSData20(ADOQueryTemp,CDS_PRT); SInitCDSData20(ADOQueryTemp, CDS_PRT);
if FileExists(fPrintFile) then if FileExists(fPrintFile) then
begin begin
//RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; //RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value;
RM1.LoadFromFile(fPrintFile); RM1.LoadFromFile(fPrintFile);
RM1.ShowReport; RM1.ShowReport;
end else end
else
begin begin
Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\检测报告.rmf'),'提示',0); Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\检测报告.rmf'), '提示', 0);
end; end;
end; end;
procedure TfrmQCRKList.TBEditClick(Sender: TObject); procedure TfrmQCRKList.TBEditClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
Exit;
try try
frmQCRKInPut:=TfrmQCRKInPut.Create(Application); frmQCRKInPut := TfrmQCRKInPut.Create(Application);
with frmQCRKInPut do with frmQCRKInPut do
begin begin
PState:=1; PState := 1;
FMainId:=Trim(Self.Order_Main.fieldbyname('MYId').AsString); FMainId := Trim(Self.Order_Main.fieldbyname('MYId').AsString);
if ShowModal=1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();
end; end;
@ -436,31 +445,28 @@ begin
end; end;
end; end;
procedure TfrmQCRKList.TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure TfrmQCRKList.TV2CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin begin
ToolButton1.Click; ToolButton1.Click;
end; end;
procedure TfrmQCRKList.TBAddClick(Sender: TObject); procedure TfrmQCRKList.TBAddClick(Sender: TObject);
begin begin
Panel2.Visible:=true; Panel2.Visible := true;
end; end;
procedure TfrmQCRKList.SpeedButton1Click(Sender: TObject); procedure TfrmQCRKList.SpeedButton1Click(Sender: TObject);
var var
maxno:string; maxno: string;
begin begin
try try
frmQCRKInPut:=TfrmQCRKInPut.Create(Application); frmQCRKInPut := TfrmQCRKInPut.Create(Application);
with frmQCRKInPut do with frmQCRKInPut do
begin begin
PState:=0; PState := 0;
FMainId:=''; FMainId := '';
FRead:=''; FRead := '';
if ShowModal=1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();
end; end;
@ -472,16 +478,16 @@ end;
procedure TfrmQCRKList.SpeedButton2Click(Sender: TObject); procedure TfrmQCRKList.SpeedButton2Click(Sender: TObject);
var var
maxno:string; maxno: string;
begin begin
try try
frmQCRKInPut_CPNo:=TfrmQCRKInPut_CPNo.Create(Application); frmQCRKInPut_CPNo := TfrmQCRKInPut_CPNo.Create(Application);
with frmQCRKInPut_CPNo do with frmQCRKInPut_CPNo do
begin begin
PState:=0; PState := 0;
FMainId:=''; FMainId := '';
FRead:=''; FRead := '';
if ShowModal=1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();
end; end;
@ -498,20 +504,20 @@ end;
procedure TfrmQCRKList.Image2Click(Sender: TObject); procedure TfrmQCRKList.Image2Click(Sender: TObject);
begin begin
Panel2.Visible:=false; Panel2.Visible := false;
end; end;
procedure TfrmQCRKList.Button1Click(Sender: TObject); procedure TfrmQCRKList.Button1Click(Sender: TObject);
begin begin
frmZDYCPName:=TfrmZDYCPName.create(self); frmZDYCPName := TfrmZDYCPName.create(self);
with frmZDYCPName do with frmZDYCPName do
begin begin
flag:='MYName'; flag := 'MYName';
flagName:='品名'; flagName := '品名';
V1Code.Visible:=true; V1Code.Visible := true;
if showmodal=1 then if showmodal = 1 then
begin begin
MYName.text:=Trim(ClientDataSet1.fieldbyname('BPName').AsString); MYName.text := Trim(ClientDataSet1.fieldbyname('BPName').AsString);
TBFind.Click; TBFind.Click;
end; end;
free; free;
@ -520,16 +526,16 @@ end;
procedure TfrmQCRKList.SpeedButton3Click(Sender: TObject); procedure TfrmQCRKList.SpeedButton3Click(Sender: TObject);
var var
maxno:string; maxno: string;
begin begin
try try
frmQCRKInPut_CPNo:=TfrmQCRKInPut_CPNo.Create(Application); frmQCRKInPut_CPNo := TfrmQCRKInPut_CPNo.Create(Application);
with frmQCRKInPut_CPNo do with frmQCRKInPut_CPNo do
begin begin
PState:=0; PState := 0;
FMainId:=''; FMainId := '';
FRead:=''; FRead := '';
if ShowModal=1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();
end; end;
@ -541,16 +547,16 @@ end;
procedure TfrmQCRKList.SpeedButton4Click(Sender: TObject); procedure TfrmQCRKList.SpeedButton4Click(Sender: TObject);
var var
maxno:string; maxno: string;
begin begin
try try
frmQCRKInPut_TJML:=TfrmQCRKInPut_TJML.Create(Application); frmQCRKInPut_TJML := TfrmQCRKInPut_TJML.Create(Application);
with frmQCRKInPut_TJML do with frmQCRKInPut_TJML do
begin begin
PState:=0; PState := 0;
FMainId:=''; FMainId := '';
FRead:=''; FRead := '';
if ShowModal=1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();
end; end;
@ -562,16 +568,16 @@ end;
procedure TfrmQCRKList.SpeedButton5Click(Sender: TObject); procedure TfrmQCRKList.SpeedButton5Click(Sender: TObject);
var var
maxno:string; maxno: string;
begin begin
try try
frmQCRKInPut_YHML:=TfrmQCRKInPut_YHML.Create(Application); frmQCRKInPut_YHML := TfrmQCRKInPut_YHML.Create(Application);
with frmQCRKInPut_YHML do with frmQCRKInPut_YHML do
begin begin
PState:=0; PState := 0;
FMainId:=''; FMainId := '';
FRead:=''; FRead := '';
if ShowModal=1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();
end; end;
@ -583,4 +589,3 @@ end;
end. end.

9
云翔生产管理(MYSC.dll)/U_ZHCPInPut.pas
View File

@ -458,7 +458,6 @@ begin
programIni.Free; programIni.Free;
end; end;
procedure TfrmZHCPInPut.SaveImage(maxnoWB: string; FIMNO: string); procedure TfrmZHCPInPut.SaveImage(maxnoWB: string; FIMNO: string);
var var
ImagePath, ImagName, MaxNo, MaxNoFile: string; ImagePath, ImagName, MaxNo, MaxNoFile: string;
@ -469,8 +468,6 @@ begin
try try
if Trim(FIMNO) = '图片' then if Trim(FIMNO) = '图片' then
begin begin
ImagePath := Image2.Hint;
ImagName := ExtractFileName(Image2.Hint);
if lstPat2.Count > 0 then if lstPat2.Count > 0 then
begin begin
LocalFileName := lstPat2[0]; // 使用列表中的路径，确保是最新的 LocalFileName := lstPat2[0]; // 使用列表中的路径，确保是最新的
@ -480,9 +477,10 @@ begin
Application.MessageBox('找不到图片文件，请重新选择!', '错误', 0); Application.MessageBox('找不到图片文件，请重新选择!', '错误', 0);
Exit; Exit;
end; end;
end;
end; end;
ImagePath := ExtractFilePath(LocalFileName); // 文件路径 ImagePath := ExtractFilePath(LocalFileName); // 文件路径
ImagName := ExtractFileName(LocalFileName); // 纯文件名（含扩展名） ImagName := ExtractFileName(LocalFileName); // 纯文件名（含扩展名）
AJpeg := TJpegImage.Create(); AJpeg := TJpegImage.Create();
with ADOCmd do with ADOCmd do
begin begin
@ -613,6 +611,7 @@ begin
end; end;
if IdFTP1.Connected then if IdFTP1.Connected then
IdFTP1.Quit; IdFTP1.Quit;
except except
ADOCmd.Connection.RollbackTrans; ADOCmd.Connection.RollbackTrans;
Application.MessageBox('图片保存失败！', '提示', 0); Application.MessageBox('图片保存失败！', '提示', 0);

36
云翔生产管理(MYSC.dll)/U_ZHCPList.dfm
View File

@ -538,9 +538,9 @@ object frmZHCPList: TfrmZHCPList
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
object Label2: TLabel object Label2: TLabel
Left = 4 Left = 36
Top = 12 Top = 12
Width = 64 Width = 32
Height = 15 Height = 15
Alignment = taRightJustify Alignment = taRightJustify
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
@ -554,9 +554,9 @@ object frmZHCPList: TfrmZHCPList
ParentFont = False ParentFont = False
end end
object Label6: TLabel object Label6: TLabel
Left = 176 Left = 208
Top = 12 Top = 12
Width = 64 Width = 32
Height = 15 Height = 15
Alignment = taRightJustify Alignment = taRightJustify
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
@ -570,9 +570,9 @@ object frmZHCPList: TfrmZHCPList
ParentFont = False ParentFont = False
end end
object Label7: TLabel object Label7: TLabel
Left = 536 Left = 584
Top = 12 Top = 12
Width = 80 Width = 32
Height = 15 Height = 15
Alignment = taRightJustify Alignment = taRightJustify
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
@ -586,9 +586,9 @@ object frmZHCPList: TfrmZHCPList
ParentFont = False ParentFont = False
end end
object Label8: TLabel object Label8: TLabel
Left = 896 Left = 912
Top = 12 Top = 12
Width = 64 Width = 48
Height = 15 Height = 15
Alignment = taRightJustify Alignment = taRightJustify
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
@ -602,9 +602,9 @@ object frmZHCPList: TfrmZHCPList
ParentFont = False ParentFont = False
end end
object Label1: TLabel object Label1: TLabel
Left = 724 Left = 740
Top = 12 Top = 12
Width = 64 Width = 48
Height = 15 Height = 15
Alignment = taRightJustify Alignment = taRightJustify
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
@ -618,9 +618,9 @@ object frmZHCPList: TfrmZHCPList
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 1068 Left = 1100
Top = 44 Top = 44
Width = 64 Width = 32
Height = 15 Height = 15
Alignment = taRightJustify Alignment = taRightJustify
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
@ -634,9 +634,9 @@ object frmZHCPList: TfrmZHCPList
ParentFont = False ParentFont = False
end end
object Label13: TLabel object Label13: TLabel
Left = 1068 Left = 1100
Top = 12 Top = 12
Width = 64 Width = 32
Height = 15 Height = 15
Alignment = taRightJustify Alignment = taRightJustify
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
@ -650,9 +650,9 @@ object frmZHCPList: TfrmZHCPList
ParentFont = False ParentFont = False
end end
object Label14: TLabel object Label14: TLabel
Left = 348 Left = 396
Top = 12 Top = 12
Width = 80 Width = 32
Height = 15 Height = 15
Alignment = taRightJustify Alignment = taRightJustify
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
@ -666,9 +666,9 @@ object frmZHCPList: TfrmZHCPList
ParentFont = False ParentFont = False
end end
object Label16: TLabel object Label16: TLabel
Left = 1240 Left = 1272
Top = 44 Top = 44
Width = 64 Width = 32
Height = 15 Height = 15
Alignment = taRightJustify Alignment = taRightJustify
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight

3
云翔生产管理(MYSC.dll)/U_ZHCPList.pas
View File

@ -526,6 +526,9 @@ begin
TBEdit.Visible := True; TBEdit.Visible := True;
v1ZICost.Visible := False; v1ZICost.Visible := False;
v1ZICost.Hidden := True; v1ZICost.Hidden := True;
labelType.Items.Clear; // 清空现有选项
labelType.Items.Add('客户标签');
labelType.ItemIndex := 0;
end end
else if Trim(Self.Caption) = '公司产品查询*' then else if Trim(Self.Caption) = '公司产品查询*' then
begin begin

10
云翔生产管理(MYSC.dll)/U_ZHDJInPut.dfm
View File

@ -571,15 +571,23 @@ object frmZHDJInPut: TfrmZHDJInPut
Options.Editing = False Options.Editing = False
Width = 141 Width = 141
end end
object v1Column4: TcxGridDBColumn object Tv1ZIMF: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'ZIMF' DataBinding.FieldName = 'ZIMF'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnChange = Tv1ZIMFPropertiesChange
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Sorting = False Options.Sorting = False
Width = 50 Width = 50
end end
object cxgrdbclmnTv1Column6: TcxGridDBColumn
Caption = #33521#23544#38376#24133
DataBinding.FieldName = 'ZIInchMF'
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #20811#37325 Caption = #20811#37325

15
云翔生产管理(MYSC.dll)/U_ZHDJInPut.pas
View File

@ -64,7 +64,7 @@ type
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v1Column7: TcxGridDBColumn; v1Column7: TcxGridDBColumn;
v1Column4: TcxGridDBColumn; Tv1ZIMF: TcxGridDBColumn;
v1Column6: TcxGridDBColumn; v1Column6: TcxGridDBColumn;
v1Column1: TcxGridDBColumn; v1Column1: TcxGridDBColumn;
v1ZICost: TcxGridDBColumn; v1ZICost: TcxGridDBColumn;
@ -114,6 +114,7 @@ type
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn;
cxgrdbclmnTv1Column6: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -142,6 +143,7 @@ type
procedure v1Column3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure v1Column3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure Tv1DblClick(Sender: TObject); procedure Tv1DblClick(Sender: TObject);
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
procedure Tv1ZIMFPropertiesChange(Sender: TObject);
private private
lstPat, lstPat2: TStringList; lstPat, lstPat2: TStringList;
FangXiang1, FangXiang2: string; FangXiang1, FangXiang2: string;
@ -2272,5 +2274,16 @@ begin
end; end;
end; end;
procedure TfrmZHDJInPut.Tv1ZIMFPropertiesChange(Sender: TObject);
var
Centimeters, Inches: Double;
Inch, ARecordIndex: Integer;
begin
Centimeters := StrToFloat(VarToStr(Tv1ZIMF.EditValue));
Inches := Centimeters * 0.393701;
Inch := strtoint(FormatFloat('0.00', Inches));
Order_Sub.FieldByName('ZIInchMF').Value := IntToStr(Inch - 1) + '"-' + IntToStr(Inch) + '"';
end;
end. end.