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

16
应收应付/U_YFCR.pas
View File

@ -13,7 +13,21 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
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
TfrmYFCR = class(TForm)

10
应收应付/U_YFKInput.dfm
View File

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

16
应收应付/U_YFKInput.pas
View File

@ -9,7 +9,21 @@ uses
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB,
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
TfrmYFKInput = class(TForm)

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

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

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

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

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

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

16
成品仓库(FinishedClothWarehouse.dll)/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; {数据库连接参数}

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

@ -69,11 +69,11 @@ begin
SetLength(pswd, 255);
if Trim(DataBaseStr) = '' then
begin
server := '121.40.233.100,7781';
server := '139.196.56.206,7781';
// server := '.';
dtbase := 'sanshuidata';
user := 'sa';
pswd := 'rightsoft@123';
user := 'sanshuisa';
pswd := 'rightsoft@8599';
// pswd := 'rightsoft';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;