This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-10-21 13:56:22 +08:00
parent 5e37c18e31
commit 7738aa2a58
26 changed files with 393 additions and 218 deletions

View File

@ -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

View File

@ -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;

View File

@ -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

View File

@ -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.

View File

@ -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=

View File

@ -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=

View File

@ -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)

View File

@ -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'

View File

@ -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);

View File

@ -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; {数据库连接参数}

View File

@ -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=

View File

@ -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;

View File

@ -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

View File

@ -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);

View File

@ -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

View File

@ -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 := '√';

View File

@ -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;

View File

@ -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

View File

@ -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)

View File

@ -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

View File

@ -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=

View File

@ -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

View File

@ -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=

View File

@ -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)

View File

@ -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 := 'ÑùÆ·²Ö¿â';

View File

@ -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=