1
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
27a97653a6
commit
3fad37784f
|
|
@ -190,6 +190,13 @@ inherited frmCustInput: TfrmCustInput
|
||||||
Height = 21
|
Height = 21
|
||||||
Caption = #38656#35201#30422#31456
|
Caption = #38656#35201#30422#31456
|
||||||
end
|
end
|
||||||
|
object Label16: TLabel
|
||||||
|
Left = 878
|
||||||
|
Top = 164
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #38376#24215
|
||||||
|
end
|
||||||
object CoName: TcxTextEdit
|
object CoName: TcxTextEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 86
|
Left = 86
|
||||||
|
|
@ -363,7 +370,7 @@ inherited frmCustInput: TfrmCustInput
|
||||||
Left = 950
|
Left = 950
|
||||||
Top = 125
|
Top = 125
|
||||||
TabOrder = 13
|
TabOrder = 13
|
||||||
Width = 125
|
Width = 200
|
||||||
end
|
end
|
||||||
object area: TcxMRUEdit
|
object area: TcxMRUEdit
|
||||||
Left = 1278
|
Left = 1278
|
||||||
|
|
@ -406,6 +413,17 @@ inherited frmCustInput: TfrmCustInput
|
||||||
Text = #21542
|
Text = #21542
|
||||||
Width = 200
|
Width = 200
|
||||||
end
|
end
|
||||||
|
object Stores: TcxComboBox
|
||||||
|
Tag = 2
|
||||||
|
Left = 950
|
||||||
|
Top = 160
|
||||||
|
Properties.DropDownListStyle = lsFixedList
|
||||||
|
Properties.Items.Strings = (
|
||||||
|
#26684#32654
|
||||||
|
#26032#20313)
|
||||||
|
TabOrder = 17
|
||||||
|
Width = 200
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object Panel1: TPanel [2]
|
object Panel1: TPanel [2]
|
||||||
Left = 0
|
Left = 0
|
||||||
|
|
@ -415,8 +433,6 @@ inherited frmCustInput: TfrmCustInput
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Caption = 'Panel1'
|
Caption = 'Panel1'
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
ExplicitTop = 285
|
|
||||||
ExplicitHeight = 388
|
|
||||||
object Panel3: TPanel
|
object Panel3: TPanel
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 1
|
Top = 1
|
||||||
|
|
@ -425,7 +441,6 @@ inherited frmCustInput: TfrmCustInput
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Caption = 'Panel1'
|
Caption = 'Panel1'
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ExplicitHeight = 386
|
|
||||||
object ToolBar3: TToolBar
|
object ToolBar3: TToolBar
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 1
|
Left = 1
|
||||||
|
|
@ -476,7 +491,6 @@ inherited frmCustInput: TfrmCustInput
|
||||||
Align = alClient
|
Align = alClient
|
||||||
BorderStyle = cxcbsNone
|
BorderStyle = cxcbsNone
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
ExplicitHeight = 354
|
|
||||||
object TV2: TcxGridDBTableView
|
object TV2: TcxGridDBTableView
|
||||||
Navigator.Buttons.CustomButtons = <>
|
Navigator.Buttons.CustomButtons = <>
|
||||||
Navigator.Buttons.Delete.Enabled = False
|
Navigator.Buttons.Delete.Enabled = False
|
||||||
|
|
@ -590,7 +604,6 @@ inherited frmCustInput: TfrmCustInput
|
||||||
Align = alRight
|
Align = alRight
|
||||||
Caption = 'Panel1'
|
Caption = 'Panel1'
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
ExplicitHeight = 386
|
|
||||||
object cxGrid1: TcxGrid
|
object cxGrid1: TcxGrid
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 31
|
Top = 31
|
||||||
|
|
@ -599,7 +612,6 @@ inherited frmCustInput: TfrmCustInput
|
||||||
Align = alClient
|
Align = alClient
|
||||||
BorderStyle = cxcbsNone
|
BorderStyle = cxcbsNone
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ExplicitHeight = 354
|
|
||||||
object TV1: TcxGridDBTableView
|
object TV1: TcxGridDBTableView
|
||||||
Navigator.Buttons.CustomButtons = <>
|
Navigator.Buttons.CustomButtons = <>
|
||||||
Navigator.Buttons.Delete.Enabled = False
|
Navigator.Buttons.Delete.Enabled = False
|
||||||
|
|
|
||||||
|
|
@ -15,23 +15,8 @@ uses
|
||||||
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
|
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
|
||||||
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList,
|
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList,
|
||||||
Vcl.ImgList, cxContainer, cxMemo, dxScrollbarAnnotations, dxSkinsCore,
|
Vcl.ImgList, cxContainer, cxMemo, dxScrollbarAnnotations, dxSkinsCore,
|
||||||
dxSkinsDefaultPainters, cxImageList, cxMRUEdit, dxSkinBasic, dxSkinBlack,
|
dxSkinsDefaultPainters, cxImageList, cxMRUEdit, dxSkinOffice2013White,
|
||||||
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom,
|
dxSkinSharpPlus, dxSkinWXI;
|
||||||
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, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
|
|
||||||
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
|
|
||||||
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
|
||||||
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
|
|
||||||
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
|
|
||||||
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
|
|
||||||
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
|
|
||||||
dxSkinXmas2008Blue;
|
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmCustInput = class(TfrmBaseInput)
|
TfrmCustInput = class(TfrmBaseInput)
|
||||||
|
|
@ -108,6 +93,8 @@ type
|
||||||
Label15: TLabel;
|
Label15: TLabel;
|
||||||
MoreFlag: TcxComboBox;
|
MoreFlag: TcxComboBox;
|
||||||
SealFlag: TcxComboBox;
|
SealFlag: TcxComboBox;
|
||||||
|
Label16: TLabel;
|
||||||
|
Stores: TcxComboBox;
|
||||||
procedure FormDestroy(Sender: TObject);
|
procedure FormDestroy(Sender: TObject);
|
||||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
procedure TBCloseClick(Sender: TObject);
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
|
|
||||||
|
|
@ -9,7 +9,6 @@ inherited frmCustomer: TfrmCustomer
|
||||||
FormStyle = fsMDIChild
|
FormStyle = fsMDIChild
|
||||||
Position = poScreenCenter
|
Position = poScreenCenter
|
||||||
Visible = True
|
Visible = True
|
||||||
ExplicitLeft = -381
|
|
||||||
ExplicitWidth = 1556
|
ExplicitWidth = 1556
|
||||||
ExplicitHeight = 576
|
ExplicitHeight = 576
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
|
|
@ -399,6 +398,14 @@ inherited frmCustomer: TfrmCustomer
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 96
|
Width = 96
|
||||||
end
|
end
|
||||||
|
object Tv1Column13: TcxGridDBColumn
|
||||||
|
Caption = #38376#24215
|
||||||
|
DataBinding.FieldName = 'Stores'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 58
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxGridLevel1: TcxGridLevel
|
object cxGridLevel1: TcxGridLevel
|
||||||
GridView = Tv1
|
GridView = Tv1
|
||||||
|
|
|
||||||
|
|
@ -18,23 +18,7 @@ uses
|
||||||
FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async,
|
FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async,
|
||||||
FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, cxContainer,
|
FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, cxContainer,
|
||||||
dxScrollbarAnnotations, Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters,
|
dxScrollbarAnnotations, Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters,
|
||||||
cxProgressBar, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
|
cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
|
||||||
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, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
|
|
||||||
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
|
|
||||||
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
|
||||||
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
|
|
||||||
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
|
|
||||||
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
|
|
||||||
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
|
|
||||||
dxSkinXmas2008Blue;
|
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmCustomer = class(TfrmBaseList)
|
TfrmCustomer = class(TfrmBaseList)
|
||||||
|
|
@ -116,6 +100,7 @@ type
|
||||||
Tv2Column3: TcxGridDBColumn;
|
Tv2Column3: TcxGridDBColumn;
|
||||||
Tv1Column9: TcxGridDBColumn;
|
Tv1Column9: TcxGridDBColumn;
|
||||||
Tv1Column12: TcxGridDBColumn;
|
Tv1Column12: TcxGridDBColumn;
|
||||||
|
Tv1Column13: TcxGridDBColumn;
|
||||||
procedure FormDestroy(Sender: TObject);
|
procedure FormDestroy(Sender: TObject);
|
||||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
procedure TBCloseClick(Sender: TObject);
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
|
|
||||||
|
|
@ -4,42 +4,11 @@ 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, System.ImageList,
|
||||||
System.ImageList, Vcl.ExtCtrls, SyncObjs,
|
Vcl.ExtCtrls, SyncObjs, U_BaseDataLink, cxImageList, cxGraphics, cxEdit,
|
||||||
U_BaseDataLink, cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm,
|
cxContainer, dxSkinsForm, cxLocalization, dxCore, dxLayoutLookAndFeels,
|
||||||
cxLocalization,
|
dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus,
|
||||||
|
dxSkinWXI;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
dxCore, dxLayoutLookAndFeels, dxSkinsCore, dxSkinsDefaultPainters,
|
|
||||||
dxSkinBasic, 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, dxSkinOffice2016Colorful,
|
|
||||||
dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
|
|
||||||
dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
|
|
||||||
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
|
|
||||||
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
|
|
||||||
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
|
|
||||||
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
|
|
||||||
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue;
|
|
||||||
|
|
||||||
type
|
type
|
||||||
TMyThread = class(TThread)
|
TMyThread = class(TThread)
|
||||||
|
|
|
||||||
|
|
@ -1,13 +1,12 @@
|
||||||
inherited frmMachRollMain: TfrmMachRollMain
|
inherited frmMachRollMain: TfrmMachRollMain
|
||||||
Caption = #26426#21488#26816#39564
|
Caption = #26426#21488#26816#39564
|
||||||
ClientHeight = 756
|
ClientHeight = 756
|
||||||
ClientWidth = 1791
|
ClientWidth = 1443
|
||||||
Color = clBtnFace
|
Color = clBtnFace
|
||||||
Font.Charset = ANSI_CHARSET
|
Font.Charset = ANSI_CHARSET
|
||||||
Font.Height = -16
|
Font.Height = -16
|
||||||
FormStyle = fsMDIChild
|
FormStyle = fsMDIChild
|
||||||
Visible = True
|
ExplicitWidth = 1459
|
||||||
ExplicitWidth = 1807
|
|
||||||
ExplicitHeight = 795
|
ExplicitHeight = 795
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 21
|
TextHeight = 21
|
||||||
|
|
@ -563,228 +562,23 @@ inherited frmMachRollMain: TfrmMachRollMain
|
||||||
object Panel_right: TPanel [1]
|
object Panel_right: TPanel [1]
|
||||||
Left = 499
|
Left = 499
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1292
|
Width = 944
|
||||||
Height = 756
|
Height = 756
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Caption = 'Panel_right'
|
Caption = 'Panel_right'
|
||||||
|
DoubleBuffered = False
|
||||||
|
ParentDoubleBuffered = False
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
object ToolBar2: TToolBar
|
ExplicitWidth = 1292
|
||||||
Tag = 1000
|
|
||||||
Left = 1
|
|
||||||
Top = 451
|
|
||||||
Width = 1290
|
|
||||||
Height = 30
|
|
||||||
Align = alBottom
|
|
||||||
AutoSize = True
|
|
||||||
ButtonHeight = 30
|
|
||||||
ButtonWidth = 131
|
|
||||||
Caption = 'ToolBar1'
|
|
||||||
EdgeInner = esNone
|
|
||||||
EdgeOuter = esNone
|
|
||||||
Images = DataLink_TradeInsp.cxImageList_bar
|
|
||||||
List = True
|
|
||||||
ShowCaptions = True
|
|
||||||
TabOrder = 0
|
|
||||||
object ToolButton3: TToolButton
|
|
||||||
Left = 0
|
|
||||||
Top = 0
|
|
||||||
AutoSize = True
|
|
||||||
Caption = #37325#25171
|
|
||||||
ImageIndex = 21
|
|
||||||
OnClick = ToolButton3Click
|
|
||||||
end
|
|
||||||
object Trolldel: TToolButton
|
|
||||||
Left = 71
|
|
||||||
Top = 0
|
|
||||||
AutoSize = True
|
|
||||||
Caption = #21024#38500
|
|
||||||
ImageIndex = 5
|
|
||||||
OnClick = TrolldelClick
|
|
||||||
end
|
|
||||||
object ToolButton4: TToolButton
|
|
||||||
Left = 142
|
|
||||||
Top = 0
|
|
||||||
AutoSize = True
|
|
||||||
Caption = #30133#28857#31649#29702
|
|
||||||
ImageIndex = 2
|
|
||||||
end
|
|
||||||
object ToolButton2: TToolButton
|
|
||||||
Left = 245
|
|
||||||
Top = 0
|
|
||||||
AutoSize = True
|
|
||||||
Caption = #25171#21360#24211#23384#26631#31614
|
|
||||||
ImageIndex = 21
|
|
||||||
OnClick = ToolButton2Click
|
|
||||||
end
|
|
||||||
object ToolButton1: TToolButton
|
|
||||||
Left = 380
|
|
||||||
Top = 0
|
|
||||||
AutoSize = True
|
|
||||||
Caption = #25171#21367#35774#32622
|
|
||||||
ImageIndex = 25
|
|
||||||
OnClick = ToolButton1Click
|
|
||||||
end
|
|
||||||
object Tlog: TToolButton
|
|
||||||
Left = 483
|
|
||||||
Top = 0
|
|
||||||
AutoSize = True
|
|
||||||
Caption = #26085#24535
|
|
||||||
ImageIndex = 30
|
|
||||||
end
|
|
||||||
object ToolButton8: TToolButton
|
|
||||||
Left = 554
|
|
||||||
Top = 0
|
|
||||||
AutoSize = True
|
|
||||||
Caption = #20851#38381
|
|
||||||
ImageIndex = 7
|
|
||||||
OnClick = ToolButton8Click
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object cxGrid3: TcxGrid
|
|
||||||
Tag = 9999
|
|
||||||
Left = 1
|
|
||||||
Top = 481
|
|
||||||
Width = 1290
|
|
||||||
Height = 274
|
|
||||||
Align = alBottom
|
|
||||||
TabOrder = 1
|
|
||||||
object Tv3: TcxGridDBTableView
|
|
||||||
Navigator.Buttons.CustomButtons = <>
|
|
||||||
ScrollbarAnnotations.CustomAnnotations = <>
|
|
||||||
OnCustomDrawCell = Tv3CustomDrawCell
|
|
||||||
DataController.DataSource = ds_3
|
|
||||||
DataController.Filter.AutoDataSetFilter = True
|
|
||||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
|
||||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
||||||
DataController.Summary.FooterSummaryItems = <
|
|
||||||
item
|
|
||||||
Kind = skSum
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Kind = skSum
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Kind = skSum
|
|
||||||
Column = v3GrossWeight
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Kind = skSum
|
|
||||||
Column = v3NetWeight
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Format = #21367#25968':0'
|
|
||||||
Kind = skCount
|
|
||||||
Column = tv3CIID
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Kind = skSum
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Kind = skSum
|
|
||||||
Column = Tv3Yardage
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Kind = skSum
|
|
||||||
Column = Tv3Meter
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Kind = skSum
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Kind = skCount
|
|
||||||
Column = v3PieceNo
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Kind = skSum
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Kind = skSum
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Kind = skSum
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Kind = skSum
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Kind = skSum
|
|
||||||
end>
|
|
||||||
DataController.Summary.SummaryGroups = <>
|
|
||||||
OptionsCustomize.ColumnFiltering = False
|
|
||||||
OptionsView.Footer = True
|
|
||||||
OptionsView.GroupByBox = False
|
|
||||||
object v3PieceNo: TcxGridDBColumn
|
|
||||||
Caption = #21367#21495
|
|
||||||
DataBinding.FieldName = 'PieceNo'
|
|
||||||
DataBinding.IsNullValueType = True
|
|
||||||
FixedKind = fkLeftDynamic
|
|
||||||
HeaderAlignmentHorz = taCenter
|
|
||||||
Options.Editing = False
|
|
||||||
Width = 71
|
|
||||||
end
|
|
||||||
object Tv3Yardage: TcxGridDBColumn
|
|
||||||
Caption = #30721#25968
|
|
||||||
DataBinding.FieldName = 'Yardage'
|
|
||||||
DataBinding.IsNullValueType = True
|
|
||||||
HeaderAlignmentHorz = taCenter
|
|
||||||
Options.Editing = False
|
|
||||||
Width = 69
|
|
||||||
end
|
|
||||||
object Tv3Meter: TcxGridDBColumn
|
|
||||||
Caption = #31859#25968
|
|
||||||
DataBinding.FieldName = 'Meter'
|
|
||||||
DataBinding.IsNullValueType = True
|
|
||||||
HeaderAlignmentHorz = taCenter
|
|
||||||
Options.Editing = False
|
|
||||||
Width = 79
|
|
||||||
end
|
|
||||||
object v3NetWeight: TcxGridDBColumn
|
|
||||||
Caption = #20928#37325
|
|
||||||
DataBinding.FieldName = 'NetWeight'
|
|
||||||
DataBinding.IsNullValueType = True
|
|
||||||
HeaderAlignmentHorz = taCenter
|
|
||||||
Options.Editing = False
|
|
||||||
Options.Sorting = False
|
|
||||||
Width = 62
|
|
||||||
end
|
|
||||||
object v3GrossWeight: TcxGridDBColumn
|
|
||||||
Caption = #27611#37325
|
|
||||||
DataBinding.FieldName = 'GrossWeight'
|
|
||||||
DataBinding.IsNullValueType = True
|
|
||||||
HeaderAlignmentHorz = taCenter
|
|
||||||
Options.Editing = False
|
|
||||||
Options.Sorting = False
|
|
||||||
Width = 61
|
|
||||||
end
|
|
||||||
object Tv3Grade: TcxGridDBColumn
|
|
||||||
Caption = #31561#32423
|
|
||||||
DataBinding.FieldName = 'Grade'
|
|
||||||
DataBinding.IsNullValueType = True
|
|
||||||
HeaderAlignmentHorz = taCenter
|
|
||||||
Options.Editing = False
|
|
||||||
Width = 54
|
|
||||||
end
|
|
||||||
object tv3CIID: TcxGridDBColumn
|
|
||||||
Caption = #21367#26465#30721
|
|
||||||
DataBinding.FieldName = 'BCIOID'
|
|
||||||
DataBinding.IsNullValueType = True
|
|
||||||
HeaderAlignmentHorz = taCenter
|
|
||||||
Options.Editing = False
|
|
||||||
Options.Sorting = False
|
|
||||||
Width = 112
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object cxGridLevel2: TcxGridLevel
|
|
||||||
GridView = Tv3
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object cxGrid2: TcxGrid
|
object cxGrid2: TcxGrid
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 1290
|
Width = 942
|
||||||
Height = 450
|
Height = 421
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 2
|
TabOrder = 0
|
||||||
|
ExplicitWidth = 1290
|
||||||
|
ExplicitHeight = 450
|
||||||
object TV2: TcxGridDBTableView
|
object TV2: TcxGridDBTableView
|
||||||
Navigator.Buttons.CustomButtons = <>
|
Navigator.Buttons.CustomButtons = <>
|
||||||
ScrollbarAnnotations.CustomAnnotations = <>
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
|
@ -941,6 +735,233 @@ inherited frmMachRollMain: TfrmMachRollMain
|
||||||
GridView = TV2
|
GridView = TV2
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object Panel2: TPanel
|
||||||
|
Left = 1
|
||||||
|
Top = 422
|
||||||
|
Width = 942
|
||||||
|
Height = 333
|
||||||
|
Align = alBottom
|
||||||
|
TabOrder = 1
|
||||||
|
ExplicitWidth = 1290
|
||||||
|
object cxGrid3: TcxGrid
|
||||||
|
Tag = 9999
|
||||||
|
Left = 1
|
||||||
|
Top = 31
|
||||||
|
Width = 940
|
||||||
|
Height = 301
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 0
|
||||||
|
ExplicitLeft = 6
|
||||||
|
ExplicitTop = 487
|
||||||
|
ExplicitWidth = 1290
|
||||||
|
ExplicitHeight = 274
|
||||||
|
object Tv3: TcxGridDBTableView
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
OnCustomDrawCell = Tv3CustomDrawCell
|
||||||
|
DataController.DataSource = ds_3
|
||||||
|
DataController.Filter.AutoDataSetFilter = True
|
||||||
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v3GrossWeight
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v3NetWeight
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Format = #21367#25968':0'
|
||||||
|
Kind = skCount
|
||||||
|
Column = tv3CIID
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = Tv3Yardage
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = Tv3Meter
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skCount
|
||||||
|
Column = v3PieceNo
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
object v3PieceNo: TcxGridDBColumn
|
||||||
|
Caption = #21367#21495
|
||||||
|
DataBinding.FieldName = 'PieceNo'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
FixedKind = fkLeftDynamic
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 71
|
||||||
|
end
|
||||||
|
object Tv3Yardage: TcxGridDBColumn
|
||||||
|
Caption = #30721#25968
|
||||||
|
DataBinding.FieldName = 'Yardage'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 69
|
||||||
|
end
|
||||||
|
object Tv3Meter: TcxGridDBColumn
|
||||||
|
Caption = #31859#25968
|
||||||
|
DataBinding.FieldName = 'Meter'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 79
|
||||||
|
end
|
||||||
|
object v3NetWeight: TcxGridDBColumn
|
||||||
|
Caption = #20928#37325
|
||||||
|
DataBinding.FieldName = 'NetWeight'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Sorting = False
|
||||||
|
Width = 62
|
||||||
|
end
|
||||||
|
object v3GrossWeight: TcxGridDBColumn
|
||||||
|
Caption = #27611#37325
|
||||||
|
DataBinding.FieldName = 'GrossWeight'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Sorting = False
|
||||||
|
Width = 61
|
||||||
|
end
|
||||||
|
object Tv3Grade: TcxGridDBColumn
|
||||||
|
Caption = #31561#32423
|
||||||
|
DataBinding.FieldName = 'Grade'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 54
|
||||||
|
end
|
||||||
|
object tv3CIID: TcxGridDBColumn
|
||||||
|
Caption = #21367#26465#30721
|
||||||
|
DataBinding.FieldName = 'BCIOID'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Sorting = False
|
||||||
|
Width = 112
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGridLevel2: TcxGridLevel
|
||||||
|
GridView = Tv3
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ToolBar2: TToolBar
|
||||||
|
Tag = 1000
|
||||||
|
Left = 1
|
||||||
|
Top = 1
|
||||||
|
Width = 940
|
||||||
|
Height = 30
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 30
|
||||||
|
ButtonWidth = 131
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
DoubleBuffered = False
|
||||||
|
EdgeInner = esNone
|
||||||
|
EdgeOuter = esNone
|
||||||
|
Images = DataLink_TradeInsp.cxImageList_bar
|
||||||
|
List = True
|
||||||
|
ParentDoubleBuffered = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 1
|
||||||
|
ExplicitLeft = 5
|
||||||
|
ExplicitTop = 6
|
||||||
|
ExplicitWidth = 1288
|
||||||
|
object ToolButton3: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #37325#25171
|
||||||
|
ImageIndex = 21
|
||||||
|
OnClick = ToolButton3Click
|
||||||
|
end
|
||||||
|
object Trolldel: TToolButton
|
||||||
|
Left = 71
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21024#38500
|
||||||
|
ImageIndex = 5
|
||||||
|
OnClick = TrolldelClick
|
||||||
|
end
|
||||||
|
object ToolButton4: TToolButton
|
||||||
|
Left = 142
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #30133#28857#31649#29702
|
||||||
|
ImageIndex = 2
|
||||||
|
end
|
||||||
|
object ToolButton2: TToolButton
|
||||||
|
Left = 245
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #25171#21360#24211#23384#26631#31614
|
||||||
|
ImageIndex = 21
|
||||||
|
OnClick = ToolButton2Click
|
||||||
|
end
|
||||||
|
object ToolButton1: TToolButton
|
||||||
|
Left = 356
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #25171#21367#35774#32622
|
||||||
|
ImageIndex = 25
|
||||||
|
OnClick = ToolButton1Click
|
||||||
|
end
|
||||||
|
object Tlog: TToolButton
|
||||||
|
Left = 459
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #26085#24535
|
||||||
|
ImageIndex = 30
|
||||||
|
end
|
||||||
|
object ToolButton8: TToolButton
|
||||||
|
Left = 530
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 7
|
||||||
|
OnClick = ToolButton8Click
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxGroupBox_keys: TcxGroupBox [2]
|
object cxGroupBox_keys: TcxGroupBox [2]
|
||||||
Left = 83
|
Left = 83
|
||||||
|
|
@ -1202,7 +1223,6 @@ inherited frmMachRollMain: TfrmMachRollMain
|
||||||
Top = 311
|
Top = 311
|
||||||
end
|
end
|
||||||
object GPM_3: TcxGridPopupMenu
|
object GPM_3: TcxGridPopupMenu
|
||||||
Grid = cxGrid3
|
|
||||||
PopupMenus = <>
|
PopupMenus = <>
|
||||||
Left = 456
|
Left = 456
|
||||||
Top = 411
|
Top = 411
|
||||||
|
|
|
||||||
|
|
@ -23,11 +23,6 @@ uses
|
||||||
type
|
type
|
||||||
TfrmMachRollMain = class(TfrmBaseList)
|
TfrmMachRollMain = class(TfrmBaseList)
|
||||||
Panel_right: TPanel;
|
Panel_right: TPanel;
|
||||||
ToolBar2: TToolBar;
|
|
||||||
ToolButton3: TToolButton;
|
|
||||||
Trolldel: TToolButton;
|
|
||||||
ToolButton4: TToolButton;
|
|
||||||
ToolButton8: TToolButton;
|
|
||||||
cds_params: TClientDataSet;
|
cds_params: TClientDataSet;
|
||||||
cds_paramsdabao: TStringField;
|
cds_paramsdabao: TStringField;
|
||||||
cds_paramspackRolls: TIntegerField;
|
cds_paramspackRolls: TIntegerField;
|
||||||
|
|
@ -61,7 +56,6 @@ type
|
||||||
cds_paramspieceOrder: TBooleanField;
|
cds_paramspieceOrder: TBooleanField;
|
||||||
cds_paramsLabVolume: TStringField;
|
cds_paramsLabVolume: TStringField;
|
||||||
cds_paramsLabPackage: TStringField;
|
cds_paramsLabPackage: TStringField;
|
||||||
Tlog: TToolButton;
|
|
||||||
cxGroupBox_keys: TcxGroupBox;
|
cxGroupBox_keys: TcxGroupBox;
|
||||||
FrameKeyBoard1: TFrameKeyBoard;
|
FrameKeyBoard1: TFrameKeyBoard;
|
||||||
cds_paramsAddwetPresent: TFloatField;
|
cds_paramsAddwetPresent: TFloatField;
|
||||||
|
|
@ -74,17 +68,6 @@ type
|
||||||
cds_paramspacklabNumber: TIntegerField;
|
cds_paramspacklabNumber: TIntegerField;
|
||||||
cds_paramspackPostAction: TStringField;
|
cds_paramspackPostAction: TStringField;
|
||||||
ADO_CJ: TADOQuery;
|
ADO_CJ: TADOQuery;
|
||||||
ToolButton1: TToolButton;
|
|
||||||
cxGrid3: TcxGrid;
|
|
||||||
Tv3: TcxGridDBTableView;
|
|
||||||
v3PieceNo: TcxGridDBColumn;
|
|
||||||
Tv3Yardage: TcxGridDBColumn;
|
|
||||||
Tv3Meter: TcxGridDBColumn;
|
|
||||||
v3NetWeight: TcxGridDBColumn;
|
|
||||||
v3GrossWeight: TcxGridDBColumn;
|
|
||||||
Tv3Grade: TcxGridDBColumn;
|
|
||||||
tv3CIID: TcxGridDBColumn;
|
|
||||||
cxGridLevel2: TcxGridLevel;
|
|
||||||
fRMDB_1: TfrxDBDataset;
|
fRMDB_1: TfrxDBDataset;
|
||||||
frxReport1: TfrxReport;
|
frxReport1: TfrxReport;
|
||||||
frxPPTXExport1: TfrxPPTXExport;
|
frxPPTXExport1: TfrxPPTXExport;
|
||||||
|
|
@ -93,7 +76,6 @@ type
|
||||||
frxOLEObject1: TfrxOLEObject;
|
frxOLEObject1: TfrxOLEObject;
|
||||||
frxRichObject1: TfrxRichObject;
|
frxRichObject1: TfrxRichObject;
|
||||||
frxBarCodeObject1: TfrxBarCodeObject;
|
frxBarCodeObject1: TfrxBarCodeObject;
|
||||||
ToolButton2: TToolButton;
|
|
||||||
cxGrid2: TcxGrid;
|
cxGrid2: TcxGrid;
|
||||||
TV2: TcxGridDBTableView;
|
TV2: TcxGridDBTableView;
|
||||||
cxGridDBColumn1: TcxGridDBColumn;
|
cxGridDBColumn1: TcxGridDBColumn;
|
||||||
|
|
@ -156,6 +138,25 @@ type
|
||||||
cxDBImage1: TcxDBImage;
|
cxDBImage1: TcxDBImage;
|
||||||
Button1: TButton;
|
Button1: TButton;
|
||||||
TV2Column8: TcxGridDBColumn;
|
TV2Column8: TcxGridDBColumn;
|
||||||
|
Panel2: TPanel;
|
||||||
|
cxGrid3: TcxGrid;
|
||||||
|
Tv3: TcxGridDBTableView;
|
||||||
|
v3PieceNo: TcxGridDBColumn;
|
||||||
|
Tv3Yardage: TcxGridDBColumn;
|
||||||
|
Tv3Meter: TcxGridDBColumn;
|
||||||
|
v3NetWeight: TcxGridDBColumn;
|
||||||
|
v3GrossWeight: TcxGridDBColumn;
|
||||||
|
Tv3Grade: TcxGridDBColumn;
|
||||||
|
tv3CIID: TcxGridDBColumn;
|
||||||
|
cxGridLevel2: TcxGridLevel;
|
||||||
|
ToolBar2: TToolBar;
|
||||||
|
ToolButton3: TToolButton;
|
||||||
|
Trolldel: TToolButton;
|
||||||
|
ToolButton4: TToolButton;
|
||||||
|
ToolButton2: TToolButton;
|
||||||
|
ToolButton1: TToolButton;
|
||||||
|
Tlog: TToolButton;
|
||||||
|
ToolButton8: TToolButton;
|
||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
|
@ -427,6 +428,7 @@ begin
|
||||||
Sql.Add(' ,@TMSId =' + quotedstr(MTMSId));
|
Sql.Add(' ,@TMSId =' + quotedstr(MTMSId));
|
||||||
Sql.Add(' ,@Dcode=' + quotedstr(Trim(Dcode)));
|
Sql.Add(' ,@Dcode=' + quotedstr(Trim(Dcode)));
|
||||||
Sql.Add(' ,@DName=' + quotedstr(Trim(DName)));
|
Sql.Add(' ,@DName=' + quotedstr(Trim(DName)));
|
||||||
|
showmessage(sql.Text);
|
||||||
open;
|
open;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
@ -488,7 +490,6 @@ begin
|
||||||
gIsCanDesign := gIsCanDesign;
|
gIsCanDesign := gIsCanDesign;
|
||||||
gGridNativeSet := true;
|
gGridNativeSet := true;
|
||||||
|
|
||||||
// InitDevCombobox(ADOQueryBaseTemp, grade, 'CPGRADE');
|
|
||||||
ReadCxGrid(trim(Self.Caption) + 'Tv3', Tv3, gDllFileCaption);
|
ReadCxGrid(trim(Self.Caption) + 'Tv3', Tv3, gDllFileCaption);
|
||||||
|
|
||||||
if IsINIFile() then
|
if IsINIFile() then
|
||||||
|
|
|
||||||
|
|
@ -76,7 +76,8 @@ begin
|
||||||
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;
|
||||||
// DParameters1:='高权限';
|
// DParameters1:='高权限';
|
||||||
// Parameters2 := '梭织';
|
// Parameters2 := '梭织';
|
||||||
|
DCode := 'ADMIN';
|
||||||
|
DName := 'ADMIN';
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
|
|
|
||||||
|
|
@ -108,8 +108,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
||||||
Height = 439
|
Height = 439
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ExplicitLeft = -1
|
|
||||||
ExplicitTop = 5
|
|
||||||
object Tv1: TcxGridDBTableView
|
object Tv1: TcxGridDBTableView
|
||||||
OnMouseDown = Tv1MouseDown
|
OnMouseDown = Tv1MouseDown
|
||||||
Navigator.Buttons.CustomButtons = <>
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
|
@ -156,7 +154,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
||||||
DataBinding.FieldName = 'SerialNo'
|
DataBinding.FieldName = 'SerialNo'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 50
|
Width = 55
|
||||||
end
|
end
|
||||||
object v1Column11: TcxGridDBColumn
|
object v1Column11: TcxGridDBColumn
|
||||||
Tag = 99
|
Tag = 99
|
||||||
|
|
@ -168,7 +166,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
||||||
Properties.NullStyle = nssUnchecked
|
Properties.NullStyle = nssUnchecked
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Sorting = False
|
Options.Sorting = False
|
||||||
Width = 66
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column1: TcxGridDBColumn
|
object Tv1Column1: TcxGridDBColumn
|
||||||
Caption = #20135#21697#32534#21495
|
Caption = #20135#21697#32534#21495
|
||||||
|
|
@ -183,7 +181,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
||||||
Properties.OnButtonClick = Tv1Column1PropertiesButtonClick
|
Properties.OnButtonClick = Tv1Column1PropertiesButtonClick
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 102
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column7: TcxGridDBColumn
|
object Tv1Column7: TcxGridDBColumn
|
||||||
Caption = #33394#24067#21517#31216
|
Caption = #33394#24067#21517#31216
|
||||||
|
|
@ -201,7 +199,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
||||||
Properties.ListSource = DS_PM
|
Properties.ListSource = DS_PM
|
||||||
Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged
|
Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 125
|
Width = 55
|
||||||
end
|
end
|
||||||
object v1PRTColor: TcxGridDBColumn
|
object v1PRTColor: TcxGridDBColumn
|
||||||
Caption = #39068#33394
|
Caption = #39068#33394
|
||||||
|
|
@ -216,7 +214,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 116
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column12: TcxGridDBColumn
|
object Tv1Column12: TcxGridDBColumn
|
||||||
Caption = #33394#21495
|
Caption = #33394#21495
|
||||||
|
|
@ -238,47 +236,57 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
||||||
Properties.ListSource = DS_YS
|
Properties.ListSource = DS_YS
|
||||||
Properties.OnEditValueChanged = Tv1Column12PropertiesEditValueChanged
|
Properties.OnEditValueChanged = Tv1Column12PropertiesEditValueChanged
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 75
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column9: TcxGridDBColumn
|
object Tv1Column9: TcxGridDBColumn
|
||||||
Caption = #35268#26684
|
Caption = #35268#26684
|
||||||
DataBinding.FieldName = 'C_Spec'
|
DataBinding.FieldName = 'C_Spec'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 70
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column11: TcxGridDBColumn
|
object Tv1Column11: TcxGridDBColumn
|
||||||
Caption = #33457#22411
|
Caption = #33457#22411
|
||||||
DataBinding.FieldName = 'C_Pattern'
|
DataBinding.FieldName = 'C_Pattern'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 80
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column5: TcxGridDBColumn
|
object Tv1Column5: TcxGridDBColumn
|
||||||
Caption = #38376#24133
|
Caption = #38376#24133
|
||||||
DataBinding.FieldName = 'C_Width'
|
DataBinding.FieldName = 'C_Width'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 70
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column10: TcxGridDBColumn
|
object Tv1Column10: TcxGridDBColumn
|
||||||
Caption = #20811#37325
|
Caption = #20811#37325
|
||||||
DataBinding.FieldName = 'C_GramWeight'
|
DataBinding.FieldName = 'C_GramWeight'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 70
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column15: TcxGridDBColumn
|
object Tv1Column15: TcxGridDBColumn
|
||||||
Caption = #25253#21333#25968#37327
|
Caption = #25253#21333#25968#37327
|
||||||
|
DataBinding.FieldName = 'OrderQty'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 86
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column16: TcxGridDBColumn
|
object Tv1Column16: TcxGridDBColumn
|
||||||
Caption = #25253#21333#21333#20301
|
Caption = #25253#21333#21333#20301
|
||||||
|
DataBinding.FieldName = 'OrderUnit'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxLookupComboBoxProperties'
|
||||||
|
Properties.KeyFieldNames = 'CICUnit'
|
||||||
|
Properties.ListColumns = <
|
||||||
|
item
|
||||||
|
Caption = #21333#20301
|
||||||
|
FieldName = 'CICUnit'
|
||||||
|
end>
|
||||||
|
Properties.ListSource = DS_DanWei
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 110
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column8: TcxGridDBColumn
|
object Tv1Column8: TcxGridDBColumn
|
||||||
Caption = #24211#23384#21333#20301
|
Caption = #24211#23384#21333#20301
|
||||||
|
|
@ -286,35 +294,35 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 80
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column4: TcxGridDBColumn
|
object Tv1Column4: TcxGridDBColumn
|
||||||
Caption = #21333#20215
|
Caption = #21333#20215
|
||||||
DataBinding.FieldName = 'Price'
|
DataBinding.FieldName = 'Price'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 70
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column6: TcxGridDBColumn
|
object Tv1Column6: TcxGridDBColumn
|
||||||
Caption = #21253#32568#36153
|
Caption = #21253#32568#36153
|
||||||
DataBinding.FieldName = 'GangFee'
|
DataBinding.FieldName = 'GangFee'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 70
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column13: TcxGridDBColumn
|
object Tv1Column13: TcxGridDBColumn
|
||||||
Caption = #36816#36153
|
Caption = #36816#36153
|
||||||
DataBinding.FieldName = 'Transfee'
|
DataBinding.FieldName = 'Transfee'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 70
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column14: TcxGridDBColumn
|
object Tv1Column14: TcxGridDBColumn
|
||||||
Caption = #20854#23427#36153
|
Caption = #20854#23427#36153
|
||||||
DataBinding.FieldName = 'Otherfee'
|
DataBinding.FieldName = 'Otherfee'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 70
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column17: TcxGridDBColumn
|
object Tv1Column17: TcxGridDBColumn
|
||||||
Caption = #32039#24613#31243#24230
|
Caption = #32039#24613#31243#24230
|
||||||
|
|
@ -326,14 +334,14 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
||||||
#27491#24120
|
#27491#24120
|
||||||
#32039#24613)
|
#32039#24613)
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 95
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column2: TcxGridDBColumn
|
object Tv1Column2: TcxGridDBColumn
|
||||||
Caption = #22791#27880
|
Caption = #22791#27880
|
||||||
DataBinding.FieldName = 'OrdSNote'
|
DataBinding.FieldName = 'OrdSNote'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 105
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column18: TcxGridDBColumn
|
object Tv1Column18: TcxGridDBColumn
|
||||||
Caption = #22791#36135#29366#24577
|
Caption = #22791#36135#29366#24577
|
||||||
|
|
@ -348,6 +356,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
||||||
#27424#21333
|
#27424#21333
|
||||||
#21462#28040#21333)
|
#21462#28040#21333)
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 55
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object cxGrid1Level1: TcxGridLevel
|
object cxGrid1Level1: TcxGridLevel
|
||||||
|
|
@ -569,7 +578,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
||||||
BevelInner = bvNone
|
BevelInner = bvNone
|
||||||
Date = 40916.000000000000000000
|
Date = 40916.000000000000000000
|
||||||
Format = 'yyyy-MM-dd'
|
Format = 'yyyy-MM-dd'
|
||||||
Time = 0.670856296288548000
|
Time = 0.670856296288548100
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
end
|
end
|
||||||
object DLYDate: TDateTimePicker
|
object DLYDate: TDateTimePicker
|
||||||
|
|
@ -581,7 +590,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
||||||
BevelInner = bvNone
|
BevelInner = bvNone
|
||||||
Date = 40916.000000000000000000
|
Date = 40916.000000000000000000
|
||||||
Format = 'yyyy-MM-dd'
|
Format = 'yyyy-MM-dd'
|
||||||
Time = 0.670856296288548000
|
Time = 0.670856296288548100
|
||||||
ShowCheckbox = True
|
ShowCheckbox = True
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
Visible = False
|
Visible = False
|
||||||
|
|
@ -728,6 +737,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
||||||
Top = 312
|
Top = 312
|
||||||
end
|
end
|
||||||
object GPM_1: TcxGridPopupMenu
|
object GPM_1: TcxGridPopupMenu
|
||||||
|
Grid = cxGrid1
|
||||||
PopupMenus = <>
|
PopupMenus = <>
|
||||||
Left = 748
|
Left = 748
|
||||||
Top = 312
|
Top = 312
|
||||||
|
|
@ -838,4 +848,22 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
||||||
Left = 214
|
Left = 214
|
||||||
Top = 346
|
Top = 346
|
||||||
end
|
end
|
||||||
|
object GPM_2: TcxGridPopupMenu
|
||||||
|
Grid = cxGrid2
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 876
|
||||||
|
Top = 496
|
||||||
|
end
|
||||||
|
object DS_DanWei: TDataSource
|
||||||
|
DataSet = ADO_DanWei
|
||||||
|
Left = 664
|
||||||
|
Top = 564
|
||||||
|
end
|
||||||
|
object ADO_DanWei: TADOQuery
|
||||||
|
Connection = DataLink_TradeMarket.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 502
|
||||||
|
Top = 536
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|
|
||||||
|
|
@ -105,6 +105,9 @@ type
|
||||||
Tv1Column16: TcxGridDBColumn;
|
Tv1Column16: TcxGridDBColumn;
|
||||||
Tv1Column17: TcxGridDBColumn;
|
Tv1Column17: TcxGridDBColumn;
|
||||||
Tv1Column18: TcxGridDBColumn;
|
Tv1Column18: TcxGridDBColumn;
|
||||||
|
GPM_2: TcxGridPopupMenu;
|
||||||
|
DS_DanWei: TDataSource;
|
||||||
|
ADO_DanWei: TADOQuery;
|
||||||
procedure TBCloseClick(Sender: TObject);
|
procedure TBCloseClick(Sender: TObject);
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure TBSaveClick(Sender: TObject);
|
procedure TBSaveClick(Sender: TObject);
|
||||||
|
|
@ -411,7 +414,14 @@ begin
|
||||||
sql.Add(' SELECT C_GYSNAME FROM BS_Cloth_Info_GYSCP');
|
sql.Add(' SELECT C_GYSNAME FROM BS_Cloth_Info_GYSCP');
|
||||||
Open;
|
Open;
|
||||||
end;
|
end;
|
||||||
|
with ADO_DanWei do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add(' SELECT A.C_Code,B.CICUnit FROM Bs_Cloth_Info A inner join Bs_Cloth_Info_Coefficient B on A.BCIID=B.BCIID ');
|
||||||
|
sql.Add(' where 2=1 ');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfrmTradeMarketInPut.SaveData(): Boolean;
|
function TfrmTradeMarketInPut.SaveData(): Boolean;
|
||||||
|
|
@ -1322,22 +1332,10 @@ end;
|
||||||
|
|
||||||
procedure TfrmTradeMarketInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
procedure TfrmTradeMarketInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||||
begin
|
begin
|
||||||
|
|
||||||
|
if not ADO_YS.IsEmpty then
|
||||||
begin
|
begin
|
||||||
if not ADO_YS.IsEmpty then
|
if ADO_YS.FieldByName('C_Code').AsString <> CDS_1.FieldByName('C_Code').AsString then
|
||||||
begin
|
|
||||||
if ADO_YS.FieldByName('C_Code').AsString <> CDS_1.FieldByName('C_Code').AsString then
|
|
||||||
begin
|
|
||||||
with ADO_YS do
|
|
||||||
begin
|
|
||||||
Close;
|
|
||||||
sql.Clear;
|
|
||||||
sql.Add(' SELECT A.C_Code,B.C_Color,B.C_ColorNo FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID ');
|
|
||||||
sql.Add(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
|
|
||||||
Open;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
begin
|
||||||
with ADO_YS do
|
with ADO_YS do
|
||||||
begin
|
begin
|
||||||
|
|
@ -1348,8 +1346,46 @@ begin
|
||||||
Open;
|
Open;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
with ADO_YS do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add(' SELECT A.C_Code,B.C_Color,B.C_ColorNo FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID ');
|
||||||
|
sql.Add(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
if not ADO_DanWei.IsEmpty then
|
||||||
|
begin
|
||||||
|
if ADO_DanWei.FieldByName('C_Code').AsString <> CDS_1.FieldByName('C_Code').AsString then
|
||||||
|
begin
|
||||||
|
with ADO_DanWei do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add(' SELECT A.C_Code,B.CICUnit FROM Bs_Cloth_Info A inner join Bs_Cloth_Info_Coefficient B on A.BCIID=B.BCIID ');
|
||||||
|
sql.Add(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
with ADO_DanWei do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add(' SELECT A.C_Code,B.CICUnit FROM Bs_Cloth_Info A inner join Bs_Cloth_Info_Coefficient B on A.BCIID=B.BCIID ');
|
||||||
|
sql.Add(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Bs_Cloth_Info_Coefficient
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmTradeMarketInPut.TvMXCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
procedure TfrmTradeMarketInPut.TvMXCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user