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

1

Browse Source
This commit is contained in:
libingpeng 2025-11-27 14:51:21 +08:00
parent 79d84f10cb
commit 8bc3e8e84d
7 changed files with 107 additions and 95 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
打卷检验管理/ProjectGroup1.bpg
View File

@ -14,10 +14,10 @@ PROJECTS = TradeManage.dll testDll.exe
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
TradeManage.dll: ..\..\D7DJailisi\检验管理\TradeManage.dpr TradeManage.dll: TradeManage.dpr
$(DCC) $(DCC)
testDll.exe: ..\..\D7DJailisi\检验管理\testDll.dpr testDll.exe: testDll.dpr
$(DCC) $(DCC)

4
打卷检验管理/ProjectGroup1.~bpg
View File

@ -14,10 +14,10 @@ PROJECTS = TradeManage.dll testDll.exe
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
TradeManage.dll: TradeManage.dpr TradeManage.dll: ..\..\D7DJailisi\检验管理\TradeManage.dpr
$(DCC) $(DCC)
testDll.exe: testDll.dpr testDll.exe: ..\..\D7DJailisi\检验管理\testDll.dpr
$(DCC) $(DCC)

92
打卷检验管理/TradeManage.skincfg
View File

@ -1,50 +1,50 @@
[ExpressSkins] [ExpressSkins]
Default=1 Default=1
ShowNotifications=1 ShowNotifications=1
Enabled=0 Enabled=1
dxSkinBlack=1 dxSkinBlack=0
dxSkinBlue=1 dxSkinBlue=0
dxSkinBlueprint=1 dxSkinBlueprint=0
dxSkinCaramel=1 dxSkinCaramel=0
dxSkinCoffee=1 dxSkinCoffee=0
dxSkinDarkRoom=1 dxSkinDarkRoom=0
dxSkinDarkSide=1 dxSkinDarkSide=0
dxSkinDevExpressDarkStyle=1 dxSkinDevExpressDarkStyle=0
dxSkinDevExpressStyle=1 dxSkinDevExpressStyle=0
dxSkinFoggy=1 dxSkinFoggy=0
dxSkinGlassOceans=1 dxSkinGlassOceans=0
dxSkinHighContrast=1 dxSkinHighContrast=0
dxSkiniMaginary=1 dxSkiniMaginary=0
dxSkinLilian=1 dxSkinLilian=0
dxSkinLiquidSky=1 dxSkinLiquidSky=0
dxSkinLondonLiquidSky=1 dxSkinLondonLiquidSky=0
dxSkinMcSkin=1 dxSkinMcSkin=0
dxSkinMetropolis=1 dxSkinMetropolis=0
dxSkinMetropolisDark=1 dxSkinMetropolisDark=0
dxSkinMoneyTwins=1 dxSkinMoneyTwins=0
dxSkinOffice2007Black=1 dxSkinOffice2007Black=0
dxSkinOffice2007Blue=1 dxSkinOffice2007Blue=0
dxSkinOffice2007Green=1 dxSkinOffice2007Green=0
dxSkinOffice2007Pink=1 dxSkinOffice2007Pink=0
dxSkinOffice2007Silver=1 dxSkinOffice2007Silver=0
dxSkinOffice2010Black=1 dxSkinOffice2010Black=0
dxSkinOffice2010Blue=1 dxSkinOffice2010Blue=0
dxSkinOffice2010Silver=1 dxSkinOffice2010Silver=0
dxSkinOffice2013DarkGray=1 dxSkinOffice2013DarkGray=0
dxSkinOffice2013LightGray=1 dxSkinOffice2013LightGray=0
dxSkinOffice2013White=1 dxSkinOffice2013White=0
dxSkinPumpkin=1 dxSkinPumpkin=0
dxSkinSeven=1 dxSkinSeven=0
dxSkinSevenClassic=1 dxSkinSevenClassic=0
dxSkinSharp=1 dxSkinSharp=0
dxSkinSharpPlus=1 dxSkinSharpPlus=0
dxSkinSilver=1 dxSkinSilver=0
dxSkinSpringTime=1 dxSkinSpringTime=0
dxSkinStardust=1 dxSkinStardust=0
dxSkinSummer2008=1 dxSkinSummer2008=0
dxSkinTheAsphaltWorld=1 dxSkinTheAsphaltWorld=0
dxSkinsDefaultPainters=1 dxSkinsDefaultPainters=1
dxSkinValentine=1 dxSkinValentine=0
dxSkinVS2010=1 dxSkinVS2010=0
dxSkinWhiteprint=1 dxSkinWhiteprint=0
dxSkinXmas2008Blue=1 dxSkinXmas2008Blue=0

3
打卷检验管理/U_DataLink.pas
View File

@ -4,7 +4,8 @@ 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, ExtCtrls,SyncObjs; Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, ExtCtrls,SyncObjs,
dxSkinsCore, dxSkinsDefaultPainters;
type type
TMyThread = class(TThread) TMyThread = class(TThread)
protected protected

18
打卷检验管理/U_GetDllForm.pas
View File

@ -7,18 +7,18 @@ uses
dxCore, ActiveX; dxCore, ActiveX;
function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; export; stdcall; function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; export; stdcall;
function ConnData(): Boolean; function ConnData(): Boolean;
function GetsysParam(muserId: pchar; fparam1: pchar): Boolean; function GetsysParam(muserId: pchar; fparam1: pchar): Boolean;
implementation implementation
uses uses
U_DataLink, U_Fun, U_iniParam, U_MJManageNewFDNew, U_ProductOrderList, U_DataLink, U_Fun, U_iniParam, U_MJManageNewFDNew, U_ProductOrderList,
U_ProductOrderAnPai, U_MJEdit, U_JYOrderCDOne, U_JYOrderCDMore, U_ProductOrderAnPai, U_MJEdit, U_JYOrderCDOne, U_JYOrderCDMore,
U_CpCkSaoMNewSel, U_CKProductBCPInList, U_CKProductBCPOutList, U_BanCpHCSaoM, U_CpCkSaoMNewSel, U_CKProductBCPInList, U_CKProductBCPOutList, U_BanCpHCSaoM,
U_CKProductBCPHCList, U_CKProductBCPKCList, U_CKProductBCPKCHZList, U_CKProductBCPHCList, U_CKProductBCPKCList, U_CKProductBCPKCHZList,
U_CpRkSaoMNew, U_ClothContractList, U_ClothContractKCList, U_CpRkSaoMNew, U_ClothContractList, U_ClothContractKCList,
U_ProductOrderNewList, U_ClothPDInfoList, U_ClothHCList, U_ContractListNX, U_ProductOrderNewList, U_ClothPDInfoList, U_ClothHCList, U_ContractListNX,
U_ClothContractListSX, U_ClothContractListHZ, U_ProductOrderLBNameSet, U_ClothContractListSX, U_ClothContractListHZ, U_ProductOrderLBNameSet,
@ -70,21 +70,22 @@ begin
SetLength(user, 255); SetLength(user, 255);
SetLength(pswd, 255); SetLength(pswd, 255);
server := '101.132.143.144,7781'; server := '101.132.143.144,7781';
// server:='.'; // server:='.';
dtbase := 'jiazejydata'; dtbase := 'jiazejydata';
user := 'rtsa'; user := 'rtsa';
pswd := 'rightsoft@5740'; pswd := 'rightsoft@5740';
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;
IF trim(DataBaseStr)<>''then if trim(DataBaseStr) <> '' then
DConString := DataBaseStr; DConString := DataBaseStr;
DParameters1:='¸ßȨÏÞ'; // DParameters1:='高权限';
//DCode:='ADMIN'; //DCode:='ADMIN';
//DName:='ADMIN'; //DName:='ADMIN';
// DParameters2:='³ÉÆ·¹ÜÀí'; //12 // DParameters2:='³ÉÆ·¹ÜÀí'; //12
// DParameters2:='¹ÜÀí'; // DParameters2:='¹ÜÀí';
DParameters2 := '打卷';
if not ConnData() then if not ConnData() then
begin begin
result := 0; result := 0;
@ -335,7 +336,7 @@ begin
end; end;
19: //¼ìÑ鱨¸æ 19: //¼ìÑ鱨¸æ
begin begin
if frmJYOrderCDOne = nil then if frmJYOrderCDOne = nil then
begin begin
frmJYOrderCDOne := TfrmJYOrderCDOne.Create(application.MainForm); frmJYOrderCDOne := TfrmJYOrderCDOne.Create(application.MainForm);
with frmJYOrderCDOne do with frmJYOrderCDOne do
@ -542,6 +543,7 @@ initialization
CoInitialize(nil); CoInitialize(nil);
dxUnitsLoader.Initialize; dxUnitsLoader.Initialize;
finalization finalization
DataLink_TradeManage.Free; DataLink_TradeManage.Free;
application := NewDllApp; application := NewDllApp;

71
打卷检验管理/U_JYOrderCDOne.dfm
View File

@ -1,6 +1,6 @@
object frmJYOrderCDOne: TfrmJYOrderCDOne object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 1020 Left = 215
Top = 275 Top = 124
Width = 1400 Width = 1400
Height = 757 Height = 757
Caption = #26816#39564#25253#21578 Caption = #26816#39564#25253#21578
@ -22,7 +22,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1392 Width = 1392
Height = 92 Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 119 ButtonWidth = 119
@ -101,28 +101,27 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Top = 0 Top = 0
Caption = #25209#37327#20462#25913#32568#21495 Caption = #25209#37327#20462#25913#32568#21495
ImageIndex = 54 ImageIndex = 54
Wrap = True
OnClick = ToolButton11Click OnClick = ToolButton11Click
end end
object TBDW: TToolButton object TBDW: TToolButton
Left = 0 Left = 608
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913#25968#37327#21333#20301 Caption = #20462#25913#25968#37327#21333#20301
ImageIndex = 54 ImageIndex = 54
OnClick = TBDWClick OnClick = TBDWClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 111 Left = 719
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#35843#25972#31859#25968 Caption = #25209#37327#35843#25972#31859#25968
ImageIndex = 54 ImageIndex = 54
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton13: TToolButton object ToolButton13: TToolButton
Left = 222 Left = 830
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#20928#37325#36716#38271#24230 Caption = #25209#37327#20928#37325#36716#38271#24230
ImageIndex = 54 ImageIndex = 54
@ -130,15 +129,16 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton13Click OnClick = ToolButton13Click
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 345 Left = 953
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#20462#25913#30382#37325 Caption = #25209#37327#20462#25913#30382#37325
ImageIndex = 54 ImageIndex = 54
Wrap = True
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 456 Left = 0
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#26631#31614 Caption = #25171#21360#26631#31614
@ -146,7 +146,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TCPDB: TToolButton object TCPDB: TToolButton
Left = 543 Left = 87
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25104#21697#25171#21253 Caption = #25104#21697#25171#21253
@ -154,7 +154,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TCPDBClick OnClick = TCPDBClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 630 Left = 174
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#21253#26631#31614 Caption = #25171#21360#21253#26631#31614
@ -163,25 +163,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 729 Left = 273
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#26816#39564#25253#21578 Caption = #25171#21360#26816#39564#25253#21578
ImageIndex = 12 ImageIndex = 12
Wrap = True
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 0 Left = 384
Top = 60 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
ImageIndex = 12 ImageIndex = 12
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object Edit3: TEdit object Edit3: TEdit
Left = 63 Left = 447
Top = 60 Top = 30
Width = 68 Width = 68
Height = 30 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -195,8 +194,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnKeyPress = Edit3KeyPress OnKeyPress = Edit3KeyPress
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 131 Left = 515
Top = 63 Top = 33
Width = 149 Width = 149
Height = 24 Height = 24
Style = csDropDownList Style = csDropDownList
@ -219,8 +218,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
'') '')
end end
object Edit4: TEdit object Edit4: TEdit
Left = 280 Left = 664
Top = 60 Top = 30
Width = 121 Width = 121
Height = 30 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -233,32 +232,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Visible = False Visible = False
end end
object ToolButton12: TToolButton object ToolButton12: TToolButton
Left = 401 Left = 785
Top = 60 Top = 30
Caption = #20462#25913#30721#21333 Caption = #20462#25913#30721#21333
ImageIndex = 54 ImageIndex = 54
Visible = False Visible = False
OnClick = ToolButton12Click OnClick = ToolButton12Click
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 520 Left = 904
Top = 60 Top = 30
AutoSize = True AutoSize = True
Caption = #24322#24120#25968#25454 Caption = #24322#24120#25968#25454
ImageIndex = 2 ImageIndex = 2
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 607 Left = 991
Top = 60 Top = 30
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 75 ImageIndex = 75
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 670 Left = 1054
Top = 60 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 55 ImageIndex = 55
@ -267,7 +266,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 92 Top = 62
Width = 1392 Width = 1392
Height = 88 Height = 88
Align = alTop Align = alTop
@ -782,9 +781,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 180 Top = 150
Width = 1392 Width = 1392
Height = 546 Height = 576
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3

10
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -548,6 +548,16 @@ begin
TCPDB.Visible := True; TCPDB.Visible := True;
ToolButton3.Visible := True; ToolButton3.Visible := True;
end; end;
if Trim(DParameters2) = '´ò¾í' then
begin
TBZF.Visible := false;
TBManage.Visible := True;
v1Column22.visible := True;
v1Column15.Options.Focusing := True;
ToolButton1.Visible := True;
TCPDB.Visible := True;
ToolButton3.Visible := True;
end;
if Trim(DParameters2) = '成品管理' then if Trim(DParameters2) = '成品管理' then
begin begin
v1Column22.visible := False; v1Column22.visible := False;