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

1234

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-10-27 16:45:04 +08:00
parent 1d94a89439
commit 31fc78d5e5
11 changed files with 155 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
样品仓库(SampleWarehouse.dll)/SampleWarehouse.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\ÓîÉÐ\ÑùÆ·²Ö¿â(SampleWarehouse.dll)\testDll.exe
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\D7gmYushang\ÑùÆ·²Ö¿â(SampleWarehouse.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

1
样品仓库(SampleWarehouse.dll)/SampleWarehouse.dpr
View File

@ -6,6 +6,7 @@ uses
forms,
WinTypes,
WinProcs,
midaslib,
U_GetDllForm in 'U_GetDllForm.pas',
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},

15
样品仓库(SampleWarehouse.dll)/U_DataLink.pas
View File

@ -5,7 +5,20 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, SyncObjs, ExtCtrls,
dxSkinsCore, dxSkinsDefaultPainters;
dxSkinsCore, 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;
type
TMyThread = class(TThread)

48
样品仓库(SampleWarehouse.dll)/U_JYGLlist.dfm
View File

@ -20,7 +20,7 @@ object frmJYGLlist: TfrmJYGLlist
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1370
Width = 1362
Height = 62
AutoSize = True
ButtonHeight = 30
@ -208,7 +208,7 @@ object frmJYGLlist: TfrmJYGLlist
object Panel1: TPanel
Left = 0
Top = 62
Width = 1370
Width = 1362
Height = 65
Align = alTop
BevelInner = bvRaised
@ -358,6 +358,19 @@ object frmJYGLlist: TfrmJYGLlist
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 804
Top = 36
Width = 53
Height = 12
Caption = #26465' '#30721' '#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 76
Top = 11
@ -477,12 +490,21 @@ object frmJYGLlist: TfrmJYGLlist
TabOrder = 10
OnKeyPress = salesmanKeyPress
end
object mjid: TEdit
Tag = 2
Left = 856
Top = 32
Width = 80
Height = 20
TabOrder = 11
OnKeyPress = salesmanKeyPress
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 175
Width = 1370
Height = 309
Width = 1362
Height = 301
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
@ -491,6 +513,7 @@ object frmJYGLlist: TfrmJYGLlist
OnCellClick = Tv1CellClick
OnCustomDrawCell = Tv1CustomDrawCell
DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
@ -516,7 +539,6 @@ object frmJYGLlist: TfrmJYGLlist
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
@ -717,6 +739,12 @@ object frmJYGLlist: TfrmJYGLlist
Styles.Header = cxStyle4
Width = 90
end
object Tv1Column11: TcxGridDBColumn
Caption = #26465#30721#21495
DataBinding.FieldName = 'MJID'
HeaderAlignmentHorz = taCenter
Width = 72
end
object v1Note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
@ -813,8 +841,8 @@ object frmJYGLlist: TfrmJYGLlist
end
object GroupBox1: TGroupBox
Left = 0
Top = 484
Width = 1370
Top = 476
Width = 1362
Height = 195
Align = alBottom
Caption = #32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289
@ -823,7 +851,7 @@ object frmJYGLlist: TfrmJYGLlist
object ScrollBox1: TScrollBox
Left = 2
Top = 14
Width = 1366
Width = 1358
Height = 179
Align = alClient
BevelInner = bvLowered
@ -834,7 +862,7 @@ object frmJYGLlist: TfrmJYGLlist
object cxTabControl1: TcxTabControl
Left = 0
Top = 127
Width = 1370
Width = 1362
Height = 24
Align = alTop
Font.Charset = GB2312_CHARSET
@ -912,7 +940,7 @@ object frmJYGLlist: TfrmJYGLlist
object cxTabControl2: TcxTabControl
Left = 0
Top = 151
Width = 1370
Width = 1362
Height = 24
Align = alTop
Font.Charset = GB2312_CHARSET

18
样品仓库(SampleWarehouse.dll)/U_JYGLlist.pas
View File

@ -12,7 +12,20 @@ uses
RM_Class, RM_e_Xls, RM_GridReport, RM_System, RM_Dataset, cxTextEdit, cxPC,
cxCheckBox, Menus, U_SLT, jpeg, cxContainer, cxMaskEdit, MovePanel,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
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
TfrmJYGLlist = class(TForm)
@ -139,6 +152,9 @@ type
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Label12: TLabel;
mjid: TEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure OrderNoChange(Sender: TObject);

26
样品仓库(SampleWarehouse.dll)/U_JYGLlistCW.dfm
View File

@ -20,7 +20,7 @@ object frmJYGLlistCW: TfrmJYGLlistCW
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1369
Width = 1361
AutoSize = True
ButtonHeight = 30
ButtonWidth = 131
@ -155,7 +155,7 @@ object frmJYGLlistCW: TfrmJYGLlistCW
object Panel1: TPanel
Left = 0
Top = 32
Width = 1369
Width = 1361
Height = 65
Align = alTop
BevelInner = bvRaised
@ -407,8 +407,8 @@ object frmJYGLlistCW: TfrmJYGLlistCW
object cxGrid1: TcxGrid
Left = 0
Top = 120
Width = 1369
Height = 260
Width = 1361
Height = 252
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
@ -586,7 +586,7 @@ object frmJYGLlistCW: TfrmJYGLlistCW
object cxTabControl1: TcxTabControl
Left = 0
Top = 97
Width = 1369
Width = 1361
Height = 23
Align = alTop
Font.Charset = GB2312_CHARSET
@ -681,16 +681,16 @@ object frmJYGLlistCW: TfrmJYGLlistCW
end
object cxSplitter1: TcxSplitter
Left = 0
Top = 380
Width = 1369
Top = 372
Width = 1361
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
end
object Panel2: TPanel
Left = 0
Top = 388
Width = 1369
Top = 380
Width = 1361
Height = 196
Align = alBottom
BevelOuter = bvNone
@ -699,7 +699,7 @@ object frmJYGLlistCW: TfrmJYGLlistCW
object cxGrid2: TcxGrid
Left = 0
Top = 0
Width = 1369
Width = 1361
Height = 196
Align = alClient
PopupMenu = PopupMenu1
@ -888,6 +888,12 @@ object frmJYGLlistCW: TfrmJYGLlistCW
HeaderAlignmentHorz = taCenter
Width = 75
end
object TV2Column7: TcxGridDBColumn
Caption = #26465#30721#21495
DataBinding.FieldName = 'MJID'
HeaderAlignmentHorz = taCenter
Width = 69
end
object TV2Column3: TcxGridDBColumn
Caption = #20179#24211#31867#22411
DataBinding.FieldName = 'CKLX'

16
样品仓库(SampleWarehouse.dll)/U_JYGLlistCW.pas
View File

@ -13,7 +13,20 @@ uses
cxCheckBox, Menus, U_SLT, jpeg, cxContainer, cxMaskEdit, MovePanel,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
cxCalendar, cxSplitter, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinscxPCPainter;
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
TfrmJYGLlistCW = class(TForm)
@ -139,6 +152,7 @@ type
TV2Column5: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
TV2Column6: TcxGridDBColumn;
TV2Column7: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure OrderNoChange(Sender: TObject);

8
样品仓库(SampleWarehouse.dll)/U_JYGLlistCX.dfm
View File

@ -373,6 +373,7 @@ object frmJYGLlistCX: TfrmJYGLlistCX
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
@ -398,7 +399,6 @@ object frmJYGLlistCX: TfrmJYGLlistCX
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
@ -656,6 +656,12 @@ object frmJYGLlistCX: TfrmJYGLlistCX
Visible = False
Width = 68
end
object Tv1Column8: TcxGridDBColumn
Caption = #26465#30721#21495
DataBinding.FieldName = 'MJID'
HeaderAlignmentHorz = taCenter
Width = 74
end
object Tv1Column7: TcxGridDBColumn
Caption = #25552#20132#26102#38388
DataBinding.FieldName = 'TJDATE'

16
样品仓库(SampleWarehouse.dll)/U_JYGLlistCX.pas
View File

@ -12,7 +12,20 @@ uses
RM_Class, RM_e_Xls, RM_GridReport, RM_System, RM_Dataset, cxTextEdit, cxPC,
cxCheckBox, Menus, U_SLT, jpeg, cxContainer, cxMaskEdit, MovePanel,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
cxCalendar, cxSplitter;
cxCalendar, cxSplitter, 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
TfrmJYGLlistCX = class(TForm)
@ -116,6 +129,7 @@ type
Label3: TLabel;
KUWEI: TEdit;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure OrderNoChange(Sender: TObject);

26
样品仓库(SampleWarehouse.dll)/U_JYGLlistSH.dfm
View File

@ -20,7 +20,7 @@ object frmJYGLlistSH: TfrmJYGLlistSH
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1369
Width = 1361
AutoSize = True
ButtonHeight = 30
ButtonWidth = 131
@ -151,7 +151,7 @@ object frmJYGLlistSH: TfrmJYGLlistSH
object Panel1: TPanel
Left = 0
Top = 32
Width = 1369
Width = 1361
Height = 65
Align = alTop
BevelInner = bvRaised
@ -445,8 +445,8 @@ object frmJYGLlistSH: TfrmJYGLlistSH
object cxGrid1: TcxGrid
Left = 0
Top = 120
Width = 1369
Height = 351
Width = 1361
Height = 343
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
@ -626,7 +626,7 @@ object frmJYGLlistSH: TfrmJYGLlistSH
object cxTabControl1: TcxTabControl
Left = 0
Top = 97
Width = 1369
Width = 1361
Height = 23
Align = alTop
Font.Charset = GB2312_CHARSET
@ -720,16 +720,16 @@ object frmJYGLlistSH: TfrmJYGLlistSH
end
object cxSplitter1: TcxSplitter
Left = 0
Top = 471
Width = 1369
Top = 463
Width = 1361
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
end
object Panel2: TPanel
Left = 0
Top = 479
Width = 1369
Top = 471
Width = 1361
Height = 196
Align = alBottom
BevelOuter = bvNone
@ -738,7 +738,7 @@ object frmJYGLlistSH: TfrmJYGLlistSH
object cxGrid2: TcxGrid
Left = 0
Top = 0
Width = 1369
Width = 1361
Height = 196
Align = alClient
PopupMenu = PopupMenu1
@ -935,6 +935,12 @@ object frmJYGLlistSH: TfrmJYGLlistSH
HeaderAlignmentHorz = taCenter
Width = 66
end
object TV2Column10: TcxGridDBColumn
Caption = #26465#30721#21495
DataBinding.FieldName = 'MJID'
HeaderAlignmentHorz = taCenter
Width = 70
end
object cxGridDBColumn21: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'

16
样品仓库(SampleWarehouse.dll)/U_JYGLlistSH.pas
View File

@ -13,7 +13,20 @@ uses
cxCheckBox, Menus, U_SLT, jpeg, cxContainer, cxMaskEdit, MovePanel,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
cxCalendar, cxSplitter, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinscxPCPainter;
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
TfrmJYGLlistSH = class(TForm)
@ -147,6 +160,7 @@ type
QSDATE: TDateTimePicker;
JSDATE: TDateTimePicker;
CheckBox1: TCheckBox;
TV2Column10: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure OrderNoChange(Sender: TObject);