Group_03/D7djLingxi
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1234

Browse Source
This commit is contained in:
郑 2025-09-19 16:22:04 +08:00
parent 4867d71b7c
commit 8db5df0d5a
8 changed files with 1058 additions and 924 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\郑丰平开发代码\项目代码\灵汐\检验管理\testDll.exe
HostApplication=D:\Dp7Repo\项目代码\D7djLingxi\检验管理\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

16
检验管理/U_DataLink.pas
View File

@ -4,7 +4,21 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses;
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, 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;
var
DConString:String; {全局连接字符串}
server, dtbase, user, pswd: String; {数据库连接参数}

4
检验管理/U_GetDllForm.pas
View File

@ -81,7 +81,9 @@ begin
// pswd:='rightsoft';
// pswd:='numlock';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
DConString := DataBaseStr;
if trim(DataBaseStr) <> '' then
DConString := DataBaseStr;
// DParameters1:='¸ßȨÏÞ';
// DCode:='002';
// DName:='ADMIN';

34
检验管理/U_JYOrderCDOne.dfm
View File

@ -21,6 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 0
Top = 0
Width = 1366
Height = 62
AutoSize = True
ButtonHeight = 30
ButtonWidth = 107
@ -94,12 +95,13 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
AutoSize = True
Caption = #25171#21360#26631#31614
ImageIndex = 96
Wrap = True
Visible = False
OnClick = ToolButton1Click
end
object TCPDB: TToolButton
Left = 513
Top = 0
Left = 0
Top = 30
AutoSize = True
Caption = #25104#21697#25171#21253
ImageIndex = 57
@ -107,8 +109,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TCPDBClick
end
object ToolButton3: TToolButton
Left = 600
Top = 0
Left = 87
Top = 30
AutoSize = True
Caption = #25171#21360#21253#26631#31614
ImageIndex = 12
@ -116,16 +118,16 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton3Click
end
object ToolButton2: TToolButton
Left = 699
Top = 0
Left = 186
Top = 30
AutoSize = True
Caption = #25171#21360#26816#39564#25253#21578
ImageIndex = 12
OnClick = ToolButton2Click
end
object TBAftChkHX: TToolButton
Left = 810
Top = 0
Left = 297
Top = 30
AutoSize = True
Caption = #26816#21518#22238#20462
ImageIndex = 54
@ -133,24 +135,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TBAftChkHXClick
end
object TBClose: TToolButton
Left = 897
Top = 0
Left = 384
Top = 30
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
object TBPrint: TToolButton
Left = 960
Top = 0
Left = 447
Top = 30
AutoSize = True
Caption = #25171#21360#30721#21333
ImageIndex = 12
OnClick = TBPrintClick
end
object ComboBox1: TComboBox
Left = 1047
Top = 3
Left = 534
Top = 33
Width = 140
Height = 24
Style = csDropDownList
@ -169,7 +171,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end
object Panel1: TPanel
Left = 0
Top = 32
Top = 62
Width = 1366
Height = 65
Align = alTop
@ -674,7 +676,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
TabOrder = 2
object Tv1: TcxGridDBTableView
OnMouseUp = Tv1MouseUp
NavigatorButtons.ConfirmDelete = False
Navigator.Buttons.CustomButtons = <>
OnCellClick = Tv1CellClick
OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DataSource1

61
检验管理/U_JYOrderCDOne.pas
View File

@ -9,7 +9,21 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit;
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, 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, cxNavigator;
type
TfrmJYOrderCDOne = class(TForm)
@ -567,7 +581,7 @@ end;
procedure TfrmJYOrderCDOne.ToolButton1Click(Sender: TObject);
var
fPrintFile: string;
Txt, fImagePath: string;
Txt, fImagePath, Txt2, fImagePath2: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
@ -611,24 +625,44 @@ begin
Order_Main.EnableControls;
exit;
end;
with ADOQueryPrint do
begin
Close;
SQL.Clear;
sql.Add('select A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.customerNoName,B.LBName,B.MF as prtmf,B.KZ as prtkz ');
sql.Add(',EngColor=(select max(Note) from KH_Zdy X where X.ZDYName=C.PRTColor and X.Type=''OrdColor'' ) ');
// sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as MJLen ');
//sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),C.PRTCodeName)');
//sql.Add(',Case when isnull(MJType,'''')=''´ÎÆ·'' then ''B''+RTrim(Cast(MJXH as varchar(20))) ');
//sql.Add('when isnull(MJType,'''')=''¶àÆ´'' then ''C''+RTrim(Cast(MJXH as varchar(20))) else Cast(MJXH as varchar(20)) end as MJXH');
sql.Add(',B.MPRTCF,B.CodeName,C.*,A.* ');
// sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty');
sql.Add(' from WFB_MJJY A');
sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid');
sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
sql.Add('exec P_Print_Roll ''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''' ');
// sql.Add('select A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.customerNoName,B.LBName,B.MF as prtmf,B.KZ as prtkz ');
// sql.Add(',EngColor=(select max(Note) from KH_Zdy X where X.ZDYName=C.PRTColor and X.Type=''OrdColor'' ) ');
// // sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as MJLen ');
// //sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),C.PRTCodeName)');
// //sql.Add(',Case when isnull(MJType,'''')=''次品'' then ''B''+RTrim(Cast(MJXH as varchar(20))) ');
// //sql.Add('when isnull(MJType,'''')=''多拼'' then ''C''+RTrim(Cast(MJXH as varchar(20))) else Cast(MJXH as varchar(20)) end as MJXH');
// sql.Add(',B.MPRTCF,B.CodeName,C.*,A.* ');
// // sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty');
// sql.Add(' from WFB_MJJY A');
// sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid');
// sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
SQL.Add(' where A.MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
Open;
end;
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt2 := Trim(ADOQueryPrint.fieldbyname('PRINTCode').AsString);
fImagePath2 := ExtractFilePath(Application.ExeName) + 'image\temp2.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath2) then
DeleteFile(fImagePath2);
Makebar(pchar(Txt2), Length(Txt2), 3, 3, 0, PChar(fImagePath2), 3);
except
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
Order_Main.EnableControls;
exit;
end;
if Trim(ADOQueryPrint.fieldbyname('SLbName').AsString) <> '' then
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('SLbName').AsString)
else
@ -636,6 +670,7 @@ begin
if FileExists(fPrintFile) then
begin
RMVariables['QRBARCODE'] := fImagePath;
RMVariables['QRBARCODE2'] := fImagePath2;
RM2.LoadFromFile(fPrintFile);
//RM2.ShowReport;
RM2.PrintReport;

29
检验管理/U_MJManageNewFDNew.dfm
View File

@ -1,6 +1,6 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 142
Top = 64
Left = 347
Top = 278
Width = 1265
Height = 738
Caption = #25104#21697#26816#39564
@ -21,11 +21,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 0
Top = 81
Width = 249
Height = 619
Height = 618
Align = alLeft
TabOrder = 0
object Tv3: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource3
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
@ -126,7 +126,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 605
Top = 81
Width = 644
Height = 619
Height = 618
Align = alClient
TabOrder = 1
object SpeedButton13: TSpeedButton
@ -1115,7 +1115,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 401
Top = 81
Width = 204
Height = 619
Height = 618
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
@ -1874,7 +1874,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end
object Button7: TButton
Left = 94
Top = 584
Top = 576
Width = 94
Height = 37
Caption = #25171#21253#26631#31614
@ -2449,7 +2449,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 249
Top = 81
Width = 152
Height = 619
Height = 618
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
@ -2458,11 +2458,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 2
Top = 2
Width = 148
Height = 290
Height = 289
Align = alClient
TabOrder = 0
object Tv2: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
Navigator.Buttons.CustomButtons = <>
OnCellClick = Tv2CellClick
OnCellDblClick = Tv2CellDblClick
DataController.DataSource = DataSource2
@ -2567,7 +2567,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end
object Panel8: TPanel
Left = 2
Top = 292
Top = 291
Width = 148
Height = 41
Align = alBottom
@ -2582,7 +2582,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end
object AOrdDefNote1: TRichEdit
Left = 2
Top = 333
Top = 332
Width = 148
Height = 284
Align = alBottom
@ -2795,6 +2795,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object cxStyleRepository1: TcxStyleRepository
Left = 612
Top = 128
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svColor, svFont]
Color = clBtnFace
@ -2911,6 +2912,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object cxStyleRepository2: TcxStyleRepository
Left = 80
Top = 28
PixelsPerInch = 96
object cxStyle3: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = clBtnFace
@ -2925,6 +2927,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object cxStyleRepository3: TcxStyleRepository
Left = 64
Top = 32
PixelsPerInch = 96
object cxStyle4: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = clBtnFace
@ -2939,6 +2942,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object cxStyleRepository4: TcxStyleRepository
Left = 8
Top = 68
PixelsPerInch = 96
object cxStyle5: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = clBtnFace
@ -2953,6 +2957,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object cxStyleRepository5: TcxStyleRepository
Left = 40
Top = 52
PixelsPerInch = 96
object cxStyle6: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET

1820
检验管理/U_MJManageNewFDNew.pas
View File

File diff suppressed because it is too large Load Diff

16
检验管理/U_ProductOrderNewList.pas
View File

@ -12,7 +12,21 @@ uses
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxContainer, cxImage, cxDBEdit, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdFTP,shellAPI, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu;
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
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
TfrmProductOrderNewList = class(TForm)