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 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\ÓîÉÐ\ÑùÆ·²Ö¿â(SampleWarehouse.dll)\testDll.exe HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\D7gmYushang\ÑùÆ·²Ö¿â(SampleWarehouse.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

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

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

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

@ -5,7 +5,20 @@ 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, SyncObjs, ExtCtrls, 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 type
TMyThread = class(TThread) TMyThread = class(TThread)

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

@ -20,7 +20,7 @@ object frmJYGLlist: TfrmJYGLlist
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1370 Width = 1362
Height = 62 Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -208,7 +208,7 @@ object frmJYGLlist: TfrmJYGLlist
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 62
Width = 1370 Width = 1362
Height = 65 Height = 65
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -358,6 +358,19 @@ object frmJYGLlist: TfrmJYGLlist
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end 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 object BegDate: TDateTimePicker
Left = 76 Left = 76
Top = 11 Top = 11
@ -477,12 +490,21 @@ object frmJYGLlist: TfrmJYGLlist
TabOrder = 10 TabOrder = 10
OnKeyPress = salesmanKeyPress OnKeyPress = salesmanKeyPress
end end
object mjid: TEdit
Tag = 2
Left = 856
Top = 32
Width = 80
Height = 20
TabOrder = 11
OnKeyPress = salesmanKeyPress
end
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 175 Top = 175
Width = 1370 Width = 1362
Height = 309 Height = 301
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
@ -491,6 +513,7 @@ object frmJYGLlist: TfrmJYGLlist
OnCellClick = Tv1CellClick OnCellClick = Tv1CellClick
OnCustomDrawCell = Tv1CustomDrawCell OnCustomDrawCell = Tv1CustomDrawCell
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -516,7 +539,6 @@ object frmJYGLlist: TfrmJYGLlist
OptionsBehavior.FocusCellOnTab = True OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.Indicator = True OptionsView.Indicator = True
@ -717,6 +739,12 @@ object frmJYGLlist: TfrmJYGLlist
Styles.Header = cxStyle4 Styles.Header = cxStyle4
Width = 90 Width = 90
end end
object Tv1Column11: TcxGridDBColumn
Caption = #26465#30721#21495
DataBinding.FieldName = 'MJID'
HeaderAlignmentHorz = taCenter
Width = 72
end
object v1Note: TcxGridDBColumn object v1Note: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
@ -813,8 +841,8 @@ object frmJYGLlist: TfrmJYGLlist
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 0 Left = 0
Top = 484 Top = 476
Width = 1370 Width = 1362
Height = 195 Height = 195
Align = alBottom Align = alBottom
Caption = #32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289 Caption = #32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289
@ -823,7 +851,7 @@ object frmJYGLlist: TfrmJYGLlist
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 2 Left = 2
Top = 14 Top = 14
Width = 1366 Width = 1358
Height = 179 Height = 179
Align = alClient Align = alClient
BevelInner = bvLowered BevelInner = bvLowered
@ -834,7 +862,7 @@ object frmJYGLlist: TfrmJYGLlist
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1370 Width = 1362
Height = 24 Height = 24
Align = alTop Align = alTop
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -912,7 +940,7 @@ object frmJYGLlist: TfrmJYGLlist
object cxTabControl2: TcxTabControl object cxTabControl2: TcxTabControl
Left = 0 Left = 0
Top = 151 Top = 151
Width = 1370 Width = 1362
Height = 24 Height = 24
Align = alTop Align = alTop
Font.Charset = GB2312_CHARSET 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, RM_Class, RM_e_Xls, RM_GridReport, RM_System, RM_Dataset, cxTextEdit, cxPC,
cxCheckBox, Menus, U_SLT, jpeg, cxContainer, cxMaskEdit, MovePanel, cxCheckBox, Menus, U_SLT, jpeg, cxContainer, cxMaskEdit, MovePanel,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, 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 type
TfrmJYGLlist = class(TForm) TfrmJYGLlist = class(TForm)
@ -139,6 +152,9 @@ type
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Label12: TLabel;
mjid: TEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
procedure OrderNoChange(Sender: TObject); procedure OrderNoChange(Sender: TObject);

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

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

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

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

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

@ -373,6 +373,7 @@ object frmJYGLlistCX: TfrmJYGLlistCX
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -398,7 +399,6 @@ object frmJYGLlistCX: TfrmJYGLlistCX
OptionsBehavior.FocusCellOnTab = True OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.Indicator = True OptionsView.Indicator = True
@ -656,6 +656,12 @@ object frmJYGLlistCX: TfrmJYGLlistCX
Visible = False Visible = False
Width = 68 Width = 68
end end
object Tv1Column8: TcxGridDBColumn
Caption = #26465#30721#21495
DataBinding.FieldName = 'MJID'
HeaderAlignmentHorz = taCenter
Width = 74
end
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #25552#20132#26102#38388 Caption = #25552#20132#26102#38388
DataBinding.FieldName = 'TJDATE' 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, RM_Class, RM_e_Xls, RM_GridReport, RM_System, RM_Dataset, cxTextEdit, cxPC,
cxCheckBox, Menus, U_SLT, jpeg, cxContainer, cxMaskEdit, MovePanel, cxCheckBox, Menus, U_SLT, jpeg, cxContainer, cxMaskEdit, MovePanel,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, 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 type
TfrmJYGLlistCX = class(TForm) TfrmJYGLlistCX = class(TForm)
@ -116,6 +129,7 @@ type
Label3: TLabel; Label3: TLabel;
KUWEI: TEdit; KUWEI: TEdit;
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
procedure OrderNoChange(Sender: TObject); procedure OrderNoChange(Sender: TObject);

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

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

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

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