优化
This commit is contained in:
parent
5e37c18e31
commit
7738aa2a58
|
@ -1,6 +1,6 @@
|
||||||
object frmFPWSCX: TfrmFPWSCX
|
object frmFPWSCX: TfrmFPWSCX
|
||||||
Left = 124
|
Left = 392
|
||||||
Top = 39
|
Top = 50
|
||||||
Width = 1382
|
Width = 1382
|
||||||
Height = 754
|
Height = 754
|
||||||
Caption = #21457#31080#24453#25910#26597#35810
|
Caption = #21457#31080#24453#25910#26597#35810
|
||||||
|
@ -21,7 +21,7 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1366
|
Width = 1374
|
||||||
Height = 31
|
Height = 31
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 95
|
ButtonWidth = 95
|
||||||
|
@ -78,7 +78,7 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
object Panel1: TPanel
|
object Panel1: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 31
|
Top = 31
|
||||||
Width = 1366
|
Width = 1374
|
||||||
Height = 70
|
Height = 70
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
|
@ -86,49 +86,42 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
Color = clSkyBlue
|
Color = clSkyBlue
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object Label3: TLabel
|
object Label3: TLabel
|
||||||
Left = 351
|
Left = 364
|
||||||
Top = 13
|
Top = 13
|
||||||
Width = 60
|
Width = 60
|
||||||
Height = 12
|
Height = 12
|
||||||
Caption = #22806#38144#21457#31080#21495
|
Caption = #22806#38144#21457#31080#21495
|
||||||
end
|
end
|
||||||
object Label1: TLabel
|
object Label1: TLabel
|
||||||
Left = 522
|
Left = 535
|
||||||
Top = 13
|
Top = 13
|
||||||
Width = 54
|
Width = 54
|
||||||
Height = 12
|
Height = 12
|
||||||
Caption = #23458' '#25143
|
Caption = #23458' '#25143
|
||||||
end
|
end
|
||||||
object Label2: TLabel
|
object Label2: TLabel
|
||||||
Left = 355
|
Left = 368
|
||||||
Top = 43
|
Top = 43
|
||||||
Width = 54
|
Width = 54
|
||||||
Height = 12
|
Height = 12
|
||||||
Caption = #24065' '#31181
|
Caption = #24065' '#31181
|
||||||
end
|
end
|
||||||
object Label4: TLabel
|
|
||||||
Left = 11
|
|
||||||
Top = 13
|
|
||||||
Width = 24
|
|
||||||
Height = 12
|
|
||||||
Caption = #33337#26399
|
|
||||||
end
|
|
||||||
object Label6: TLabel
|
object Label6: TLabel
|
||||||
Left = 26
|
Left = 39
|
||||||
Top = 37
|
Top = 37
|
||||||
Width = 12
|
Width = 12
|
||||||
Height = 12
|
Height = 12
|
||||||
Caption = #33267
|
Caption = #33267
|
||||||
end
|
end
|
||||||
object Label5: TLabel
|
object Label5: TLabel
|
||||||
Left = 522
|
Left = 535
|
||||||
Top = 45
|
Top = 45
|
||||||
Width = 54
|
Width = 54
|
||||||
Height = 12
|
Height = 12
|
||||||
Caption = #19994' '#21153' '#21592
|
Caption = #19994' '#21153' '#21592
|
||||||
end
|
end
|
||||||
object Label7: TLabel
|
object Label7: TLabel
|
||||||
Left = 712
|
Left = 725
|
||||||
Top = 13
|
Top = 13
|
||||||
Width = 48
|
Width = 48
|
||||||
Height = 12
|
Height = 12
|
||||||
|
@ -148,14 +141,14 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
end
|
end
|
||||||
object Label9: TLabel
|
object Label9: TLabel
|
||||||
Left = 716
|
Left = 729
|
||||||
Top = 46
|
Top = 46
|
||||||
Width = 42
|
Width = 42
|
||||||
Height = 12
|
Height = 12
|
||||||
Caption = #29366' '#24577
|
Caption = #29366' '#24577
|
||||||
end
|
end
|
||||||
object Label11: TLabel
|
object Label11: TLabel
|
||||||
Left = 232
|
Left = 245
|
||||||
Top = 43
|
Top = 43
|
||||||
Width = 12
|
Width = 12
|
||||||
Height = 12
|
Height = 12
|
||||||
|
@ -176,7 +169,7 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
end
|
end
|
||||||
object SUBWXFPNO: TEdit
|
object SUBWXFPNO: TEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 416
|
Left = 429
|
||||||
Top = 9
|
Top = 9
|
||||||
Width = 100
|
Width = 100
|
||||||
Height = 20
|
Height = 20
|
||||||
|
@ -184,7 +177,7 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
OnChange = FeeTypeChange
|
OnChange = FeeTypeChange
|
||||||
end
|
end
|
||||||
object begdate: TDateTimePicker
|
object begdate: TDateTimePicker
|
||||||
Left = 38
|
Left = 51
|
||||||
Top = 9
|
Top = 9
|
||||||
Width = 97
|
Width = 97
|
||||||
Height = 20
|
Height = 20
|
||||||
|
@ -193,7 +186,7 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
end
|
end
|
||||||
object Enddate: TDateTimePicker
|
object Enddate: TDateTimePicker
|
||||||
Left = 38
|
Left = 51
|
||||||
Top = 33
|
Top = 33
|
||||||
Width = 97
|
Width = 97
|
||||||
Height = 20
|
Height = 20
|
||||||
|
@ -203,7 +196,7 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
end
|
end
|
||||||
object orderno: TEdit
|
object orderno: TEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 765
|
Left = 778
|
||||||
Top = 9
|
Top = 9
|
||||||
Width = 95
|
Width = 95
|
||||||
Height = 20
|
Height = 20
|
||||||
|
@ -212,7 +205,7 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
end
|
end
|
||||||
object SQZT: TComboBox
|
object SQZT: TComboBox
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 765
|
Left = 778
|
||||||
Top = 42
|
Top = 42
|
||||||
Width = 77
|
Width = 77
|
||||||
Height = 24
|
Height = 24
|
||||||
|
@ -233,7 +226,7 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
'')
|
'')
|
||||||
end
|
end
|
||||||
object BEGDATE2: TDateTimePicker
|
object BEGDATE2: TDateTimePicker
|
||||||
Left = 249
|
Left = 262
|
||||||
Top = 9
|
Top = 9
|
||||||
Width = 97
|
Width = 97
|
||||||
Height = 20
|
Height = 20
|
||||||
|
@ -242,7 +235,7 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
TabOrder = 5
|
TabOrder = 5
|
||||||
end
|
end
|
||||||
object ENDDATE2: TDateTimePicker
|
object ENDDATE2: TDateTimePicker
|
||||||
Left = 251
|
Left = 264
|
||||||
Top = 39
|
Top = 39
|
||||||
Width = 97
|
Width = 97
|
||||||
Height = 20
|
Height = 20
|
||||||
|
@ -251,7 +244,7 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
TabOrder = 6
|
TabOrder = 6
|
||||||
end
|
end
|
||||||
object CheckBox1: TCheckBox
|
object CheckBox1: TCheckBox
|
||||||
Left = 147
|
Left = 160
|
||||||
Top = 12
|
Top = 12
|
||||||
Width = 97
|
Width = 97
|
||||||
Height = 17
|
Height = 17
|
||||||
|
@ -261,7 +254,7 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
end
|
end
|
||||||
object JSBZ: TComboBox
|
object JSBZ: TComboBox
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 416
|
Left = 429
|
||||||
Top = 39
|
Top = 39
|
||||||
Width = 100
|
Width = 100
|
||||||
Height = 24
|
Height = 24
|
||||||
|
@ -282,7 +275,7 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
end
|
end
|
||||||
object khname: TComboBox
|
object khname: TComboBox
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 581
|
Left = 594
|
||||||
Top = 9
|
Top = 9
|
||||||
Width = 120
|
Width = 120
|
||||||
Height = 24
|
Height = 24
|
||||||
|
@ -303,7 +296,7 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
end
|
end
|
||||||
object YWY: TComboBox
|
object YWY: TComboBox
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 582
|
Left = 595
|
||||||
Top = 39
|
Top = 39
|
||||||
Width = 120
|
Width = 120
|
||||||
Height = 24
|
Height = 24
|
||||||
|
@ -322,12 +315,21 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
''
|
''
|
||||||
'')
|
'')
|
||||||
end
|
end
|
||||||
|
object CheckBox2: TCheckBox
|
||||||
|
Left = 8
|
||||||
|
Top = 12
|
||||||
|
Width = 45
|
||||||
|
Height = 17
|
||||||
|
Caption = #33337#26399
|
||||||
|
TabOrder = 11
|
||||||
|
OnClick = CheckBox1Click
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxGrid1: TcxGrid
|
object cxGrid1: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 101
|
Top = 101
|
||||||
Width = 1366
|
Width = 1374
|
||||||
Height = 323
|
Height = 331
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
object Tv1: TcxGridDBTableView
|
object Tv1: TcxGridDBTableView
|
||||||
|
@ -510,6 +512,13 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 83
|
Width = 83
|
||||||
end
|
end
|
||||||
|
object Tv1MXOrderNoSummary: TcxGridDBColumn
|
||||||
|
Caption = #35746#21333#21495#27719#24635
|
||||||
|
DataBinding.FieldName = 'MXOrderNoSummary'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 300
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxGrid1Level1: TcxGridLevel
|
object cxGrid1Level1: TcxGridLevel
|
||||||
GridView = Tv1
|
GridView = Tv1
|
||||||
|
@ -517,8 +526,8 @@ object frmFPWSCX: TfrmFPWSCX
|
||||||
end
|
end
|
||||||
object cxGrid2: TcxGrid
|
object cxGrid2: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 424
|
Top = 432
|
||||||
Width = 1366
|
Width = 1374
|
||||||
Height = 291
|
Height = 291
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
|
|
|
@ -13,7 +13,20 @@ uses
|
||||||
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
||||||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||||
cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
||||||
dxBarBuiltInMenu, cxDropDownEdit;
|
dxBarBuiltInMenu, cxDropDownEdit, dxSkinsCore, dxSkinBlack, dxSkinBlue,
|
||||||
|
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
|
||||||
|
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||||
|
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||||
|
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||||
|
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||||
|
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||||
|
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||||
|
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||||
|
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||||
|
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
|
||||||
|
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
|
||||||
|
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
|
||||||
|
dxSkinscxPCPainter;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmFPWSCX = class(TForm)
|
TfrmFPWSCX = class(TForm)
|
||||||
|
@ -49,7 +62,6 @@ type
|
||||||
Tv1Column6: TcxGridDBColumn;
|
Tv1Column6: TcxGridDBColumn;
|
||||||
Label1: TLabel;
|
Label1: TLabel;
|
||||||
Label2: TLabel;
|
Label2: TLabel;
|
||||||
Label4: TLabel;
|
|
||||||
Label6: TLabel;
|
Label6: TLabel;
|
||||||
begdate: TDateTimePicker;
|
begdate: TDateTimePicker;
|
||||||
Enddate: TDateTimePicker;
|
Enddate: TDateTimePicker;
|
||||||
|
@ -87,6 +99,8 @@ type
|
||||||
Label10: TLabel;
|
Label10: TLabel;
|
||||||
ToolButton1: TToolButton;
|
ToolButton1: TToolButton;
|
||||||
Tv1Column12: TcxGridDBColumn;
|
Tv1Column12: TcxGridDBColumn;
|
||||||
|
Tv1MXOrderNoSummary: TcxGridDBColumn;
|
||||||
|
CheckBox2: TCheckBox;
|
||||||
procedure FormDestroy(Sender: TObject);
|
procedure FormDestroy(Sender: TObject);
|
||||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
procedure TBCloseClick(Sender: TObject);
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
@ -242,18 +256,23 @@ begin
|
||||||
Filtered := False;
|
Filtered := False;
|
||||||
SQL.Clear;
|
SQL.Clear;
|
||||||
SQL.Add('EXEC P_VIEW_FPDSCX_CS');
|
SQL.Add('EXEC P_VIEW_FPDSCX_CS');
|
||||||
sql.Add(' @begdate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime))));
|
|
||||||
sql.Add(',@Enddate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1))));
|
if CheckBox2.Checked = True then
|
||||||
if CheckBox1.Checked = True then
|
|
||||||
begin
|
begin
|
||||||
sql.Add(',@begdate2=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', begdate2.DateTime))));
|
sql.Add(' @begdate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime))));
|
||||||
sql.Add(',@Enddate2=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', Enddate2.DateTime + 1))));
|
sql.Add(',@Enddate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1))));
|
||||||
|
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
// sql.Add(',@begdate2=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', begdate2.DateTime))));
|
sql.Add(' @begdate='''' ');
|
||||||
// sql.Add(',@Enddate2=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', Enddate2.DateTime + 1))));
|
sql.Add(',@Enddate='''' ');
|
||||||
|
end;
|
||||||
|
|
||||||
|
if CheckBox1.Checked = True then
|
||||||
|
begin
|
||||||
|
sql.Add(',@begdate2=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', begdate2.DateTime))));
|
||||||
|
sql.Add(',@Enddate2=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', Enddate2.DateTime + 1))));
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
object frmYFCRMXList: TfrmYFCRMXList
|
object frmYFCRMXList: TfrmYFCRMXList
|
||||||
Left = 234
|
Left = 440
|
||||||
Top = 156
|
Top = 544
|
||||||
Width = 1479
|
Width = 1479
|
||||||
Height = 688
|
Height = 688
|
||||||
Caption = #24212#20184#27454#26126#32454#26597#35810
|
Caption = #24212#20184#27454#26126#32454#26597#35810
|
||||||
|
@ -248,21 +248,27 @@ object frmYFCRMXList: TfrmYFCRMXList
|
||||||
ItemHeight = 12
|
ItemHeight = 12
|
||||||
TabOrder = 9
|
TabOrder = 9
|
||||||
OnChange = FACTTYPEChange
|
OnChange = FACTTYPEChange
|
||||||
OnDropDown = FACTTYPEDropDown
|
|
||||||
Items.Strings = (
|
Items.Strings = (
|
||||||
''
|
''
|
||||||
'KG'
|
'KG'
|
||||||
'M'
|
'M'
|
||||||
'Y')
|
'Y')
|
||||||
end
|
end
|
||||||
object KXType: TEdit
|
object KXType: TComboBox
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 783
|
Left = 783
|
||||||
Top = 34
|
Top = 35
|
||||||
Width = 82
|
Width = 82
|
||||||
Height = 20
|
Height = 20
|
||||||
|
Style = csDropDownList
|
||||||
|
ItemHeight = 12
|
||||||
TabOrder = 10
|
TabOrder = 10
|
||||||
OnChange = MXOrderNoChange
|
OnChange = FACTTYPEChange
|
||||||
|
Items.Strings = (
|
||||||
|
''
|
||||||
|
'KG'
|
||||||
|
'M'
|
||||||
|
'Y')
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object cxGrid1: TcxGrid
|
object cxGrid1: TcxGrid
|
||||||
|
|
|
@ -13,20 +13,20 @@ uses
|
||||||
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
||||||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||||
cxTextEdit, cxPC, cxDropDownEdit, Menus, cxLookAndFeels, cxLookAndFeelPainters,
|
cxTextEdit, cxPC, cxDropDownEdit, Menus, cxLookAndFeels, cxLookAndFeelPainters,
|
||||||
dxBarBuiltInMenu, cxNavigator, DateUtils, dxSkinsCore, dxSkinBlack,
|
dxBarBuiltInMenu, cxNavigator, DateUtils, dxSkinsCore, dxSkinBlack, dxSkinBlue,
|
||||||
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
|
||||||
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
|
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, dxSkinOffice2013White, dxSkinPumpkin,
|
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||||
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
|
||||||
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
|
||||||
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
|
||||||
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
dxSkinscxPCPainter;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmYFCRMXList = class(TForm)
|
TfrmYFCRMXList = class(TForm)
|
||||||
|
@ -92,7 +92,7 @@ type
|
||||||
Label2: TLabel;
|
Label2: TLabel;
|
||||||
qtyunit: TComboBox;
|
qtyunit: TComboBox;
|
||||||
Label7: TLabel;
|
Label7: TLabel;
|
||||||
KXType: TEdit;
|
KXType: TComboBox;
|
||||||
procedure FormDestroy(Sender: TObject);
|
procedure FormDestroy(Sender: TObject);
|
||||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
procedure TBCloseClick(Sender: TObject);
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
@ -117,6 +117,7 @@ type
|
||||||
|
|
||||||
procedure InitGrid();
|
procedure InitGrid();
|
||||||
procedure SetStatus();
|
procedure SetStatus();
|
||||||
|
procedure InitKXType();
|
||||||
public
|
public
|
||||||
|
|
||||||
{ Public declarations }
|
{ Public declarations }
|
||||||
|
@ -154,8 +155,7 @@ begin
|
||||||
begin
|
begin
|
||||||
Close;
|
Close;
|
||||||
SQL.Clear;
|
SQL.Clear;
|
||||||
// if ComboBox1.Text = '쯤데휑퍅' then
|
|
||||||
// begin
|
|
||||||
SQL.Add('SELECT CRTime , FactoryName,CFFactoryName,status ');
|
SQL.Add('SELECT CRTime , FactoryName,CFFactoryName,status ');
|
||||||
sql.Add(',KXType,MXOrderNo,CPCode,CPName,CPSpec,qtyunit,FACTtYPE,MDTIME ');
|
sql.Add(',KXType,MXOrderNo,CPCode,CPName,CPSpec,qtyunit,FACTtYPE,MDTIME ');
|
||||||
sql.Add(',sum(PS) PS,sum(Qty) Qty,sum(MxMoney) MxMoney,price= case when sum(Qty)>0 then sum(MxMoney)/sum(Qty) else 0 end ');
|
sql.Add(',sum(PS) PS,sum(Qty) Qty,sum(MxMoney) MxMoney,price= case when sum(Qty)>0 then sum(MxMoney)/sum(Qty) else 0 end ');
|
||||||
|
@ -188,45 +188,11 @@ begin
|
||||||
sql.Add(' group by status,CRTime , FactoryName ');
|
sql.Add(' group by status,CRTime , FactoryName ');
|
||||||
sql.Add(',KXType,MXOrderNo,CFFactoryName,CPCode,CPName,CPSpec,qtyunit,FACTtYPE,MDTIME ');
|
sql.Add(',KXType,MXOrderNo,CFFactoryName,CPCode,CPName,CPSpec,qtyunit,FACTtYPE,MDTIME ');
|
||||||
|
|
||||||
// end
|
|
||||||
// else
|
|
||||||
// begin
|
|
||||||
// SQL.Add('SELECT * FROM (');
|
|
||||||
// sql.Add(' select A.CRTime , A.FactoryName,B.CFFactoryName ');
|
|
||||||
// sql.Add(',status=(case when A.status=''1'' then ''綠횅훰'' else ''灌횅훰'' end )');
|
|
||||||
// sql.Add(',B.KXType,B.MXOrderNo,B.CPCode,B.CPName,B.CPSpec,B.qtyunit ');
|
|
||||||
// sql.Add(',sum(B.PS) PS,sum(B.Qty) Qty,sum(B.MxMoney) MxMoney,price= case when sum(B.Qty)>0 then sum(B.MxMoney)/sum(B.Qty) else 0 end ');
|
|
||||||
// sql.Add(',FACTtYPE=(SELECT TOP 1 FACTTYPE FROM Company C WHERE A.FactoryName=C.CoName and valid=''Y'') ');
|
|
||||||
//// SQL.Add(',MDTIME=(CASE WHEN KXTYPE=''澗새'' then convert(varchar(10),(SELECT TOP 1 FILLTIME FROM XH_Cloth_DH z WHERE z.DHID=B.YFPZNO),120 ) ');
|
|
||||||
//// sql.Add(' else convert(varchar(10),(SELECT TOP 1 FILLTIME FROM CK_SXPB_CR T WHERE T.SPID=B.YFPZNO),120)END)');
|
|
||||||
// sql.Add(' from YF_Money_CR A');
|
|
||||||
// sql.Add(' inner join YF_Money_CR_SUB B on A.yfid=B.yfid ');
|
|
||||||
// SQL.Add('WHERE 1=1 ');
|
|
||||||
// sql.Add(' and A.CRType=''壇마운되션'' ');
|
|
||||||
//
|
|
||||||
// if cxTabControl1.TabIndex < 2 then
|
|
||||||
// sql.Add(' and A.status=''' + inttostr(cxTabControl1.TabIndex) + ''' ');
|
|
||||||
//
|
|
||||||
// sql.Add(' group by A.status,A.CRTime , A.FactoryName ');
|
|
||||||
// sql.Add(',B.KXType,B.MXOrderNo,B.CFFactoryName,B.CPCode,B.CPName,B.CPSpec,B.qtyunit ');
|
|
||||||
//// SQL.Add(',B.YFPZNO');
|
|
||||||
// SQL.Add(')AA');
|
|
||||||
// if ComboBox1.Text = '쯤데휑퍅' then
|
|
||||||
// begin
|
|
||||||
// sql.Add(' where MDTime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
|
|
||||||
// sql.Add(' and MDTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
|
|
||||||
// end
|
|
||||||
// else
|
|
||||||
// begin
|
|
||||||
// sql.Add(' where crTime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
|
|
||||||
// sql.Add(' and crTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
|
|
||||||
// end;
|
|
||||||
// end;
|
|
||||||
// ShowMessage(SQL.Text);
|
|
||||||
Open;
|
Open;
|
||||||
end;
|
end;
|
||||||
SCreateCDS20(ADOQueryMain, CDS_hz);
|
SCreateCDS20(ADOQueryMain, CDS_hz);
|
||||||
SInitCDSData20(ADOQueryMain, CDS_hz);
|
SInitCDSData20(ADOQueryMain, CDS_hz);
|
||||||
|
InitKXType();
|
||||||
finally
|
finally
|
||||||
ADOQueryMain.EnableControls;
|
ADOQueryMain.EnableControls;
|
||||||
ToolButton2.Click;
|
ToolButton2.Click;
|
||||||
|
@ -520,5 +486,48 @@ begin
|
||||||
InitGrid();
|
InitGrid();
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrmYFCRMXList.InitKXType();
|
||||||
|
begin
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('SELECT DISTINCT KXType FROM (');
|
||||||
|
sql.Add(' select B.KXType');
|
||||||
|
sql.Add(' from YF_Money_CR A');
|
||||||
|
sql.Add(' inner join YF_Money_CR_SUB B on A.yfid=B.yfid');
|
||||||
|
sql.Add(' WHERE 1=1');
|
||||||
|
sql.Add(' and A.CRType=''壇마운되션''');
|
||||||
|
|
||||||
|
if cxTabControl1.TabIndex < 2 then
|
||||||
|
sql.Add(' and A.status=''' + inttostr(cxTabControl1.TabIndex) + '''');
|
||||||
|
|
||||||
|
if ComboBox1.Text = '쯤데휑퍅' then
|
||||||
|
begin
|
||||||
|
sql.Add(' and (CASE WHEN B.KXTYPE=''澗새'' then convert(varchar(10),(SELECT TOP 1 FILLTIME FROM XH_Cloth_DH z WHERE z.DHID=B.YFPZNO),120)');
|
||||||
|
sql.Add(' else convert(varchar(10),(SELECT TOP 1 FILLTIME FROM CK_SXPB_CR T WHERE T.SPID=B.YFPZNO),120)END)');
|
||||||
|
sql.Add(' >=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + '''');
|
||||||
|
sql.Add(' and (CASE WHEN B.KXTYPE=''澗새'' then convert(varchar(10),(SELECT TOP 1 FILLTIME FROM XH_Cloth_DH z WHERE z.DHID=B.YFPZNO),120)');
|
||||||
|
sql.Add(' else convert(varchar(10),(SELECT TOP 1 FILLTIME FROM CK_SXPB_CR T WHERE T.SPID=B.YFPZNO),120)END)');
|
||||||
|
sql.Add(' <''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + '''');
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
sql.Add(' and A.crTime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + '''');
|
||||||
|
sql.Add(' and A.crTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + '''');
|
||||||
|
end;
|
||||||
|
|
||||||
|
sql.Add(') t WHERE KXType IS NOT NULL ORDER BY KXType');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
|
||||||
|
KXType.Items.Clear;
|
||||||
|
while not ADOQueryTemp.eof do
|
||||||
|
begin
|
||||||
|
KXType.Items.Add(ADOQueryTemp.fieldbyname('KXType').AsString);
|
||||||
|
ADOQueryTemp.next;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
||||||
UsePackages=0
|
UsePackages=0
|
||||||
[Parameters]
|
[Parameters]
|
||||||
RunParams=
|
RunParams=
|
||||||
HostApplication=E:\淃커栗죕\06_처弄무鱇\驪湛\D7myzhenyong\壇澗壇마\testDll.exe
|
HostApplication=D:\Project\D7myzhenyong\壇澗壇마\testDll.exe
|
||||||
Launcher=
|
Launcher=
|
||||||
UseLauncher=0
|
UseLauncher=0
|
||||||
DebugCWD=
|
DebugCWD=
|
||||||
|
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
||||||
UsePackages=0
|
UsePackages=0
|
||||||
[Parameters]
|
[Parameters]
|
||||||
RunParams=
|
RunParams=
|
||||||
HostApplication=D:\移交\D7myzhenyong\报关管理(BaoGuan.dll)\testDll.exe
|
HostApplication=D:\Project\D7myzhenyong\报关管理(BaoGuan.dll)\testDll.exe
|
||||||
Launcher=
|
Launcher=
|
||||||
UseLauncher=0
|
UseLauncher=0
|
||||||
DebugCWD=
|
DebugCWD=
|
||||||
|
|
|
@ -13,7 +13,20 @@ uses
|
||||||
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
|
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
|
||||||
BtnEdit, cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
BtnEdit, cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
||||||
dxBarBuiltInMenu, MovePanel, Registry, dxSkinsCore,
|
dxBarBuiltInMenu, MovePanel, Registry, dxSkinsCore,
|
||||||
dxSkinsDefaultPainters, dxSkinscxPCPainter;
|
dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue,
|
||||||
|
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||||||
|
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
|
||||||
|
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
|
||||||
|
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
|
||||||
|
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||||
|
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||||
|
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||||||
|
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||||
|
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||||
|
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||||
|
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||||
|
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||||||
|
dxSkinXmas2008Blue;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmBaoGuanList = class(TForm)
|
TfrmBaoGuanList = class(TForm)
|
||||||
|
|
|
@ -21,7 +21,7 @@ object frmCHList: TfrmCHList
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1368
|
Width = 1376
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 83
|
ButtonWidth = 83
|
||||||
|
@ -100,7 +100,7 @@ object frmCHList: TfrmCHList
|
||||||
object Panel1: TPanel
|
object Panel1: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 32
|
Top = 32
|
||||||
Width = 1368
|
Width = 1376
|
||||||
Height = 59
|
Height = 59
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
|
@ -259,8 +259,8 @@ object frmCHList: TfrmCHList
|
||||||
object cxGrid2: TcxGrid
|
object cxGrid2: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 91
|
Top = 91
|
||||||
Width = 1368
|
Width = 1376
|
||||||
Height = 540
|
Height = 548
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
object TV1: TcxGridDBTableView
|
object TV1: TcxGridDBTableView
|
||||||
|
@ -394,6 +394,20 @@ object frmCHList: TfrmCHList
|
||||||
Options.Sorting = False
|
Options.Sorting = False
|
||||||
Width = 46
|
Width = 46
|
||||||
end
|
end
|
||||||
|
object TV1E4JingZ: TcxGridDBColumn
|
||||||
|
Caption = #20928#37325
|
||||||
|
DataBinding.FieldName = 'E4JingZ'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object TV1JS: TcxGridDBColumn
|
||||||
|
Caption = #20214#25968
|
||||||
|
DataBinding.FieldName = 'JS'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
object TV1Column15: TcxGridDBColumn
|
object TV1Column15: TcxGridDBColumn
|
||||||
Caption = #37329#39069
|
Caption = #37329#39069
|
||||||
DataBinding.FieldName = 'C7BGMoney'
|
DataBinding.FieldName = 'C7BGMoney'
|
||||||
|
|
|
@ -12,7 +12,20 @@ uses
|
||||||
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
|
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
|
||||||
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
|
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
|
||||||
BtnEdit, cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
BtnEdit, cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
||||||
dxBarBuiltInMenu, MovePanel, cxCalc, Registry;
|
dxBarBuiltInMenu, MovePanel, cxCalc, Registry, dxSkinsCore, dxSkinBlack,
|
||||||
|
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||||||
|
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
|
||||||
|
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
|
||||||
|
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
|
||||||
|
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||||
|
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||||
|
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||||||
|
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||||
|
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||||
|
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||||
|
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||||
|
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
||||||
|
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmCHList = class(TForm)
|
TfrmCHList = class(TForm)
|
||||||
|
@ -90,6 +103,8 @@ type
|
||||||
TV1Column6: TcxGridDBColumn;
|
TV1Column6: TcxGridDBColumn;
|
||||||
Label1: TLabel;
|
Label1: TLabel;
|
||||||
ywzb: TEdit;
|
ywzb: TEdit;
|
||||||
|
TV1E4JingZ: TcxGridDBColumn;
|
||||||
|
TV1JS: 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);
|
||||||
|
|
|
@ -5,7 +5,20 @@ interface
|
||||||
uses
|
uses
|
||||||
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
|
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
|
||||||
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore,
|
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore,
|
||||||
dxSkinsDefaultPainters;
|
dxSkinsDefaultPainters, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
|
||||||
|
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
|
||||||
|
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||||
|
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||||
|
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||||
|
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||||
|
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||||
|
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||||
|
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||||
|
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||||
|
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||||
|
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||||
|
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||||||
|
dxSkinXmas2008Blue;
|
||||||
var
|
var
|
||||||
DConString:String; {全局连接字符串}
|
DConString:String; {全局连接字符串}
|
||||||
server, dtbase, user, pswd: String; {数据库连接参数}
|
server, dtbase, user, pswd: String; {数据库连接参数}
|
||||||
|
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
||||||
UsePackages=0
|
UsePackages=0
|
||||||
[Parameters]
|
[Parameters]
|
||||||
RunParams=
|
RunParams=
|
||||||
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\ÕñÓÀ\ȾÕû¼Æ»®(DyeingFinishingPlan.dll)\testDll.exe
|
HostApplication=D:\Project\D7myzhenyong\ȾÕû¼Æ»®(DyeingFinishingPlan.dll)\testDll.exe
|
||||||
Launcher=
|
Launcher=
|
||||||
UseLauncher=0
|
UseLauncher=0
|
||||||
DebugCWD=
|
DebugCWD=
|
||||||
|
|
|
@ -84,10 +84,10 @@ begin
|
||||||
pswd := 'rightsoft@9101';
|
pswd := 'rightsoft@9101';
|
||||||
// pswd := 'rightsoft';
|
// pswd := 'rightsoft';
|
||||||
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
||||||
DConString := DataBaseStr;
|
// DConString := DataBaseStr;
|
||||||
// DName := 'ADMIN';
|
DName := 'ADMIN';
|
||||||
// DCode:='ADMIN';
|
DCode:='ADMIN';
|
||||||
//DParameters1 := '高权限';
|
DParameters1 := '高权限';
|
||||||
if not ConnData() then
|
if not ConnData() then
|
||||||
begin
|
begin
|
||||||
result := 0;
|
result := 0;
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
object frmJYOrderCDList: TfrmJYOrderCDList
|
object frmJYOrderCDList: TfrmJYOrderCDList
|
||||||
Left = 124
|
Left = 322
|
||||||
Top = 95
|
Top = 134
|
||||||
Width = 1541
|
Width = 1541
|
||||||
Height = 721
|
Height = 721
|
||||||
Caption = #26816#39564#25253#21578
|
Caption = #26816#39564#25253#21578
|
||||||
|
@ -21,6 +21,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1533
|
Width = 1533
|
||||||
|
Height = 62
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 143
|
ButtonWidth = 143
|
||||||
|
@ -104,51 +105,52 @@ object frmJYOrderCDList: TfrmJYOrderCDList
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #20837#24211#24182#25171#21360#20179#24211#30721#21333
|
Caption = #20837#24211#24182#25171#21360#20179#24211#30721#21333
|
||||||
ImageIndex = 12
|
ImageIndex = 12
|
||||||
|
Wrap = True
|
||||||
OnClick = ToolButton8Click
|
OnClick = ToolButton8Click
|
||||||
end
|
end
|
||||||
object ToolButton4: TToolButton
|
object ToolButton4: TToolButton
|
||||||
Left = 672
|
Left = 0
|
||||||
Top = 0
|
Top = 30
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #37325#25171#20179#24211#30721#21333
|
Caption = #37325#25171#20179#24211#30721#21333
|
||||||
ImageIndex = 4
|
ImageIndex = 4
|
||||||
OnClick = ToolButton4Click
|
OnClick = ToolButton4Click
|
||||||
end
|
end
|
||||||
object ToolButton2: TToolButton
|
object ToolButton2: TToolButton
|
||||||
Left = 783
|
Left = 111
|
||||||
Top = 0
|
Top = 30
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #26816#39564#25253#21578
|
Caption = #26816#39564#25253#21578
|
||||||
ImageIndex = 4
|
ImageIndex = 4
|
||||||
OnClick = ToolButton2Click
|
OnClick = ToolButton2Click
|
||||||
end
|
end
|
||||||
object ToolButton1: TToolButton
|
object ToolButton1: TToolButton
|
||||||
Left = 870
|
Left = 198
|
||||||
Top = 0
|
Top = 30
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25171#21360#21367#26631#31614
|
Caption = #25171#21360#21367#26631#31614
|
||||||
ImageIndex = 4
|
ImageIndex = 4
|
||||||
OnClick = ToolButton1Click
|
OnClick = ToolButton1Click
|
||||||
end
|
end
|
||||||
object B1: TToolButton
|
object B1: TToolButton
|
||||||
Left = 969
|
Left = 297
|
||||||
Top = 0
|
Top = 30
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25171#30721#26085#24535
|
Caption = #25171#30721#26085#24535
|
||||||
ImageIndex = 22
|
ImageIndex = 22
|
||||||
OnClick = B1Click
|
OnClick = B1Click
|
||||||
end
|
end
|
||||||
object TBExport: TToolButton
|
object TBExport: TToolButton
|
||||||
Left = 1056
|
Left = 384
|
||||||
Top = 0
|
Top = 30
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #23548#20986
|
Caption = #23548#20986
|
||||||
ImageIndex = 68
|
ImageIndex = 68
|
||||||
OnClick = TBExportClick
|
OnClick = TBExportClick
|
||||||
end
|
end
|
||||||
object ToolButton6: TToolButton
|
object ToolButton6: TToolButton
|
||||||
Left = 1119
|
Left = 447
|
||||||
Top = 0
|
Top = 30
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = 'ToolButton6'
|
Caption = 'ToolButton6'
|
||||||
ImageIndex = 22
|
ImageIndex = 22
|
||||||
|
@ -156,8 +158,8 @@ object frmJYOrderCDList: TfrmJYOrderCDList
|
||||||
OnClick = ToolButton6Click
|
OnClick = ToolButton6Click
|
||||||
end
|
end
|
||||||
object TBClose: TToolButton
|
object TBClose: TToolButton
|
||||||
Left = 1224
|
Left = 552
|
||||||
Top = 0
|
Top = 30
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #20851#38381
|
Caption = #20851#38381
|
||||||
ImageIndex = 21
|
ImageIndex = 21
|
||||||
|
@ -166,7 +168,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
|
||||||
end
|
end
|
||||||
object Panel1: TPanel
|
object Panel1: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 32
|
Top = 62
|
||||||
Width = 1533
|
Width = 1533
|
||||||
Height = 81
|
Height = 81
|
||||||
Align = alTop
|
Align = alTop
|
||||||
|
@ -766,9 +768,9 @@ object frmJYOrderCDList: TfrmJYOrderCDList
|
||||||
end
|
end
|
||||||
object cxGrid1: TcxGrid
|
object cxGrid1: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 166
|
Top = 196
|
||||||
Width = 1533
|
Width = 1533
|
||||||
Height = 472
|
Height = 442
|
||||||
Align = alClient
|
Align = alClient
|
||||||
PopupMenu = PopupMenu1
|
PopupMenu = PopupMenu1
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
|
@ -1244,6 +1246,10 @@ object frmJYOrderCDList: TfrmJYOrderCDList
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 73
|
Width = 73
|
||||||
end
|
end
|
||||||
|
object Tv1BarCode: TcxGridDBColumn
|
||||||
|
Caption = #26465#24418#30721
|
||||||
|
DataBinding.FieldName = 'BarCode'
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxGrid1Level1: TcxGridLevel
|
object cxGrid1Level1: TcxGridLevel
|
||||||
GridView = Tv1
|
GridView = Tv1
|
||||||
|
@ -1469,7 +1475,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
|
||||||
end
|
end
|
||||||
object Panel6: TPanel
|
object Panel6: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 113
|
Top = 143
|
||||||
Width = 1533
|
Width = 1533
|
||||||
Height = 28
|
Height = 28
|
||||||
Align = alTop
|
Align = alTop
|
||||||
|
@ -1568,7 +1574,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
|
||||||
end
|
end
|
||||||
object cxTabControl1: TcxTabControl
|
object cxTabControl1: TcxTabControl
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 141
|
Top = 171
|
||||||
Width = 1533
|
Width = 1533
|
||||||
Height = 25
|
Height = 25
|
||||||
Align = alTop
|
Align = alTop
|
||||||
|
|
|
@ -13,7 +13,20 @@ uses
|
||||||
cxContainer, cxCurrencyEdit, BtnEdit, RM_e_main, RM_e_htm, RM_e_Graphic,
|
cxContainer, cxCurrencyEdit, BtnEdit, RM_e_main, RM_e_htm, RM_e_Graphic,
|
||||||
RM_e_Jpeg, RM_e_txt, RM_e_csv, RM_E_llPDF, Math, Clipbrd, cxPC, cxLookAndFeels,
|
RM_e_Jpeg, RM_e_txt, RM_e_csv, RM_E_llPDF, Math, Clipbrd, cxPC, cxLookAndFeels,
|
||||||
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Printers, dxSkinsCore,
|
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Printers, dxSkinsCore,
|
||||||
dxSkinsDefaultPainters, dxSkinscxPCPainter, cxImage;
|
dxSkinsDefaultPainters, dxSkinscxPCPainter, cxImage, dxSkinBlack,
|
||||||
|
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||||||
|
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
|
||||||
|
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
|
||||||
|
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
|
||||||
|
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||||
|
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||||
|
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||||||
|
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||||
|
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||||
|
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||||
|
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||||
|
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||||||
|
dxSkinXmas2008Blue;
|
||||||
|
|
||||||
type
|
type
|
||||||
TZintSymbol = packed record
|
TZintSymbol = packed record
|
||||||
|
@ -249,6 +262,7 @@ type
|
||||||
Button7: TButton;
|
Button7: TButton;
|
||||||
Edit2: TEdit;
|
Edit2: TEdit;
|
||||||
Tv1Column8: TcxGridDBColumn;
|
Tv1Column8: TcxGridDBColumn;
|
||||||
|
Tv1BarCode: TcxGridDBColumn;
|
||||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
procedure TBCloseClick(Sender: TObject);
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
|
|
@ -23,7 +23,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
Left = 236
|
Left = 236
|
||||||
Top = 89
|
Top = 89
|
||||||
Width = 621
|
Width = 621
|
||||||
Height = 697
|
Height = 705
|
||||||
Align = alLeft
|
Align = alLeft
|
||||||
TabOrder = 6
|
TabOrder = 6
|
||||||
Visible = False
|
Visible = False
|
||||||
|
@ -1572,8 +1572,8 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
object cxGrid3: TcxGrid
|
object cxGrid3: TcxGrid
|
||||||
Left = 1151
|
Left = 1151
|
||||||
Top = 89
|
Top = 89
|
||||||
Width = 372
|
Width = 380
|
||||||
Height = 697
|
Height = 705
|
||||||
Align = alClient
|
Align = alClient
|
||||||
PopupMenu = PopupMenu1
|
PopupMenu = PopupMenu1
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
|
@ -1693,7 +1693,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 89
|
Top = 89
|
||||||
Width = 236
|
Width = 236
|
||||||
Height = 697
|
Height = 705
|
||||||
Align = alLeft
|
Align = alLeft
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
BevelOuter = bvLowered
|
BevelOuter = bvLowered
|
||||||
|
@ -2282,7 +2282,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
Left = 857
|
Left = 857
|
||||||
Top = 89
|
Top = 89
|
||||||
Width = 294
|
Width = 294
|
||||||
Height = 697
|
Height = 705
|
||||||
Align = alLeft
|
Align = alLeft
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
BevelOuter = bvLowered
|
BevelOuter = bvLowered
|
||||||
|
@ -2307,7 +2307,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
Left = 2
|
Left = 2
|
||||||
Top = 404
|
Top = 404
|
||||||
Width = 290
|
Width = 290
|
||||||
Height = 291
|
Height = 299
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object Tv2: TcxGridDBTableView
|
object Tv2: TcxGridDBTableView
|
||||||
|
@ -2423,14 +2423,14 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
object Panel5: TPanel
|
object Panel5: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1523
|
Width = 1531
|
||||||
Height = 89
|
Height = 89
|
||||||
Align = alTop
|
Align = alTop
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object Panel6: TPanel
|
object Panel6: TPanel
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 31
|
Top = 31
|
||||||
Width = 1521
|
Width = 1529
|
||||||
Height = 57
|
Height = 57
|
||||||
Align = alClient
|
Align = alClient
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
|
@ -2477,7 +2477,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
end
|
end
|
||||||
object Label13: TLabel
|
object Label13: TLabel
|
||||||
Left = 882
|
Left = 949
|
||||||
Top = 31
|
Top = 31
|
||||||
Width = 137
|
Width = 137
|
||||||
Height = 20
|
Height = 20
|
||||||
|
@ -2491,7 +2491,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
object Label14: TLabel
|
object Label14: TLabel
|
||||||
Left = 924
|
Left = 991
|
||||||
Top = 7
|
Top = 7
|
||||||
Width = 95
|
Width = 95
|
||||||
Height = 20
|
Height = 20
|
||||||
|
@ -2542,6 +2542,19 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
Font.Style = [fsBold]
|
Font.Style = [fsBold]
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
end
|
end
|
||||||
|
object Label25: TLabel
|
||||||
|
Left = 649
|
||||||
|
Top = 16
|
||||||
|
Width = 100
|
||||||
|
Height = 19
|
||||||
|
Caption = #32465#23450#26465#24418#30721
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -19
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
object APID: TEdit
|
object APID: TEdit
|
||||||
Left = 88
|
Left = 88
|
||||||
Top = 12
|
Top = 12
|
||||||
|
@ -2618,11 +2631,24 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
OnClick = edtChenClick
|
OnClick = edtChenClick
|
||||||
end
|
end
|
||||||
|
object BarCode: TEdit
|
||||||
|
Left = 752
|
||||||
|
Top = 12
|
||||||
|
Width = 185
|
||||||
|
Height = 27
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -19
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 1521
|
Width = 1529
|
||||||
Height = 30
|
Height = 30
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 119
|
ButtonWidth = 119
|
||||||
|
@ -3175,8 +3201,8 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object cxStyleRepository1: TcxStyleRepository
|
object cxStyleRepository1: TcxStyleRepository
|
||||||
Left = 864
|
Left = 683
|
||||||
Top = 4
|
Top = 383
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
object cxStyle1: TcxStyle
|
object cxStyle1: TcxStyle
|
||||||
AssignedValues = [svColor, svFont]
|
AssignedValues = [svColor, svFont]
|
||||||
|
@ -3200,36 +3226,38 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
end
|
end
|
||||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||||
PopupMenus = <>
|
PopupMenus = <>
|
||||||
Left = 645
|
Left = 887
|
||||||
Top = 46
|
Top = 315
|
||||||
end
|
end
|
||||||
object DataSource1: TDataSource
|
object DataSource1: TDataSource
|
||||||
DataSet = Order_MJ
|
DataSet = Order_MJ
|
||||||
Left = 672
|
Left = 751
|
||||||
|
Top = 383
|
||||||
end
|
end
|
||||||
object Order_MJ: TClientDataSet
|
object Order_MJ: TClientDataSet
|
||||||
Aggregates = <>
|
Aggregates = <>
|
||||||
Params = <>
|
Params = <>
|
||||||
Left = 744
|
Left = 819
|
||||||
Top = 176
|
Top = 315
|
||||||
end
|
end
|
||||||
object ADOQueryMain: TADOQuery
|
object ADOQueryMain: TADOQuery
|
||||||
Connection = DataLink_DyeingFinishingPlan.ADOLink
|
Connection = DataLink_DyeingFinishingPlan.ADOLink
|
||||||
LockType = ltReadOnly
|
LockType = ltReadOnly
|
||||||
Parameters = <>
|
Parameters = <>
|
||||||
Left = 744
|
Left = 683
|
||||||
Top = 144
|
Top = 247
|
||||||
end
|
end
|
||||||
object ADOCmd: TADOQuery
|
object ADOCmd: TADOQuery
|
||||||
Connection = DataLink_DyeingFinishingPlan.ADOLink
|
Connection = DataLink_DyeingFinishingPlan.ADOLink
|
||||||
Parameters = <>
|
Parameters = <>
|
||||||
Left = 832
|
Left = 615
|
||||||
Top = 140
|
Top = 247
|
||||||
end
|
end
|
||||||
object RMDB_Main: TRMDBDataSet
|
object RMDB_Main: TRMDBDataSet
|
||||||
Visible = True
|
Visible = True
|
||||||
DataSet = ADOQueryPrint
|
DataSet = ADOQueryPrint
|
||||||
Left = 928
|
Left = 683
|
||||||
|
Top = 451
|
||||||
end
|
end
|
||||||
object RM2: TRMGridReport
|
object RM2: TRMGridReport
|
||||||
ThreadPrepareReport = True
|
ThreadPrepareReport = True
|
||||||
|
@ -3248,46 +3276,48 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
CompressThread = False
|
CompressThread = False
|
||||||
LaterBuildEvents = True
|
LaterBuildEvents = True
|
||||||
OnlyOwnerDataSet = False
|
OnlyOwnerDataSet = False
|
||||||
Left = 709
|
Left = 751
|
||||||
Top = 42
|
Top = 451
|
||||||
ReportData = {}
|
ReportData = {}
|
||||||
end
|
end
|
||||||
object DataSource2: TDataSource
|
object DataSource2: TDataSource
|
||||||
DataSet = CDS_MJCD
|
DataSet = CDS_MJCD
|
||||||
Left = 696
|
Left = 819
|
||||||
|
Top = 383
|
||||||
end
|
end
|
||||||
object CDS_MJCD: TClientDataSet
|
object CDS_MJCD: TClientDataSet
|
||||||
Aggregates = <>
|
Aggregates = <>
|
||||||
Params = <>
|
Params = <>
|
||||||
Left = 752
|
Left = 683
|
||||||
|
Top = 315
|
||||||
end
|
end
|
||||||
object DataSource3: TDataSource
|
object DataSource3: TDataSource
|
||||||
DataSet = CDS_MJID
|
DataSet = CDS_MJID
|
||||||
Left = 1000
|
Left = 887
|
||||||
Top = 296
|
Top = 383
|
||||||
end
|
end
|
||||||
object CDS_MJID: TClientDataSet
|
object CDS_MJID: TClientDataSet
|
||||||
Aggregates = <>
|
Aggregates = <>
|
||||||
Params = <>
|
Params = <>
|
||||||
Left = 1016
|
Left = 751
|
||||||
Top = 312
|
Top = 315
|
||||||
end
|
end
|
||||||
object Timer1: TTimer
|
object Timer1: TTimer
|
||||||
Interval = 100
|
Interval = 100
|
||||||
Left = 944
|
Left = 887
|
||||||
Top = 320
|
Top = 451
|
||||||
end
|
end
|
||||||
object ADOQueryPrint: TADOQuery
|
object ADOQueryPrint: TADOQuery
|
||||||
Connection = DataLink_DyeingFinishingPlan.ADOLink
|
Connection = DataLink_DyeingFinishingPlan.ADOLink
|
||||||
LockType = ltReadOnly
|
LockType = ltReadOnly
|
||||||
Parameters = <>
|
Parameters = <>
|
||||||
Left = 724
|
Left = 819
|
||||||
Top = 4
|
Top = 247
|
||||||
end
|
end
|
||||||
object cxGridPopupMenu2: TcxGridPopupMenu
|
object cxGridPopupMenu2: TcxGridPopupMenu
|
||||||
PopupMenus = <>
|
PopupMenus = <>
|
||||||
Left = 944
|
Left = 615
|
||||||
Top = 539
|
Top = 383
|
||||||
end
|
end
|
||||||
object ADOQueryMainDSC: TADOQuery
|
object ADOQueryMainDSC: TADOQuery
|
||||||
Connection = DataLink_DyeingFinishingPlan.ADOLink
|
Connection = DataLink_DyeingFinishingPlan.ADOLink
|
||||||
|
@ -3313,8 +3343,8 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
' '
|
' '
|
||||||
'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1'
|
'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1'
|
||||||
'')
|
'')
|
||||||
Left = 784
|
Left = 751
|
||||||
Top = 144
|
Top = 247
|
||||||
end
|
end
|
||||||
object RM3: TRMGridReport
|
object RM3: TRMGridReport
|
||||||
ThreadPrepareReport = True
|
ThreadPrepareReport = True
|
||||||
|
@ -3333,18 +3363,19 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
CompressThread = False
|
CompressThread = False
|
||||||
LaterBuildEvents = True
|
LaterBuildEvents = True
|
||||||
OnlyOwnerDataSet = False
|
OnlyOwnerDataSet = False
|
||||||
Left = 804
|
Left = 819
|
||||||
|
Top = 451
|
||||||
ReportData = {}
|
ReportData = {}
|
||||||
end
|
end
|
||||||
object ADOTmp: TADOQuery
|
object ADOTmp: TADOQuery
|
||||||
Connection = DataLink_DyeingFinishingPlan.ADOLink
|
Connection = DataLink_DyeingFinishingPlan.ADOLink
|
||||||
Parameters = <>
|
Parameters = <>
|
||||||
Left = 743
|
Left = 887
|
||||||
Top = 111
|
Top = 247
|
||||||
end
|
end
|
||||||
object PopupMenu1: TPopupMenu
|
object PopupMenu1: TPopupMenu
|
||||||
Left = 1188
|
Left = 615
|
||||||
Top = 424
|
Top = 451
|
||||||
object N1: TMenuItem
|
object N1: TMenuItem
|
||||||
Caption = #25764#38144#26368#22823#21253
|
Caption = #25764#38144#26368#22823#21253
|
||||||
OnClick = N1Click
|
OnClick = N1Click
|
||||||
|
@ -3353,7 +3384,7 @@ object frmMarkingInspection: TfrmMarkingInspection
|
||||||
object CDS_DDB: TClientDataSet
|
object CDS_DDB: TClientDataSet
|
||||||
Aggregates = <>
|
Aggregates = <>
|
||||||
Params = <>
|
Params = <>
|
||||||
Left = 748
|
Left = 615
|
||||||
Top = 308
|
Top = 315
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
|
@ -327,6 +327,8 @@ type
|
||||||
SpeedButton121: TSpeedButton;
|
SpeedButton121: TSpeedButton;
|
||||||
SpeedButton122: TSpeedButton;
|
SpeedButton122: TSpeedButton;
|
||||||
SpeedButton123: TSpeedButton;
|
SpeedButton123: TSpeedButton;
|
||||||
|
Label25: TLabel;
|
||||||
|
BarCode: TEdit;
|
||||||
procedure FormDestroy(Sender: TObject);
|
procedure FormDestroy(Sender: TObject);
|
||||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
procedure TBCloseClick(Sender: TObject);
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
@ -1281,7 +1283,9 @@ begin
|
||||||
FieldByName('mjxh').Value := strtointdef(trim(mjxh.Text), 0);
|
FieldByName('mjxh').Value := strtointdef(trim(mjxh.Text), 0);
|
||||||
FieldByName('MJTypeOther').Value := Trim(Label9.Caption);
|
FieldByName('MJTypeOther').Value := Trim(Label9.Caption);
|
||||||
FieldByName('JYPerson').Value := Trim(JYPerson.Text);
|
FieldByName('JYPerson').Value := Trim(JYPerson.Text);
|
||||||
|
|
||||||
|
|
||||||
|
FieldByName('BarCode').Value := Trim(BarCode.Text);
|
||||||
//长度 与 减去长度
|
//长度 与 减去长度
|
||||||
if TV2.DataController.Summary.FooterSummaryValues[2] <> NULL then
|
if TV2.DataController.Summary.FooterSummaryValues[2] <> NULL then
|
||||||
begin
|
begin
|
||||||
|
@ -1506,6 +1510,7 @@ begin
|
||||||
MJFMLen.Text := '';
|
MJFMLen.Text := '';
|
||||||
MJMaoZ.Text := '';
|
MJMaoZ.Text := '';
|
||||||
MJQty4.Text := '';
|
MJQty4.Text := '';
|
||||||
|
BarCode.Text := '';
|
||||||
if FCP = '次品出库' then
|
if FCP = '次品出库' then
|
||||||
begin
|
begin
|
||||||
Edit4.Text := '√';
|
Edit4.Text := '√';
|
||||||
|
|
|
@ -12,7 +12,19 @@ uses
|
||||||
cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
|
cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
|
||||||
RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus,
|
RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus,
|
||||||
cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox,
|
cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox,
|
||||||
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
|
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack,
|
||||||
|
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||||||
|
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||||
|
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||||
|
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||||
|
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||||
|
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||||
|
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||||
|
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||||
|
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||||
|
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
|
||||||
|
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
|
||||||
|
dxSkinWhiteprint, dxSkinXmas2008Blue;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmOrderInPut = class(TForm)
|
TfrmOrderInPut = class(TForm)
|
||||||
|
@ -806,7 +818,16 @@ begin
|
||||||
end;
|
end;
|
||||||
if ADOTemp.FieldByName('BSBJ').AsString = '1' then
|
if ADOTemp.FieldByName('BSBJ').AsString = '1' then
|
||||||
begin
|
begin
|
||||||
Application.MessageBox('此编号重要内容修改过,请确认后使用!', '提示', 0);
|
if ADOTemp.FieldByName('xxnote2').AsString <> '' then
|
||||||
|
begin
|
||||||
|
Application.MessageBox(PChar(ADOTemp.FieldByName('xxnote2').AsString), '提示', 0);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Application.MessageBox('此编号重要内容修改过,请确认后使用!', '提示', 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
object frmProductOrderList: TfrmProductOrderList
|
object frmProductOrderList: TfrmProductOrderList
|
||||||
Left = 188
|
Left = 495
|
||||||
Top = 71
|
Top = 367
|
||||||
Width = 1363
|
Width = 1363
|
||||||
Height = 801
|
Height = 801
|
||||||
Caption = #29983#20135#25351#31034#21333
|
Caption = #29983#20135#25351#31034#21333
|
||||||
|
@ -21,7 +21,7 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1347
|
Width = 1355
|
||||||
Height = 62
|
Height = 62
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
|
@ -295,7 +295,7 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
object Panel1: TPanel
|
object Panel1: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 62
|
Top = 62
|
||||||
Width = 1347
|
Width = 1355
|
||||||
Height = 64
|
Height = 64
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
|
@ -702,8 +702,8 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
object cxGrid1: TcxGrid
|
object cxGrid1: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 157
|
Top = 157
|
||||||
Width = 1347
|
Width = 1355
|
||||||
Height = 364
|
Height = 372
|
||||||
Align = alClient
|
Align = alClient
|
||||||
PopupMenu = PopupMenu1
|
PopupMenu = PopupMenu1
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
|
@ -1011,8 +1011,8 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
end
|
end
|
||||||
object cxSplitter1: TcxSplitter
|
object cxSplitter1: TcxSplitter
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 558
|
Top = 566
|
||||||
Width = 1347
|
Width = 1355
|
||||||
Height = 8
|
Height = 8
|
||||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||||
AlignSplitter = salBottom
|
AlignSplitter = salBottom
|
||||||
|
@ -1020,8 +1020,8 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
end
|
end
|
||||||
object Panel2: TPanel
|
object Panel2: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 566
|
Top = 574
|
||||||
Width = 1347
|
Width = 1355
|
||||||
Height = 196
|
Height = 196
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
|
@ -1030,7 +1030,7 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
object cxGrid2: TcxGrid
|
object cxGrid2: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1347
|
Width = 1355
|
||||||
Height = 196
|
Height = 196
|
||||||
Align = alClient
|
Align = alClient
|
||||||
PopupMenu = PopupMenu2
|
PopupMenu = PopupMenu2
|
||||||
|
@ -1869,8 +1869,8 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
end
|
end
|
||||||
object Panel11: TPanel
|
object Panel11: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 521
|
Top = 529
|
||||||
Width = 1347
|
Width = 1355
|
||||||
Height = 37
|
Height = 37
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
TabOrder = 8
|
TabOrder = 8
|
||||||
|
@ -1930,7 +1930,7 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
object Panel12: TPanel
|
object Panel12: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 126
|
Top = 126
|
||||||
Width = 1347
|
Width = 1355
|
||||||
Height = 31
|
Height = 31
|
||||||
Align = alTop
|
Align = alTop
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
|
@ -1938,7 +1938,7 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
BorderStyle = bsSingle
|
BorderStyle = bsSingle
|
||||||
TabOrder = 9
|
TabOrder = 9
|
||||||
DesignSize = (
|
DesignSize = (
|
||||||
1343
|
1351
|
||||||
27)
|
27)
|
||||||
object Label30: TLabel
|
object Label30: TLabel
|
||||||
Left = 506
|
Left = 506
|
||||||
|
|
|
@ -9,7 +9,7 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
|
||||||
DCC = $(ROOT)\bin\dcc32.exe $**
|
DCC = $(ROOT)\bin\dcc32.exe $**
|
||||||
BRCC = $(ROOT)\bin\brcc32.exe $**
|
BRCC = $(ROOT)\bin\brcc32.exe $**
|
||||||
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
||||||
PROJECTS = testDll.exe ProductPrice.dll
|
PROJECTS = testDll.exe YPGL.dll
|
||||||
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
||||||
default: $(PROJECTS)
|
default: $(PROJECTS)
|
||||||
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
||||||
|
@ -17,7 +17,7 @@ default: $(PROJECTS)
|
||||||
testDll.exe: testDll.dpr
|
testDll.exe: testDll.dpr
|
||||||
$(DCC)
|
$(DCC)
|
||||||
|
|
||||||
ProductPrice.dll: ProductPrice.dpr
|
YPGL.dll: YPGL.dpr
|
||||||
$(DCC)
|
$(DCC)
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -324,9 +324,9 @@ object frmCPAddPN: TfrmCPAddPN
|
||||||
object Label10: TLabel
|
object Label10: TLabel
|
||||||
Left = 278
|
Left = 278
|
||||||
Top = 416
|
Top = 416
|
||||||
Width = 60
|
Width = 85
|
||||||
Height = 16
|
Height = 16
|
||||||
Caption = #22791#27880'3'#65306
|
Caption = #26356#25913#22791#27880#65306
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
Font.Height = -16
|
Font.Height = -16
|
||||||
|
@ -617,9 +617,9 @@ object frmCPAddPN: TfrmCPAddPN
|
||||||
end
|
end
|
||||||
object XXNote1: TEdit
|
object XXNote1: TEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 330
|
Left = 354
|
||||||
Top = 376
|
Top = 376
|
||||||
Width = 427
|
Width = 420
|
||||||
Height = 22
|
Height = 22
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
|
@ -645,9 +645,9 @@ object frmCPAddPN: TfrmCPAddPN
|
||||||
end
|
end
|
||||||
object XXNote2: TEdit
|
object XXNote2: TEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 331
|
Left = 355
|
||||||
Top = 413
|
Top = 413
|
||||||
Width = 427
|
Width = 420
|
||||||
Height = 22
|
Height = 22
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
|
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
||||||
UsePackages=0
|
UsePackages=0
|
||||||
[Parameters]
|
[Parameters]
|
||||||
RunParams=
|
RunParams=
|
||||||
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\ÕñÓÀ\ÑùÆ·(YPGL.dll)\testDll.exe
|
HostApplication=D:\Project\D7myzhenyong\ÑùÆ·(YPGL.dll)\testDll.exe
|
||||||
Launcher=
|
Launcher=
|
||||||
UseLauncher=0
|
UseLauncher=0
|
||||||
DebugCWD=
|
DebugCWD=
|
||||||
|
|
|
@ -31,8 +31,8 @@
|
||||||
-M
|
-M
|
||||||
-$M16384,1048576
|
-$M16384,1048576
|
||||||
-K$00400000
|
-K$00400000
|
||||||
-LE"c:\program files\borland\delphi7\Projects\Bpl"
|
-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
|
||||||
-LN"c:\program files\borland\delphi7\Projects\Bpl"
|
-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
|
||||||
-w-UNSAFE_TYPE
|
-w-UNSAFE_TYPE
|
||||||
-w-UNSAFE_CODE
|
-w-UNSAFE_CODE
|
||||||
-w-UNSAFE_CAST
|
-w-UNSAFE_CAST
|
||||||
|
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
||||||
UsePackages=0
|
UsePackages=0
|
||||||
[Parameters]
|
[Parameters]
|
||||||
RunParams=
|
RunParams=
|
||||||
HostApplication=F:\selfware_83398\selfware\马国钢开发代码\项目代码\self\样品\testDll.exe
|
HostApplication=D:\Project\D7myzhenyong\ÑùÆ·(YPGL.dll)\testDll.exe
|
||||||
Launcher=
|
Launcher=
|
||||||
UseLauncher=0
|
UseLauncher=0
|
||||||
DebugCWD=
|
DebugCWD=
|
||||||
|
|
|
@ -9,7 +9,7 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
|
||||||
DCC = $(ROOT)\bin\dcc32.exe $**
|
DCC = $(ROOT)\bin\dcc32.exe $**
|
||||||
BRCC = $(ROOT)\bin\brcc32.exe $**
|
BRCC = $(ROOT)\bin\brcc32.exe $**
|
||||||
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
||||||
PROJECTS = testDll.exe
|
PROJECTS = testDll.exe YPCK.dll
|
||||||
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
||||||
default: $(PROJECTS)
|
default: $(PROJECTS)
|
||||||
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
||||||
|
@ -17,4 +17,7 @@ default: $(PROJECTS)
|
||||||
testDll.exe: testDll.dpr
|
testDll.exe: testDll.dpr
|
||||||
$(DCC)
|
$(DCC)
|
||||||
|
|
||||||
|
YPCK.dll: YPCK.dpr
|
||||||
|
$(DCC)
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -72,12 +72,9 @@ begin
|
||||||
SetLength(pswd, 255);
|
SetLength(pswd, 255);
|
||||||
|
|
||||||
server := '47.100.130.130,7781';
|
server := '47.100.130.130,7781';
|
||||||
// server := '.';
|
|
||||||
dtbase := 'zhenyongdata';
|
dtbase := 'zhenyongdata';
|
||||||
// dtbase := 'cszhenyong';
|
|
||||||
user := 'zhenyongsa';
|
user := 'zhenyongsa';
|
||||||
pswd := 'rightsoft@9101';
|
pswd := 'rightsoft@9101';
|
||||||
// pswd := 'rightsoft';
|
|
||||||
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
||||||
DConString := DataBaseStr;
|
DConString := DataBaseStr;
|
||||||
// Parameters1 := 'ÑùÆ·²Ö¿â';
|
// Parameters1 := 'ÑùÆ·²Ö¿â';
|
||||||
|
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
||||||
UsePackages=0
|
UsePackages=0
|
||||||
[Parameters]
|
[Parameters]
|
||||||
RunParams=
|
RunParams=
|
||||||
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\ÕñÓÀ\´¬Ñù²Ö¿â(ÑùÆ·&Ó¡»¨)\testDll.exe
|
HostApplication=D:\Project\D7myzhenyong\´¬Ñù²Ö¿â(ÑùÆ·&Ó¡»¨)\testDll.exe
|
||||||
Launcher=
|
Launcher=
|
||||||
UseLauncher=0
|
UseLauncher=0
|
||||||
DebugCWD=
|
DebugCWD=
|
||||||
|
|
Loading…
Reference in New Issue
Block a user