Group_99/D7lmSanshui
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

215764534啊啊啊啊啊

Browse Source
This commit is contained in:
zian 2024-10-26 11:41:42 +08:00
parent 62c17bbec5
commit 138aa06395
9 changed files with 87 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
应收应付/U_YFCR.dfm
View File

@ -20,7 +20,7 @@ object frmYFCR: TfrmYFCR
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1165 Width = 1173
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -124,7 +124,7 @@ object frmYFCR: TfrmYFCR
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1165 Width = 1173
Height = 65 Height = 65
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -262,7 +262,7 @@ object frmYFCR: TfrmYFCR
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 96 Top = 96
Width = 1165 Width = 1173
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -275,14 +275,14 @@ object frmYFCR: TfrmYFCR
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1165 ClientRectRight = 1173
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 118 Top = 118
Width = 1165 Width = 1173
Height = 272 Height = 280
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
@ -458,8 +458,8 @@ object frmYFCR: TfrmYFCR
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 390 Top = 398
Width = 1165 Width = 1173
Height = 237 Height = 237
Align = alBottom Align = alBottom
TabOrder = 4 TabOrder = 4

16
应收应付/U_YFCR.pas
View File

@ -13,7 +13,21 @@ 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, cxCheckComboBox, cxDropDownEdit, Menus, cxLookAndFeels, cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, cxLookAndFeels,
cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator; cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, 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
TfrmYFCR = class(TForm) TfrmYFCR = class(TForm)

10
应收应付/U_YFKInput.dfm
View File

@ -18,7 +18,7 @@ object frmYFKInput: TfrmYFKInput
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 977 Width = 985
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 107 ButtonWidth = 107
@ -75,7 +75,7 @@ object frmYFKInput: TfrmYFKInput
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 0 Left = 0
Top = 277 Top = 277
Width = 977 Width = 985
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -114,7 +114,7 @@ object frmYFKInput: TfrmYFKInput
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 977 Width = 985
Height = 246 Height = 246
Align = alTop Align = alTop
BevelOuter = bvLowered BevelOuter = bvLowered
@ -469,8 +469,8 @@ object frmYFKInput: TfrmYFKInput
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 306 Top = 306
Width = 977 Width = 985
Height = 224 Height = 232
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView

16
应收应付/U_YFKInput.pas
View File

@ -9,7 +9,21 @@ uses
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, cxGridDBTableView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB,
DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit, DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit,
cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
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
TfrmYFKInput = class(TForm) TfrmYFKInput = class(TForm)

2
成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\Dp7Repo\项目代码\三水\成品仓库(FinishedClothWarehouse.dll)\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7lmSanshui\成品仓库(FinishedClothWarehouse.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

16
成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPKCList.dfm
View File

@ -21,7 +21,7 @@ object frmCKProductBCPKCList: TfrmCKProductBCPKCList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1307 Width = 1315
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -67,8 +67,8 @@ object frmCKProductBCPKCList: TfrmCKProductBCPKCList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1307 Width = 1315
Height = 444 Height = 452
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
@ -294,7 +294,7 @@ object frmCKProductBCPKCList: TfrmCKProductBCPKCList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1307 Width = 1315
Height = 64 Height = 64
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -592,7 +592,7 @@ object frmCKProductBCPKCList: TfrmCKProductBCPKCList
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 97 Top = 97
Width = 1307 Width = 1315
Height = 30 Height = 30
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
@ -620,7 +620,7 @@ object frmCKProductBCPKCList: TfrmCKProductBCPKCList
TabOrder = 0 TabOrder = 0
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 3 Properties.Style = 3
Properties.TabIndex = 0 Properties.TabIndex = 1
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#23458#25143#27719#24635 #23458#25143#27719#24635
#20135#21697#27719#24635 #20135#21697#27719#24635
@ -634,13 +634,13 @@ object frmCKProductBCPKCList: TfrmCKProductBCPKCList
object Panel6: TPanel object Panel6: TPanel
Left = 313 Left = 313
Top = 0 Top = 0
Width = 994 Width = 1002
Height = 30 Height = 30
Align = alClient Align = alClient
AutoSize = True AutoSize = True
TabOrder = 1 TabOrder = 1
DesignSize = ( DesignSize = (
994 1002
30) 30)
object Label31: TLabel object Label31: TLabel
Left = 25 Left = 25

17
成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPKCList.pas
View File

@ -11,7 +11,20 @@ uses
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, MovePanel, cxCheckBox, Menus, cxCalendar, RM_Common, RM_Class, cxDropDownEdit, MovePanel, cxCheckBox, Menus, cxCalendar, RM_Common, RM_Class,
RM_GridReport, RM_System, RM_Dataset, BtnEdit, Math, Clipbrd, cxPC, RM_GridReport, RM_System, RM_Dataset, BtnEdit, Math, Clipbrd, 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 type
TfrmCKProductBCPKCList = class(TForm) TfrmCKProductBCPKCList = class(TForm)
@ -182,6 +195,7 @@ begin
1: 1:
begin begin
Panel6.Visible := False; Panel6.Visible := False;
ClearOrHideControls(Panel1, '0', false, True); ClearOrHideControls(Panel1, '0', false, True);
ClearOrHideControls(Panel1, '1', True, True); ClearOrHideControls(Panel1, '1', True, True);
ClearOrHideControls(Panel1, '2', True, False); ClearOrHideControls(Panel1, '2', True, False);
@ -192,6 +206,7 @@ begin
end; end;
IsVisibleTV(Panel1, TV1, '0', True); IsVisibleTV(Panel1, TV1, '0', True);
IsVisibleTV(Panel1, TV1, '1', True); IsVisibleTV(Panel1, TV1, '1', True);
cxgrdPRTColor.Visible := True;
cxgrdJQty.Visible := True; cxgrdJQty.Visible := True;
cxgrdKGQty.Visible := True; cxgrdKGQty.Visible := True;
cxgrdNETKGQty.Visible := True; cxgrdNETKGQty.Visible := True;

16
成品仓库(FinishedClothWarehouse.dll)/U_DataLink.pas
View File

@ -4,7 +4,21 @@ 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; 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 var
DConString:String; {全局连接字符串} DConString:String; {全局连接字符串}
server, dtbase, user, pswd: String; {数据库连接参数} server, dtbase, user, pswd: String; {数据库连接参数}

6
成品仓库(FinishedClothWarehouse.dll)/U_GetDllForm.pas
View File

@ -69,11 +69,11 @@ begin
SetLength(pswd, 255); SetLength(pswd, 255);
if Trim(DataBaseStr) = '' then if Trim(DataBaseStr) = '' then
begin begin
server := '121.40.233.100,7781'; server := '139.196.56.206,7781';
// server := '.'; // server := '.';
dtbase := 'sanshuidata'; dtbase := 'sanshuidata';
user := 'sa'; user := 'sanshuisa';
pswd := 'rightsoft@123'; pswd := 'rightsoft@8599';
// 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;