Group_99/D10xhGemei
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

123

Browse Source
This commit is contained in:
LZC 2025-02-19 15:18:00 +08:00
parent 1832e9870c
commit b417e6f4c0
13 changed files with 263 additions and 135 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

83
A01基础公司管理/U_CustInput.dfm
View File

@ -69,39 +69,40 @@ inherited frmCustInput: TfrmCustInput
TabOrder = 1 TabOrder = 1
ExplicitTop = 31 ExplicitTop = 31
object Label2: TLabel object Label2: TLabel
Left = 17 Left = 40
Top = 12 Top = 12
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #32534#21495 Caption = #32534#21495
end end
object Label6: TLabel object Label6: TLabel
Left = 17 Left = 40
Top = 49 Top = 49
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #20840#31216 Caption = #20840#31216
end end
object Label7: TLabel object Label7: TLabel
Left = 17 Left = 40
Top = 127 Top = 127
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #22791#27880 Caption = #22791#27880
end end
object Label1: TLabel object Label1: TLabel
Left = 315 Left = 305
Top = 10 Top = 7
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #31616#31216 Caption = #31616#31216
end end
object Label4: TLabel object Label4: TLabel
Left = 17 Left = 416
Top = 85 Top = 214
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #21306#22495 Caption = #21306#22495
Visible = False
end end
object Label8: TLabel object Label8: TLabel
Left = 949 Left = 949
@ -112,21 +113,21 @@ inherited frmCustInput: TfrmCustInput
Visible = False Visible = False
end end
object Label10: TLabel object Label10: TLabel
Left = 605 Left = 628
Top = 49 Top = 49
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #31561#32423 Caption = #31561#32423
end end
object Label3: TLabel object Label3: TLabel
Left = 605 Left = 628
Top = 12 Top = 12
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #31867#22411 Caption = #31867#22411
end end
object Label5: TLabel object Label5: TLabel
Left = 870 Left = 893
Top = 12 Top = 12
Width = 48 Width = 48
Height = 21 Height = 21
@ -141,22 +142,22 @@ inherited frmCustInput: TfrmCustInput
Visible = False Visible = False
end end
object Label11: TLabel object Label11: TLabel
Left = 565 Left = 0
Top = 85 Top = 87
Width = 71 Width = 71
Height = 21 Height = 21
Caption = #22320#21306'/'#22478#24066 Caption = #22320#21306'/'#22478#24066
end end
object Label12: TLabel object Label12: TLabel
Left = 854 Left = 877
Top = 48 Top = 48
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #26376#32467#26041#24335 Caption = #26376#32467#26041#24335
end end
object lbl2: TLabel object lbl2: TLabel
Left = 854 Left = 289
Top = 83 Top = 89
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #19994#21153#21592#65306 Caption = #19994#21153#21592#65306
@ -170,7 +171,7 @@ inherited frmCustInput: TfrmCustInput
Visible = False Visible = False
end end
object Label13: TLabel object Label13: TLabel
Left = 852 Left = 875
Top = 128 Top = 128
Width = 80 Width = 80
Height = 21 Height = 21
@ -178,21 +179,21 @@ inherited frmCustInput: TfrmCustInput
end end
object CoName: TcxTextEdit object CoName: TcxTextEdit
Tag = 2 Tag = 2
Left = 55 Left = 78
Top = 44 Top = 45
TabOrder = 1 TabOrder = 1
Width = 500 Width = 488
end end
object CoAbbrName: TcxTextEdit object CoAbbrName: TcxTextEdit
Tag = 2 Tag = 2
Left = 353 Left = 362
Top = 4 Top = 4
TabOrder = 2 TabOrder = 2
Width = 200 Width = 200
end end
object CoCode: TcxTextEdit object CoCode: TcxTextEdit
Tag = 2 Tag = 2
Left = 55 Left = 78
Top = 6 Top = 6
Enabled = False Enabled = False
TabOrder = 0 TabOrder = 0
@ -200,7 +201,7 @@ inherited frmCustInput: TfrmCustInput
end end
object CoBusinessType: TcxButtonEdit object CoBusinessType: TcxButtonEdit
Tag = 2 Tag = 2
Left = 645 Left = 668
Top = 6 Top = 6
Hint = 'CoBusinessType/'#23458#25143#31867#22411 Hint = 'CoBusinessType/'#23458#25143#31867#22411
Properties.Buttons = < Properties.Buttons = <
@ -235,7 +236,7 @@ inherited frmCustInput: TfrmCustInput
end end
object CoLevel: TcxComboBox object CoLevel: TcxComboBox
Tag = 2 Tag = 2
Left = 644 Left = 667
Top = 43 Top = 43
Properties.Items.Strings = ( Properties.Items.Strings = (
'A' 'A'
@ -247,7 +248,7 @@ inherited frmCustInput: TfrmCustInput
end end
object ParentCoName: TcxButtonEdit object ParentCoName: TcxButtonEdit
Tag = 2 Tag = 2
Left = 927 Left = 950
Top = 7 Top = 7
Hint = 'CoBusinessType/'#23458#25143#31867#22411 Hint = 'CoBusinessType/'#23458#25143#31867#22411
Properties.Buttons = < Properties.Buttons = <
@ -264,7 +265,7 @@ inherited frmCustInput: TfrmCustInput
end end
object CoNote: TcxMemo object CoNote: TcxMemo
Tag = 2 Tag = 2
Left = 55 Left = 78
Top = 127 Top = 127
TabOrder = 7 TabOrder = 7
Height = 77 Height = 77
@ -290,8 +291,8 @@ inherited frmCustInput: TfrmCustInput
end end
object Coarea: TcxButtonEdit object Coarea: TcxButtonEdit
Tag = 2 Tag = 2
Left = 643 Left = 78
Top = 78 Top = 87
Hint = 'Coarea/'#22320#21306 Hint = 'Coarea/'#22320#21306
Properties.Buttons = < Properties.Buttons = <
item item
@ -308,7 +309,7 @@ inherited frmCustInput: TfrmCustInput
end end
object PayMentMonth: TcxComboBox object PayMentMonth: TcxComboBox
Tag = 2 Tag = 2
Left = 927 Left = 950
Top = 44 Top = 44
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
@ -322,8 +323,8 @@ inherited frmCustInput: TfrmCustInput
end end
object Saleser: TcxButtonEdit object Saleser: TcxButtonEdit
Tag = 2 Tag = 2
Left = 927 Left = 362
Top = 80 Top = 86
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
@ -346,14 +347,14 @@ inherited frmCustInput: TfrmCustInput
end end
object AMOUNTOWED: TcxTextEdit object AMOUNTOWED: TcxTextEdit
Tag = 2 Tag = 2
Left = 926 Left = 949
Top = 125 Top = 125
TabOrder = 13 TabOrder = 13
Width = 125 Width = 125
end end
object area: TcxMRUEdit object area: TcxMRUEdit
Left = 55 Left = 455
Top = 86 Top = 216
Hint = 'area/'#21306#22495 Hint = 'area/'#21306#22495
ParentFont = False ParentFont = False
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -366,6 +367,7 @@ inherited frmCustInput: TfrmCustInput
Style.Font.Style = [] Style.Font.Style = []
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 14 TabOrder = 14
Visible = False
Width = 501 Width = 501
end end
end end
@ -435,7 +437,6 @@ inherited frmCustInput: TfrmCustInput
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
TabOrder = 1 TabOrder = 1
ExplicitTop = 32
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -521,6 +522,20 @@ inherited frmCustInput: TfrmCustInput
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 186 Width = 186
end end
object TV2Column3: TcxGridDBColumn
Caption = #21306#22495
DataBinding.FieldName = 'mxarea'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = TV2Column3PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 73
end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
GridView = TV2 GridView = TV2

26
A01基础公司管理/U_CustInput.pas
View File

@ -87,6 +87,7 @@ type
Label13: TLabel; Label13: TLabel;
AMOUNTOWED: TcxTextEdit; AMOUNTOWED: TcxTextEdit;
area: TcxMRUEdit; area: TcxMRUEdit;
TV2Column3: 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);
@ -105,6 +106,7 @@ type
procedure ToolButton8Click(Sender: TObject); procedure ToolButton8Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure areaPropertiesButtonClick(Sender: TObject); procedure areaPropertiesButtonClick(Sender: TObject);
procedure TV2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private private
{ Private declarations } { Private declarations }
procedure InitGrid(); procedure InitGrid();
@ -712,6 +714,30 @@ begin
ClientDataSet1.Delete; ClientDataSet1.Delete;
end; end;
procedure TfrmCustInput.TV2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
MainType := 'Cust';
flag := 'AREA';
flagname := 'ÇøÓò';
if ShowModal = 1 then
begin
with CDS_LXR do
begin
Edit;
FieldByName('mxAREA').AsString := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmCustInput.ToolButton1Click(Sender: TObject); procedure TfrmCustInput.ToolButton1Click(Sender: TObject);
begin begin
WriteCxGrid(trim(self.caption) + 'Tv2', Tv2, '¿Í»§¹ÜÀí'); WriteCxGrid(trim(self.caption) + 'Tv2', Tv2, '¿Í»§¹ÜÀí');

15
A01基础公司管理/U_Customer.dfm
View File

@ -313,14 +313,6 @@ inherited frmCustomer: TfrmCustomer
Options.Editing = False Options.Editing = False
Width = 163 Width = 163
end end
object v2Column3: TcxGridDBColumn
Caption = #21306#22495
DataBinding.FieldName = 'area'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #23458#25143#31561#32423 Caption = #23458#25143#31561#32423
DataBinding.FieldName = 'CoLevel' DataBinding.FieldName = 'CoLevel'
@ -508,6 +500,13 @@ inherited frmCustomer: TfrmCustomer
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 77 Width = 77
end end
object Tv2Column3: TcxGridDBColumn
Caption = #21306#22495
DataBinding.FieldName = 'mxarea'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 74
end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
GridView = Tv2 GridView = Tv2

2
A01基础公司管理/U_Customer.pas
View File

@ -55,7 +55,6 @@ type
CDS_2: TClientDataSet; CDS_2: TClientDataSet;
DS_2: TDataSource; DS_2: TDataSource;
btnSaleser: TToolButton; btnSaleser: TToolButton;
v2Column3: TcxGridDBColumn;
OpenDialog1: TOpenDialog; OpenDialog1: TOpenDialog;
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
@ -98,6 +97,7 @@ type
cxGridDBColumn6: TcxGridDBColumn; cxGridDBColumn6: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel; cxGridLevel3: TcxGridLevel;
Tv2Column2: TcxGridDBColumn; Tv2Column2: TcxGridDBColumn;
Tv2Column3: 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);

157
A02基础产品管理/U_ClothInfo.dfm
View File

@ -10,6 +10,7 @@ inherited frmClothInfo: TfrmClothInfo
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitTop = -87
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 884 ExplicitHeight = 884
PixelsPerInch = 96 PixelsPerInch = 96
@ -524,99 +525,40 @@ inherited frmClothInfo: TfrmClothInfo
Caption = 'Panel9' Caption = 'Panel9'
TabOrder = 0 TabOrder = 0
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 606 Left = 1
Top = 1 Top = 1
Width = 699 Width = 1304
Height = 201 Height = 201
Align = alClient Align = alClient
Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289 Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289
TabOrder = 0 TabOrder = 0
ExplicitLeft = 606
ExplicitWidth = 699
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 2 Left = 2
Top = 23 Top = 23
Width = 695 Width = 1300
Height = 176 Height = 176
Align = alClient Align = alClient
BevelInner = bvLowered BevelInner = bvLowered
BorderStyle = bsNone BorderStyle = bsNone
TabOrder = 0 TabOrder = 0
end ExplicitWidth = 695
end
object cxGrid2: TcxGrid
Left = 1
Top = 1
Width = 605
Height = 201
Align = alLeft
TabOrder = 1
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object cxGridDBColumn1: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 150
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 150
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 150
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 150
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv2
end end
end end
end end
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 2 Left = 10
Top = 42 Top = 42
Width = 1308 Width = 1088
Height = 451 Height = 451
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitLeft = 2
ExplicitTop = 43
ExplicitWidth = 1104
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -667,8 +609,9 @@ inherited frmClothInfo: TfrmClothInfo
Width = 119 Width = 119
end end
object Tv1Column24: TcxGridDBColumn object Tv1Column24: TcxGridDBColumn
Caption = #33521#25991#21697#21517 AlternateCaption = 'qtyunit'
DataBinding.FieldName = 'C_EName' Caption = #21333#20301
DataBinding.FieldName = 'qtyunit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -850,6 +793,75 @@ inherited frmClothInfo: TfrmClothInfo
GridView = Tv1 GridView = Tv1
end end
end end
object cxGrid2: TcxGrid
Left = 1106
Top = 42
Width = 204
Height = 451
Align = alRight
TabOrder = 3
ExplicitLeft = 1107
ExplicitTop = 43
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object cxGridDBColumn1: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 105
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv2
end
end
object cxSplitter2: TcxSplitter
Left = 2
Top = 42
Width = 8
Height = 451
HotZoneClassName = 'TcxMediaPlayer9Style'
end
object cxSplitter3: TcxSplitter
Left = 1098
Top = 42
Width = 8
Height = 451
AlignSplitter = salRight
Control = cxGrid2
ExplicitLeft = 588
ExplicitTop = 380
ExplicitHeight = 100
end
end end
inherited loadProcess: TPanel inherited loadProcess: TPanel
Left = 886 Left = 886
@ -1025,7 +1037,6 @@ inherited frmClothInfo: TfrmClothInfo
Top = 392 Top = 392
end end
object GPM_2: TcxGridPopupMenu object GPM_2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <> PopupMenus = <>
Left = 554 Left = 554
Top = 540 Top = 540

8
A02基础产品管理/U_ClothInfo.pas
View File

@ -143,14 +143,14 @@ type
Tv1Column21: TcxGridDBColumn; Tv1Column21: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
DS_2: TDataSource; DS_2: TDataSource;
ADO_2: TADOQuery;
cxGrid2: TcxGrid; cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView; Tv2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn; cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn; cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel; cxGridLevel2: TcxGridLevel;
ADO_2: TADOQuery; cxSplitter2: TcxSplitter;
cxSplitter3: TcxSplitter;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBDelClick(Sender: TObject); procedure TBDelClick(Sender: TObject);
@ -224,6 +224,8 @@ begin
SqlStr := 'select * from BS_Cloth_Info_Sub A where BCIID =' + quotedstr((CDS_1.fieldbyname('BCIID').AsString)); SqlStr := 'select * from BS_Cloth_Info_Sub A where BCIID =' + quotedstr((CDS_1.fieldbyname('BCIID').AsString));
SqlStr := SqlStr + 'order by dbo.getNum( C_ColorNo) ';
InitAdoData(ADO_2, Tv1, SqlStr, '', ''); InitAdoData(ADO_2, Tv1, SqlStr, '', '');
end; end;

37
A02基础产品管理/U_ClothInfoInput.dfm
View File

@ -75,6 +75,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Ctl3D = False Ctl3D = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 31
object Label1: TLabel object Label1: TLabel
Left = 37 Left = 37
Top = 18 Top = 18
@ -135,7 +136,7 @@ object frmClothInfoInput: TfrmClothInfoInput
end end
object Label9: TLabel object Label9: TLabel
Left = 39 Left = 39
Top = 287 Top = 322
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #22791#27880 Caption = #22791#27880
@ -172,7 +173,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Caption = #24037#33402 Caption = #24037#33402
end end
object Label18: TLabel object Label18: TLabel
Left = 37 Left = 39
Top = 210 Top = 210
Width = 80 Width = 80
Height = 21 Height = 21
@ -201,8 +202,8 @@ object frmClothInfoInput: TfrmClothInfoInput
Caption = #26579#33394#26041#24335 Caption = #26579#33394#26041#24335
end end
object Label2: TLabel object Label2: TLabel
Left = 37 Left = 39
Top = 249 Top = 246
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #26631#20934#25253#20215 Caption = #26631#20934#25253#20215
@ -251,6 +252,13 @@ object frmClothInfoInput: TfrmClothInfoInput
Caption = #21697#21517'2' Caption = #21697#21517'2'
Visible = False Visible = False
end end
object Label25: TLabel
Left = 39
Top = 281
Width = 32
Height = 21
Caption = #21333#20301
end
object C_Code: TcxTextEdit object C_Code: TcxTextEdit
Tag = 2 Tag = 2
Left = 119 Left = 119
@ -382,7 +390,7 @@ object frmClothInfoInput: TfrmClothInfoInput
object CINote: TcxMemo object CINote: TcxMemo
Tag = 2 Tag = 2
Left = 119 Left = 119
Top = 283 Top = 318
TabOrder = 9 TabOrder = 9
Height = 57 Height = 57
Width = 622 Width = 622
@ -525,6 +533,23 @@ object frmClothInfoInput: TfrmClothInfoInput
TabOrder = 22 TabOrder = 22
Width = 233 Width = 233
end end
object qtyunit: TcxMRUEdit
Left = 120
Top = 282
Hint = 'qtyunit/'#25968#37327#21333#20301
ParentFont = False
Properties.ImmediatePost = True
Properties.ReadOnly = False
Properties.OnButtonClick = StkPositionPropertiesButtonClick
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #23435#20307
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 23
Width = 233
end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 751 Left = 751
@ -571,6 +596,8 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 461 Height = 461
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitLeft = 2
ExplicitTop = 32
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

29
A02基础产品管理/U_ClothInfoInput.pas
View File

@ -85,6 +85,8 @@ type
TV1Column3: TcxGridDBColumn; TV1Column3: TcxGridDBColumn;
TV1Column4: TcxGridDBColumn; TV1Column4: TcxGridDBColumn;
StkPosition: TcxMRUEdit; StkPosition: TcxMRUEdit;
Label25: TLabel;
qtyunit: TcxMRUEdit;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
@ -163,6 +165,7 @@ begin
sql.Clear; sql.Clear;
sql.Add('select A.* from BS_Cloth_Info_Sub A '); sql.Add('select A.* from BS_Cloth_Info_Sub A ');
sql.Add(' where A.BCIID=''' + Trim(FBCIID) + ''''); sql.Add(' where A.BCIID=''' + Trim(FBCIID) + '''');
sql.Add('order by dbo.getNum( C_ColorNo)');
Open; Open;
end; end;
SCreateCDS(ADOQueryTemp, CDS_1); SCreateCDS(ADOQueryTemp, CDS_1);
@ -182,6 +185,7 @@ begin
SCSHData(ADOQueryTemp, ScrollBox1, 2); SCSHData(ADOQueryTemp, ScrollBox1, 2);
StkPosition.Text := ADOQueryTemp.FieldByName('StkPosition').AsString; StkPosition.Text := ADOQueryTemp.FieldByName('StkPosition').AsString;
qtyunit.Text := ADOQueryTemp.FieldByName('qtyunit').AsString;
// SCSHData(ADOQueryTemp, ScrollBox1, 0); // SCSHData(ADOQueryTemp, ScrollBox1, 0);
C_FromName.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('FromBCIID').AsString); //Å÷²¼±àºÅ C_FromName.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('FromBCIID').AsString); //Å÷²¼±àºÅ
C_FromName.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName').AsString); //Å÷²¼Ãû³Æ C_FromName.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName').AsString); //Å÷²¼Ãû³Æ
@ -304,6 +308,29 @@ begin
StkPosition.ItemIndex := -1; StkPosition.ItemIndex := -1;
end; end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from KH_ZDY where type=''qtyunit''');
Open;
if isEmpty then
begin
exit;
end;
qtyunit.Properties.LookupItems.Clear;
while not Eof do
begin
qtyunit.Properties.LookupItems.Add(Trim(fieldByName('zdyName').AsString));
Next;
end;
qtyunit.ItemIndex := -1;
end;
InitGrid1(); InitGrid1();
InitGrid(); InitGrid();
@ -386,6 +413,8 @@ begin
FieldByName('BCIID').Value := Trim(MaxBCIID); FieldByName('BCIID').Value := Trim(MaxBCIID);
FieldByName('StkPosition').Value := Trim(StkPosition.text); FieldByName('StkPosition').Value := Trim(StkPosition.text);
FieldByName('QTYUNIT').Value := Trim(QTYUNIT.text);
if trim(C_Code.Text) = '' then if trim(C_Code.Text) = '' then
C_Code.Text := Trim(MaxBCIID); C_Code.Text := Trim(MaxBCIID);
RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', ScrollBox1, 2); RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', ScrollBox1, 2);

3
A05基础资料管理/U_DataLink.pas
View File

@ -6,7 +6,8 @@ uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
System.ImageList, U_BaseDataLink, dxCore, cxLocalization, dxLayoutLookAndFeels, System.ImageList, U_BaseDataLink, dxCore, cxLocalization, dxLayoutLookAndFeels,
cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm; cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm, dxSkinsCore,
dxSkinsDefaultPainters;
type type
TMyThread = class(TThread) TMyThread = class(TThread)

20
A05基础资料管理/U_PositionInPut.dfm
View File

@ -18,6 +18,7 @@ inherited frmPositionInPut: TfrmPositionInPut
Height = 254 Height = 254
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitTop = 80
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -56,6 +57,13 @@ inherited frmPositionInPut: TfrmPositionInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 216 Width = 216
end end
object Tv1Column2: TcxGridDBColumn
Caption = #36890#36947
DataBinding.FieldName = 'entrance'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 81
end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -69,7 +77,7 @@ inherited frmPositionInPut: TfrmPositionInPut
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 99
Caption = 'ToolBar1' Caption = 'ToolBar1'
Images = DataLink_BaseInfo.cxImageList_bar Images = DataLink_BaseInfo.cxImageList_bar
List = True List = True
@ -84,7 +92,7 @@ inherited frmPositionInPut: TfrmPositionInPut
OnClick = TBSaveClick OnClick = TBSaveClick
end end
object TBAdd: TToolButton object TBAdd: TToolButton
Left = 63 Left = 71
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686 Caption = #26032#22686
@ -92,7 +100,7 @@ inherited frmPositionInPut: TfrmPositionInPut
OnClick = TBAddClick OnClick = TBAddClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 126 Left = 142
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20837 Caption = #23548#20837
@ -100,7 +108,7 @@ inherited frmPositionInPut: TfrmPositionInPut
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 189 Left = 213
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -108,7 +116,7 @@ inherited frmPositionInPut: TfrmPositionInPut
OnClick = TBDelClick OnClick = TBDelClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 252 Left = 284
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -116,7 +124,7 @@ inherited frmPositionInPut: TfrmPositionInPut
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 339 Left = 387
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381

4
A05基础资料管理/U_PositionInPut.pas
View File

@ -11,7 +11,8 @@ uses
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, ExtCtrls, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, ExtCtrls,
StrUtils, U_BaseInput, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, StrUtils, U_BaseInput, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxScrollbarAnnotations, cxContainer, dxBarBuiltInMenu, dxDateRanges, dxScrollbarAnnotations, cxContainer, dxBarBuiltInMenu,
System.ImageList, Vcl.ImgList, cxImageList, System.Win.ComObj; System.ImageList, Vcl.ImgList, cxImageList, System.Win.ComObj, dxSkinsCore,
dxSkinsDefaultPainters;
type type
TfrmPositionInPut = class(TfrmBaseInput) TfrmPositionInPut = class(TfrmBaseInput)
@ -44,6 +45,7 @@ type
CDS_LM: TClientDataSet; CDS_LM: TClientDataSet;
OpenDialog1: TOpenDialog; OpenDialog1: TOpenDialog;
ToolButton2: TToolButton; ToolButton2: TToolButton;
Tv1Column2: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

11
A05基础资料管理/U_PositionList.dfm
View File

@ -158,6 +158,13 @@ inherited frmPositionList: TfrmPositionList
Options.Editing = False Options.Editing = False
Width = 180 Width = 180
end end
object Tv2Column1: TcxGridDBColumn
Caption = #36890#36947
DataBinding.FieldName = 'entrance'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 96
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = Tv2 GridView = Tv2
@ -205,8 +212,8 @@ inherited frmPositionList: TfrmPositionList
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_BaseInfo.ADOLink Connection = DataLink_BaseInfo.ADOLink
Left = 417 Left = 415
Top = 104 Top = 147
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_BaseInfo.ADOLink Connection = DataLink_BaseInfo.ADOLink

3
A05基础资料管理/U_PositionList.pas
View File

@ -15,7 +15,7 @@ uses
cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls, cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, RM_BarCode, dxScrollbarAnnotations, cxContainer, dxBarBuiltInMenu, U_BaseList, RM_BarCode, dxScrollbarAnnotations, cxContainer,
cxProgressBar; cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters;
type type
TfrmPositionList = class(TfrmBaseList) TfrmPositionList = class(TfrmBaseList)
@ -51,6 +51,7 @@ type
v2Column1: TcxGridDBColumn; v2Column1: TcxGridDBColumn;
ToolButton6: TToolButton; ToolButton6: TToolButton;
RMBarCodeObject1: TRMBarCodeObject; RMBarCodeObject1: TRMBarCodeObject;
Tv2Column1: 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);