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

1234

Browse Source
This commit is contained in:
LZC 2025-02-17 12:31:41 +08:00
parent da0eb3032c
commit 2409611d30
13 changed files with 520 additions and 275 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
A00通用窗体/U_LabelPrint.dfm
View File

@ -84,8 +84,8 @@ inherited frmLabelPrint: TfrmLabelPrint
TabOrder = 0 TabOrder = 0
end end
object cbbLab: TcxMRUEdit object cbbLab: TcxMRUEdit
Left = 25 Left = 26
Top = 24 Top = 27
ParentFont = False ParentFont = False
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True Properties.ImmediatePost = True

2
A01基础公司管理/Company.dproj
View File

@ -123,7 +123,7 @@
<BT_BuildType>Debug</BT_BuildType> <BT_BuildType>Debug</BT_BuildType>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\d10myxushang\A01基础公司管理\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10xhGemei\A01基础公司管理\testDll.exe</Debugger_HostApplication>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>

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

@ -67,6 +67,7 @@ inherited frmCustInput: TfrmCustInput
Ctl3D = False Ctl3D = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 31
object Label2: TLabel object Label2: TLabel
Left = 17 Left = 17
Top = 12 Top = 12
@ -83,41 +84,42 @@ inherited frmCustInput: TfrmCustInput
end end
object Label7: TLabel object Label7: TLabel
Left = 17 Left = 17
Top = 157 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 = 304 Left = 315
Top = 12 Top = 10
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 = 17
Top = 124 Top = 85
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #22320#22336 Caption = #21306#22495
end end
object Label8: TLabel object Label8: TLabel
Left = 297 Left = 949
Top = 87 Top = 180
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #22269#23478 Caption = #22269#23478
Visible = False
end end
object Label10: TLabel object Label10: TLabel
Left = 597 Left = 605
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 = 597 Left = 605
Top = 12 Top = 12
Width = 32 Width = 32
Height = 21 Height = 21
@ -131,15 +133,16 @@ inherited frmCustInput: TfrmCustInput
Caption = #21697#29260#21830 Caption = #21697#29260#21830
end end
object Label9: TLabel object Label9: TLabel
Left = 17 Left = 915
Top = 87 Top = 196
Width = 16 Width = 16
Height = 21 Height = 21
Caption = #27954 Caption = #27954
Visible = False
end end
object Label11: TLabel object Label11: TLabel
Left = 558 Left = 565
Top = 87 Top = 85
Width = 71 Width = 71
Height = 21 Height = 21
Caption = #22320#21306'/'#22478#24066 Caption = #22320#21306'/'#22478#24066
@ -152,31 +155,38 @@ inherited frmCustInput: TfrmCustInput
Caption = #26376#32467#26041#24335 Caption = #26376#32467#26041#24335
end end
object lbl2: TLabel object lbl2: TLabel
Left = 861 Left = 854
Top = 87 Top = 83
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #19994#21153#21592#65306 Caption = #19994#21153#21592#65306
end end
object lblSalesId: TLabel object lblSalesId: TLabel
Left = 869 Left = 921
Top = 188 Top = 250
Width = 80 Width = 80
Height = 21 Height = 21
Caption = #19994#21153#32534#21495#65306 Caption = #19994#21153#32534#21495#65306
Visible = False Visible = False
end end
object Label13: TLabel
Left = 852
Top = 128
Width = 80
Height = 21
Caption = #27424#27454#39069#24230#65306
end
object CoName: TcxTextEdit object CoName: TcxTextEdit
Tag = 2 Tag = 2
Left = 55 Left = 55
Top = 43 Top = 44
TabOrder = 1 TabOrder = 1
Width = 487 Width = 500
end end
object CoAbbrName: TcxTextEdit object CoAbbrName: TcxTextEdit
Tag = 2 Tag = 2
Left = 342 Left = 353
Top = 6 Top = 4
TabOrder = 2 TabOrder = 2
Width = 200 Width = 200
end end
@ -190,7 +200,7 @@ inherited frmCustInput: TfrmCustInput
end end
object CoBusinessType: TcxButtonEdit object CoBusinessType: TcxButtonEdit
Tag = 2 Tag = 2
Left = 637 Left = 645
Top = 6 Top = 6
Hint = 'CoBusinessType/'#23458#25143#31867#22411 Hint = 'CoBusinessType/'#23458#25143#31867#22411
Properties.Buttons = < Properties.Buttons = <
@ -207,8 +217,8 @@ inherited frmCustInput: TfrmCustInput
end end
object cocountry: TcxButtonEdit object cocountry: TcxButtonEdit
Tag = 2 Tag = 2
Left = 335 Left = 987
Top = 80 Top = 173
Hint = 'CoCountry/'#22269#23478 Hint = 'CoCountry/'#22269#23478
Properties.Buttons = < Properties.Buttons = <
item item
@ -219,12 +229,13 @@ inherited frmCustInput: TfrmCustInput
Properties.OnButtonClick = BuyNamePropertiesButtonClick Properties.OnButtonClick = BuyNamePropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 4 TabOrder = 4
Visible = False
OnDblClick = CoBusinessTypeDblClick OnDblClick = CoBusinessTypeDblClick
Width = 200 Width = 200
end end
object CoLevel: TcxComboBox object CoLevel: TcxComboBox
Tag = 2 Tag = 2
Left = 636 Left = 644
Top = 43 Top = 43
Properties.Items.Strings = ( Properties.Items.Strings = (
'A' 'A'
@ -237,7 +248,7 @@ inherited frmCustInput: TfrmCustInput
object ParentCoName: TcxButtonEdit object ParentCoName: TcxButtonEdit
Tag = 2 Tag = 2
Left = 927 Left = 927
Top = 8 Top = 7
Hint = 'CoBusinessType/'#23458#25143#31867#22411 Hint = 'CoBusinessType/'#23458#25143#31867#22411
Properties.Buttons = < Properties.Buttons = <
item item
@ -251,25 +262,18 @@ inherited frmCustInput: TfrmCustInput
OnDblClick = CoBusinessTypeDblClick OnDblClick = CoBusinessTypeDblClick
Width = 200 Width = 200
end end
object CoAddress: TcxTextEdit
Tag = 2
Left = 55
Top = 118
TabOrder = 7
Width = 780
end
object CoNote: TcxMemo object CoNote: TcxMemo
Tag = 2 Tag = 2
Left = 55 Left = 55
Top = 157 Top = 127
TabOrder = 8 TabOrder = 7
Height = 77 Height = 77
Width = 780 Width = 780
end end
object Continent: TcxButtonEdit object Continent: TcxButtonEdit
Tag = 2 Tag = 2
Left = 55 Left = 935
Top = 81 Top = 208
Hint = 'Continent/'#27954 Hint = 'Continent/'#27954
Properties.Buttons = < Properties.Buttons = <
item item
@ -279,32 +283,33 @@ inherited frmCustInput: TfrmCustInput
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = BuyNamePropertiesButtonClick Properties.OnButtonClick = BuyNamePropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 8
Visible = False
OnDblClick = CoBusinessTypeDblClick
Width = 200
end
object Coarea: TcxButtonEdit
Tag = 2
Left = 643
Top = 78
Hint = 'Coarea/'#22320#21306
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = BuyNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 9 TabOrder = 9
OnDblClick = CoBusinessTypeDblClick OnDblClick = CoBusinessTypeDblClick
Width = 200
end
object Coarea: TcxButtonEdit
Tag = 2
Left = 636
Top = 80
Hint = 'Coarea/'#22320#21306
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = BuyNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 10
OnDblClick = CoBusinessTypeDblClick
OnKeyPress = CoareaKeyPress OnKeyPress = CoareaKeyPress
Width = 200 Width = 200
end end
object PayMentMonth: TcxComboBox object PayMentMonth: TcxComboBox
Tag = 2 Tag = 2
Left = 927 Left = 927
Top = 43 Top = 44
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
'' ''
@ -312,13 +317,13 @@ inherited frmCustInput: TfrmCustInput
#27425#27425#26376'25'#21495 #27425#27425#26376'25'#21495
#27425#26376'30'#21495 #27425#26376'30'#21495
#27425#27425#26376'30'#21495) #27425#27425#26376'30'#21495)
TabOrder = 11 TabOrder = 10
Width = 200 Width = 200
end end
object Saleser: TcxButtonEdit object Saleser: TcxButtonEdit
Tag = 2 Tag = 2
Left = 924 Left = 927
Top = 82 Top = 80
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
@ -327,18 +332,42 @@ inherited frmCustInput: TfrmCustInput
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = SaleserButtonClick Properties.OnButtonClick = SaleserButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 12 TabOrder = 11
OnDblClick = SaleserDblClick OnDblClick = SaleserDblClick
Width = 200 Width = 200
end end
object SalesId: TcxTextEdit object SalesId: TcxTextEdit
Tag = 2 Tag = 2
Left = 950 Left = 1002
Top = 185 Top = 247
TabOrder = 13 TabOrder = 12
Visible = False Visible = False
Width = 125 Width = 125
end end
object AMOUNTOWED: TcxTextEdit
Tag = 2
Left = 926
Top = 125
TabOrder = 13
Width = 125
end
object area: TcxMRUEdit
Left = 55
Top = 86
Hint = 'area/'#21306#22495
ParentFont = False
Properties.ImmediatePost = True
Properties.ReadOnly = False
Properties.OnButtonClick = areaPropertiesButtonClick
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 = 14
Width = 501
end
end end
object Panel1: TPanel [2] object Panel1: TPanel [2]
Left = 0 Left = 0
@ -406,6 +435,7 @@ 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
@ -484,6 +514,13 @@ inherited frmCustInput: TfrmCustInput
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object TV2Column1: TcxGridDBColumn
Caption = #22320#22336
DataBinding.FieldName = 'mxaddress'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 186
end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
GridView = TV2 GridView = TV2

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

@ -15,7 +15,7 @@ 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; dxSkinsDefaultPainters, cxImageList, cxMRUEdit;
type type
TfrmCustInput = class(TfrmBaseInput) TfrmCustInput = class(TfrmBaseInput)
@ -62,7 +62,6 @@ type
CoLevel: TcxComboBox; CoLevel: TcxComboBox;
ParentCoName: TcxButtonEdit; ParentCoName: TcxButtonEdit;
ToolButton1: TToolButton; ToolButton1: TToolButton;
CoAddress: TcxTextEdit;
CoNote: TcxMemo; CoNote: TcxMemo;
Label9: TLabel; Label9: TLabel;
Continent: TcxButtonEdit; Continent: TcxButtonEdit;
@ -84,6 +83,10 @@ type
ToolButton8: TToolButton; ToolButton8: TToolButton;
ClientDataSet1: TClientDataSet; ClientDataSet1: TClientDataSet;
DataSource1: TDataSource; DataSource1: TDataSource;
TV2Column1: TcxGridDBColumn;
Label13: TLabel;
AMOUNTOWED: TcxTextEdit;
area: TcxMRUEdit;
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);
@ -101,6 +104,7 @@ type
procedure SaleserDblClick(Sender: TObject); procedure SaleserDblClick(Sender: TObject);
procedure ToolButton8Click(Sender: TObject); procedure ToolButton8Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure areaPropertiesButtonClick(Sender: TObject);
private private
{ Private declarations } { Private declarations }
procedure InitGrid(); procedure InitGrid();
@ -134,6 +138,7 @@ begin
end; end;
SCSHData(ADOQueryMain, ScrollBox1, 2); SCSHData(ADOQueryMain, ScrollBox1, 2);
ParentCoName.Properties.LookupItems.Text := ADOQueryMain.FieldByName('ParentCoCode').AsString; ParentCoName.Properties.LookupItems.Text := ADOQueryMain.FieldByName('ParentCoCode').AsString;
area.Text := ADOQueryMain.FieldByName('area').AsString;
with ADOQueryMain do with ADOQueryMain do
begin begin
Filtered := False; Filtered := False;
@ -165,6 +170,30 @@ begin
frmCustInput := nil; frmCustInput := nil;
end; end;
procedure TfrmCustInput.areaPropertiesButtonClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TcxButtonEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
MainType := 'Cust';
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmCustInput.BuyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmCustInput.BuyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var var
fsj: string; fsj: string;
@ -258,6 +287,27 @@ var
begin begin
inherited; inherited;
ReadCxGrid(trim(self.caption) + 'Tv2', Tv2, '客户管理'); ReadCxGrid(trim(self.caption) + 'Tv2', Tv2, '客户管理');
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from KH_ZDY where type=''area''');
Open;
if isEmpty then
begin
exit;
end;
area.Properties.LookupItems.Clear;
while not Eof do
begin
area.Properties.LookupItems.Add(Trim(fieldByName('zdyName').AsString));
Next;
end;
area.ItemIndex := -1;
end;
InitGrid(); InitGrid();
// if trim(FCOID) = '' then // if trim(FCOID) = '' then
// begin // begin
@ -271,6 +321,8 @@ begin
// CoCode.Text := trim(ADOQueryTemp.FieldByName('NewCoCode').asstring); // CoCode.Text := trim(ADOQueryTemp.FieldByName('NewCoCode').asstring);
// end; // end;
//已审核的也要能修改保存，不能修改主表内容，只能改下面两部分 //已审核的也要能修改保存，不能修改主表内容，只能改下面两部分
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
@ -278,10 +330,12 @@ begin
sql.Add(' select * from BS_Company where CoId=' + quotedstr(FCoId)); sql.Add(' select * from BS_Company where CoId=' + quotedstr(FCoId));
Open; Open;
end; end;
if trim(ADOQueryTemp.FieldByName('Status').asstring) = '1' then if trim(ADOQueryTemp.FieldByName('Status').asstring) = '1' then
begin begin
ScrollBox1.Enabled := False; ScrollBox1.Enabled := False;
end; end;
end; end;
procedure TfrmCustInput.SaleserDblClick(Sender: TObject); procedure TfrmCustInput.SaleserDblClick(Sender: TObject);
@ -350,6 +404,7 @@ begin
FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp); FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
end; end;
FieldByName('COID').Value := Trim(MaxId); FieldByName('COID').Value := Trim(MaxId);
FieldByName('area').Value := Trim(area.Text);
RTSetsavedata(ADOQueryCmd, 'BS_Company', ScrollBox1, 2); RTSetsavedata(ADOQueryCmd, 'BS_Company', ScrollBox1, 2);
FieldByName('CoType').Value := '客户'; FieldByName('CoType').Value := '客户';
FieldByName('ParentCoCode').Value := ParentCoName.Properties.LookupItems.Text; FieldByName('ParentCoCode').Value := ParentCoName.Properties.LookupItems.Text;

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

@ -165,7 +165,7 @@ inherited frmCustomer: TfrmCustomer
Top = 20 Top = 20
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #22269#23478 Caption = #21306#22495
end end
object Label5: TLabel object Label5: TLabel
Left = 342 Left = 342
@ -174,13 +174,6 @@ inherited frmCustomer: TfrmCustomer
Height = 21 Height = 21
Caption = #31616#31216 Caption = #31616#31216
end end
object Label6: TLabel
Left = 838
Top = 20
Width = 32
Height = 21
Caption = #22320#21306
end
object CoName: TcxTextEdit object CoName: TcxTextEdit
Tag = 2 Tag = 2
Left = 218 Left = 218
@ -208,7 +201,7 @@ inherited frmCustomer: TfrmCustomer
OnKeyPress = CoCodeKeyPress OnKeyPress = CoCodeKeyPress
Width = 120 Width = 120
end end
object cocountry: TcxTextEdit object area: TcxTextEdit
Tag = 2 Tag = 2
Left = 714 Left = 714
Top = 16 Top = 16
@ -226,15 +219,6 @@ inherited frmCustomer: TfrmCustomer
OnKeyPress = CoCodeKeyPress OnKeyPress = CoCodeKeyPress
Width = 120 Width = 120
end end
object Coarea: TcxTextEdit
Tag = 2
Left = 874
Top = 16
Properties.OnChange = CoCodePropertiesChange
TabOrder = 5
OnKeyPress = CoCodeKeyPress
Width = 120
end
end end
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
@ -330,8 +314,8 @@ inherited frmCustomer: TfrmCustomer
Width = 163 Width = 163
end end
object v2Column3: TcxGridDBColumn object v2Column3: TcxGridDBColumn
Caption = #22269#23478 Caption = #21306#22495
DataBinding.FieldName = 'cocountry' DataBinding.FieldName = 'area'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -400,14 +384,6 @@ inherited frmCustomer: TfrmCustomer
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column9: TcxGridDBColumn
Caption = #27954
DataBinding.FieldName = 'Continent'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
end
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #22320#21306 Caption = #22320#21306
DataBinding.FieldName = 'Coarea' DataBinding.FieldName = 'Coarea'
@ -525,6 +501,13 @@ inherited frmCustomer: TfrmCustomer
Options.Editing = False Options.Editing = False
Width = 169 Width = 169
end end
object Tv2Column2: TcxGridDBColumn
Caption = #22320#22336
DataBinding.FieldName = 'mxaddress'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
GridView = Tv2 GridView = Tv2

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

@ -49,7 +49,7 @@ type
btnEdit: TToolButton; btnEdit: TToolButton;
Label2: TLabel; Label2: TLabel;
Saleser: TcxTextEdit; Saleser: TcxTextEdit;
cocountry: TcxTextEdit; area: TcxTextEdit;
Label4: TLabel; Label4: TLabel;
v2Column15: TcxGridDBColumn; v2Column15: TcxGridDBColumn;
CDS_2: TClientDataSet; CDS_2: TClientDataSet;
@ -84,12 +84,9 @@ type
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
ToolButton2: TToolButton; ToolButton2: TToolButton;
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn;
Label5: TLabel; Label5: TLabel;
CoAbbrName: TcxTextEdit; CoAbbrName: TcxTextEdit;
Label6: TLabel;
Coarea: TcxTextEdit;
PopupMenu1: TPopupMenu; PopupMenu1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
N2: TMenuItem; N2: TMenuItem;
@ -100,6 +97,7 @@ type
Tv3: TcxGridDBTableView; Tv3: TcxGridDBTableView;
cxGridDBColumn6: TcxGridDBColumn; cxGridDBColumn6: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel; cxGridLevel3: TcxGridLevel;
Tv2Column2: 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);

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

@ -72,7 +72,7 @@ begin
if trim(DataBaseStr) = '' then if trim(DataBaseStr) = '' then
begin begin
server := '101.132.143.144,7781'; server := '101.132.143.144,7781';
dtbase := 'xushangData'; dtbase := 'gemeiData';
user := 'rtsa'; user := 'rtsa';
pswd := 'rightsoft@5740'; pswd := 'rightsoft@5740';
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;

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

@ -2,33 +2,31 @@ inherited frmClothInfo: TfrmClothInfo
Left = 117 Left = 117
Top = 154 Top = 154
Caption = #20135#21697#26723#26696 Caption = #20135#21697#26723#26696
ClientHeight = 926 ClientHeight = 845
ClientWidth = 1855 ClientWidth = 1540
Color = clBtnFace Color = clBtnFace
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitWidth = 1871 ExplicitWidth = 1556
ExplicitHeight = 965 ExplicitHeight = 884
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1855 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 99 ButtonWidth = 99
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clBtnFace
DisabledImages = DataLink_ClothInfo.cxImageList_bar DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar Images = DataLink_ClothInfo.cxImageList_bar
List = True List = True
ParentColor = True
ShowCaptions = True ShowCaptions = True
TabOrder = 3 TabOrder = 3
object TBRafresh: TToolButton object TBRafresh: TToolButton
@ -156,14 +154,14 @@ inherited frmClothInfo: TfrmClothInfo
Left = 220 Left = 220
Top = 145 Top = 145
Width = 8 Width = 8
Height = 781 Height = 700
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
Control = Panel5 Control = Panel5
end end
object Panel1: TPanel [2] object Panel1: TPanel [2]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1855 Width = 1540
Height = 115 Height = 115
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -174,26 +172,14 @@ inherited frmClothInfo: TfrmClothInfo
object Label11: TLabel object Label11: TLabel
Left = 1072 Left = 1072
Top = 107 Top = 107
Width = 7 Width = 5
Height = 12 Height = 21
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = True
end end
object Label12: TLabel object Label12: TLabel
Left = 626 Left = 626
Top = 107 Top = 107
Width = 7 Width = 5
Height = 12 Height = 21
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = True
end end
object Label3: TLabel object Label3: TLabel
Left = 553 Left = 553
@ -384,13 +370,6 @@ inherited frmClothInfo: TfrmClothInfo
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290 Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = True
TabOrder = 5 TabOrder = 5
Visible = False Visible = False
end end
@ -398,7 +377,7 @@ inherited frmClothInfo: TfrmClothInfo
Left = 0 Left = 0
Top = 145 Top = 145
Width = 220 Width = 220
Height = 781 Height = 700
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -407,7 +386,7 @@ inherited frmClothInfo: TfrmClothInfo
Left = 2 Left = 2
Top = 2 Top = 2
Width = 216 Width = 216
Height = 777 Height = 696
Align = alClient Align = alClient
Bands = < Bands = <
item item
@ -439,8 +418,8 @@ inherited frmClothInfo: TfrmClothInfo
object Panel3: TPanel [5] object Panel3: TPanel [5]
Left = 228 Left = 228
Top = 145 Top = 145
Width = 1627 Width = 1312
Height = 781 Height = 700
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -449,7 +428,7 @@ inherited frmClothInfo: TfrmClothInfo
object Panel7: TPanel object Panel7: TPanel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 1623 Width = 1308
Height = 40 Height = 40
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
@ -457,14 +436,14 @@ inherited frmClothInfo: TfrmClothInfo
object Panel4: TPanel object Panel4: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1623 Width = 1308
Height = 40 Height = 40
Align = alClient Align = alClient
AutoSize = True AutoSize = True
ParentColor = True ParentColor = True
TabOrder = 0 TabOrder = 0
DesignSize = ( DesignSize = (
1623 1308
40) 40)
object Label14: TLabel object Label14: TLabel
Left = 21 Left = 21
@ -530,8 +509,8 @@ inherited frmClothInfo: TfrmClothInfo
end end
object Panel9: TPanel object Panel9: TPanel
Left = 2 Left = 2
Top = 574 Top = 493
Width = 1623 Width = 1308
Height = 205 Height = 205
Align = alBottom Align = alBottom
Caption = 'Panel9' Caption = 'Panel9'
@ -539,7 +518,7 @@ inherited frmClothInfo: TfrmClothInfo
object Panel10: TPanel object Panel10: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1621 Width = 1306
Height = 203 Height = 203
Align = alClient Align = alClient
Caption = 'Panel9' Caption = 'Panel9'
@ -547,7 +526,7 @@ inherited frmClothInfo: TfrmClothInfo
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 606 Left = 606
Top = 1 Top = 1
Width = 1014 Width = 699
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
@ -555,7 +534,7 @@ inherited frmClothInfo: TfrmClothInfo
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 2 Left = 2
Top = 23 Top = 23
Width = 1010 Width = 695
Height = 176 Height = 176
Align = alClient Align = alClient
BevelInner = bvLowered BevelInner = bvLowered
@ -633,8 +612,8 @@ inherited frmClothInfo: TfrmClothInfo
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 2 Left = 2
Top = 42 Top = 42
Width = 1623 Width = 1308
Height = 532 Height = 451
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
@ -879,10 +858,10 @@ inherited frmClothInfo: TfrmClothInfo
ExplicitTop = 338 ExplicitTop = 338
end end
inherited cxProgressBar2: TcxProgressBar inherited cxProgressBar2: TcxProgressBar
Left = 959 Left = 687
Top = 515 Top = 343
ExplicitLeft = 959 ExplicitLeft = 687
ExplicitTop = 515 ExplicitTop = 343
ExplicitHeight = 29 ExplicitHeight = 29
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery

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

@ -91,14 +91,14 @@ object frmClothInfoInput: TfrmClothInfoInput
end end
object Label15: TLabel object Label15: TLabel
Left = 37 Left = 37
Top = 94 Top = 95
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #26377#25928#38376#24133 Caption = #26377#25928#38376#24133
end end
object Label22: TLabel object Label22: TLabel
Left = 421 Left = 420
Top = 94 Top = 56
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #25104#21697#20811#37325 Caption = #25104#21697#20811#37325
@ -119,99 +119,104 @@ object frmClothInfoInput: TfrmClothInfoInput
Visible = False Visible = False
end end
object Label7: TLabel object Label7: TLabel
Left = 37 Left = 385
Top = 132 Top = 462
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #20013#25991#25104#20998 Caption = #20013#25991#25104#20998
Visible = False
end end
object Label6: TLabel object Label6: TLabel
Left = 37 Left = 37
Top = 169 Top = 133
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #35268#26684 Caption = #35268#26684
end end
object Label9: TLabel object Label9: TLabel
Left = 37 Left = 39
Top = 402 Top = 287
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #22791#27880 Caption = #22791#27880
end end
object Label11: TLabel object Label11: TLabel
Left = 37 Left = 364
Top = 242 Top = 465
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #24067#31181 Caption = #24067#31181
Visible = False
end end
object Label10: TLabel object Label10: TLabel
Left = 421 Left = 386
Top = 132 Top = 463
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #33521#25991#25104#20998 Caption = #33521#25991#25104#20998
Visible = False
end end
object Label12: TLabel object Label12: TLabel
Left = 37 Left = 364
Top = 279 Top = 502
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #32433#32447#24418#24577 Caption = #32433#32447#24418#24577
Visible = False
end end
object Label16: TLabel object Label16: TLabel
Left = 421 Left = 420
Top = 242 Top = 170
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #24037#33402 Caption = #24037#33402
end end
object Label18: TLabel object Label18: TLabel
Left = 37 Left = 37
Top = 316 Top = 210
Width = 80 Width = 80
Height = 21 Height = 21
Caption = #20379#24212#21830#20195#21495 Caption = #20379#24212#21830#20195#21495
end end
object Label19: TLabel object Label19: TLabel
Left = 421 Left = 420
Top = 316 Top = 246
Width = 48 Width = 48
Height = 21 Height = 21
Caption = #20379#24212#21830 Caption = #20379#24212#21830
end end
object Label21: TLabel object Label21: TLabel
Left = 421 Left = 389
Top = 56 Top = 453
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #33521#25991#21697#21517 Caption = #33521#25991#21697#21517
Visible = False
end end
object Label23: TLabel object Label23: TLabel
Left = 421 Left = 420
Top = 279 Top = 208
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #26579#33394#26041#24335 Caption = #26579#33394#26041#24335
end end
object Label2: TLabel object Label2: TLabel
Left = 37 Left = 37
Top = 353 Top = 249
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #26631#20934#25253#20215 Caption = #26631#20934#25253#20215
end end
object Label8: TLabel object Label8: TLabel
Left = 37 Left = 37
Top = 205 Top = 172
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #37197#36135#31995#25968 Caption = #37197#36135#31995#25968
end end
object Label13: TLabel object Label13: TLabel
Left = 421 Left = 420
Top = 205 Top = 132
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #37197#39069#38480#21046 Caption = #37197#39069#38480#21046
@ -224,8 +229,8 @@ object frmClothInfoInput: TfrmClothInfoInput
Caption = '%' Caption = '%'
end end
object Label20: TLabel object Label20: TLabel
Left = 421 Left = 420
Top = 169 Top = 94
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #24211#20301 Caption = #24211#20301
@ -236,6 +241,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 41 Width = 41
Height = 21 Height = 21
Caption = #21697#21517'1' Caption = #21697#21517'1'
Visible = False
end end
object Label24: TLabel object Label24: TLabel
Left = 433 Left = 433
@ -243,6 +249,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 41 Width = 41
Height = 21 Height = 21
Caption = #21697#21517'2' Caption = #21697#21517'2'
Visible = False
end end
object C_Code: TcxTextEdit object C_Code: TcxTextEdit
Tag = 2 Tag = 2
@ -256,7 +263,7 @@ object frmClothInfoInput: TfrmClothInfoInput
object C_Name: TcxTextEdit object C_Name: TcxTextEdit
Tag = 2 Tag = 2
Left = 507 Left = 507
Top = 12 Top = 13
TabOrder = 1 TabOrder = 1
OnKeyPress = CYColorKeyPress OnKeyPress = CYColorKeyPress
Width = 234 Width = 234
@ -272,7 +279,7 @@ object frmClothInfoInput: TfrmClothInfoInput
object C_GramWeight: TcxButtonEdit object C_GramWeight: TcxButtonEdit
Tag = 2 Tag = 2
Left = 507 Left = 507
Top = 88 Top = 51
Hint = 'C_GramWeight/'#20811#37325 Hint = 'C_GramWeight/'#20811#37325
Properties.Buttons = < Properties.Buttons = <
item item
@ -288,8 +295,8 @@ object frmClothInfoInput: TfrmClothInfoInput
end end
object C_Composition: TcxButtonEdit object C_Composition: TcxButtonEdit
Tag = 2 Tag = 2
Left = 119 Left = 467
Top = 126 Top = 456
Hint = 'C_Composition/'#25104#20998 Hint = 'C_Composition/'#25104#20998
Properties.Buttons = < Properties.Buttons = <
item item
@ -300,13 +307,14 @@ object frmClothInfoInput: TfrmClothInfoInput
Properties.OnButtonClick = C_WidthPropertiesButtonClick Properties.OnButtonClick = C_WidthPropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 4 TabOrder = 4
Visible = False
OnDblClick = C_GramWeightDblClick OnDblClick = C_GramWeightDblClick
Width = 234 Width = 234
end end
object C_Spec: TcxButtonEdit object C_Spec: TcxButtonEdit
Tag = 2 Tag = 2
Left = 119 Left = 119
Top = 163 Top = 128
Hint = 'C_Spec/'#35268#26684 Hint = 'C_Spec/'#35268#26684
Properties.Buttons = < Properties.Buttons = <
item item
@ -333,13 +341,14 @@ object frmClothInfoInput: TfrmClothInfoInput
Properties.OnButtonClick = C_FromNamePropertiesButtonClick Properties.OnButtonClick = C_FromNamePropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 6 TabOrder = 6
Visible = False
OnDblClick = C_GramWeightDblClick OnDblClick = C_GramWeightDblClick
Width = 234 Width = 234
end end
object C_Width: TcxButtonEdit object C_Width: TcxButtonEdit
Tag = 2 Tag = 2
Left = 119 Left = 119
Top = 88 Top = 91
Hint = 'C_Width/'#38376#24133 Hint = 'C_Width/'#38376#24133
Properties.Buttons = < Properties.Buttons = <
item item
@ -356,7 +365,7 @@ object frmClothInfoInput: TfrmClothInfoInput
object C_Pattern: TcxButtonEdit object C_Pattern: TcxButtonEdit
Tag = 2 Tag = 2
Left = 119 Left = 119
Top = 50 Top = 52
Hint = 'C_Pattern/'#33457#22411 Hint = 'C_Pattern/'#33457#22411
Properties.Buttons = < Properties.Buttons = <
item item
@ -373,23 +382,24 @@ object frmClothInfoInput: TfrmClothInfoInput
object CINote: TcxMemo object CINote: TcxMemo
Tag = 2 Tag = 2
Left = 119 Left = 119
Top = 384 Top = 283
TabOrder = 9 TabOrder = 9
Height = 57 Height = 57
Width = 622 Width = 622
end end
object GC_Name: TcxTextEdit object GC_Name: TcxTextEdit
Tag = 2 Tag = 2
Left = 119 Left = 446
Top = 236 Top = 459
TabOrder = 10 TabOrder = 10
Visible = False
OnKeyPress = CYColorKeyPress OnKeyPress = CYColorKeyPress
Width = 234 Width = 234
end end
object C_EComposition: TcxButtonEdit object C_EComposition: TcxButtonEdit
Tag = 2 Tag = 2
Left = 507 Left = 472
Top = 126 Top = 457
Hint = 'C_EComposition/'#25104#20998 Hint = 'C_EComposition/'#25104#20998
Properties.Buttons = < Properties.Buttons = <
item item
@ -400,21 +410,23 @@ object frmClothInfoInput: TfrmClothInfoInput
Properties.OnButtonClick = C_WidthPropertiesButtonClick Properties.OnButtonClick = C_WidthPropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 11 TabOrder = 11
Visible = False
OnDblClick = C_GramWeightDblClick OnDblClick = C_GramWeightDblClick
Width = 234 Width = 234
end end
object C_YarnSpec: TcxTextEdit object C_YarnSpec: TcxTextEdit
Tag = 2 Tag = 2
Left = 119 Left = 446
Top = 273 Top = 496
TabOrder = 12 TabOrder = 12
Visible = False
OnKeyPress = CYColorKeyPress OnKeyPress = CYColorKeyPress
Width = 234 Width = 234
end end
object CraftCode: TcxTextEdit object CraftCode: TcxTextEdit
Tag = 2 Tag = 2
Left = 507 Left = 507
Top = 236 Top = 167
TabOrder = 13 TabOrder = 13
OnKeyPress = CYColorKeyPress OnKeyPress = CYColorKeyPress
Width = 234 Width = 234
@ -422,7 +434,7 @@ object frmClothInfoInput: TfrmClothInfoInput
object FtyNo: TcxTextEdit object FtyNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 119 Left = 119
Top = 310 Top = 206
TabOrder = 14 TabOrder = 14
OnKeyPress = CYColorKeyPress OnKeyPress = CYColorKeyPress
Width = 234 Width = 234
@ -430,39 +442,42 @@ object frmClothInfoInput: TfrmClothInfoInput
object FtyName: TcxTextEdit object FtyName: TcxTextEdit
Tag = 2 Tag = 2
Left = 507 Left = 507
Top = 310 Top = 244
TabOrder = 15 TabOrder = 15
OnKeyPress = CYColorKeyPress OnKeyPress = CYColorKeyPress
Width = 234 Width = 234
end end
object C_EName: TcxTextEdit object C_EName: TcxTextEdit
Tag = 2 Tag = 2
Left = 507 Left = 475
Top = 50 Top = 447
TabOrder = 16 TabOrder = 16
Visible = False
OnKeyPress = CYColorKeyPress OnKeyPress = CYColorKeyPress
Width = 234 Width = 234
end end
object DyeingMethod: TcxTextEdit object DyeingMethod: TcxTextEdit
Tag = 2 Tag = 2
Left = 507 Left = 507
Top = 273 Top = 206
TabOrder = 17 TabOrder = 17
OnKeyPress = CYColorKeyPress OnKeyPress = CYColorKeyPress
Width = 234 Width = 234
end end
object CostPrice: TcxCurrencyEdit object CostPrice: TcxCurrencyEdit
Tag = 2 Tag = 2
Left = 119 Left = 120
Top = 347 Top = 242
EditValue = 0.000000000000000000
Properties.AssignedValues.DisplayFormat = True Properties.AssignedValues.DisplayFormat = True
Properties.OnEditValueChanged = CostPricePropertiesEditValueChanged
TabOrder = 18 TabOrder = 18
Width = 234 Width = 234
end end
object distributionCoefficient: TcxCurrencyEdit object distributionCoefficient: TcxCurrencyEdit
Tag = 2 Tag = 2
Left = 119 Left = 119
Top = 199 Top = 167
Properties.AssignedValues.DisplayFormat = True Properties.AssignedValues.DisplayFormat = True
TabOrder = 19 TabOrder = 19
Width = 234 Width = 234
@ -470,29 +485,12 @@ object frmClothInfoInput: TfrmClothInfoInput
object quota: TcxCurrencyEdit object quota: TcxCurrencyEdit
Tag = 2 Tag = 2
Left = 507 Left = 507
Top = 199 Top = 129
EditValue = 10.000000000000000000 EditValue = 10.000000000000000000
Properties.AssignedValues.DisplayFormat = True Properties.AssignedValues.DisplayFormat = True
TabOrder = 20 TabOrder = 20
Width = 210 Width = 210
end end
object StkPosition: TcxButtonEdit
Tag = 2
Left = 507
Top = 163
Hint = 'StkPosition/'#24211#20301
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = C_WidthPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 21
OnDblClick = C_GramWeightDblClick
Width = 234
end
object C_FromName2: TcxButtonEdit object C_FromName2: TcxButtonEdit
Tag = 7 Tag = 7
Left = 505 Left = 505
@ -505,10 +503,28 @@ object frmClothInfoInput: TfrmClothInfoInput
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.OnButtonClick = C_FromName2PropertiesButtonClick Properties.OnButtonClick = C_FromName2PropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 22 TabOrder = 21
Visible = False
OnDblClick = C_GramWeightDblClick OnDblClick = C_GramWeightDblClick
Width = 234 Width = 234
end end
object StkPosition: TcxMRUEdit
Left = 511
Top = 96
Hint = 'StkPosition/'#24211#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 = 22
Width = 233
end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 751 Left = 751
@ -580,7 +596,7 @@ object frmClothInfoInput: TfrmClothInfoInput
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 55 Width = 54
end end
object TV1Column2: TcxGridDBColumn object TV1Column2: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
@ -589,20 +605,6 @@ object frmClothInfoInput: TfrmClothInfoInput
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object TV1Column3: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
object TV1Column4: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 103
end
object TV1Column5: TcxGridDBColumn object TV1Column5: TcxGridDBColumn
Caption = #28014#21160#20215 Caption = #28014#21160#20215
DataBinding.FieldName = 'floatPrice' DataBinding.FieldName = 'floatPrice'
@ -620,6 +622,20 @@ object frmClothInfoInput: TfrmClothInfoInput
Options.Editing = False Options.Editing = False
Width = 94 Width = 94
end end
object TV1Column3: TcxGridDBColumn
Caption = #20215#26684#19978#38480'(%)'
DataBinding.FieldName = 'MAXPRICE'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 106
end
object TV1Column4: TcxGridDBColumn
Caption = #20215#26684#19979#38480'(%)'
DataBinding.FieldName = 'MinPRICE'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
GridView = TV1 GridView = TV1

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

@ -11,7 +11,7 @@ uses
cxButtonEdit, StdCtrls, ExtCtrls, cxCurrencyEdit, BtnEdit, U_BaseList, cxButtonEdit, StdCtrls, ExtCtrls, cxCurrencyEdit, BtnEdit, U_BaseList,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, cxCheckBox, cxDropDownEdit, cxContainer, cxMaskEdit, dxBarBuiltInMenu, cxCheckBox, cxDropDownEdit, cxContainer, cxMaskEdit,
dxScrollbarAnnotations, cxMemo, dxSkinsCore, dxSkinsDefaultPainters; dxScrollbarAnnotations, cxMemo, dxSkinsCore, dxSkinsDefaultPainters, cxMRUEdit;
type type
TfrmClothInfoInput = class(TForm) TfrmClothInfoInput = class(TForm)
@ -64,8 +64,6 @@ type
TV1: TcxGridDBTableView; TV1: TcxGridDBTableView;
TV1Column1: TcxGridDBColumn; TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn; TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
TV1Column4: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel; cxGridLevel2: TcxGridLevel;
DS_1: TDataSource; DS_1: TDataSource;
CDS_1: TClientDataSet; CDS_1: TClientDataSet;
@ -79,12 +77,14 @@ type
Label13: TLabel; Label13: TLabel;
Label14: TLabel; Label14: TLabel;
Label20: TLabel; Label20: TLabel;
StkPosition: TcxButtonEdit;
TV1Column5: TcxGridDBColumn; TV1Column5: TcxGridDBColumn;
TV1Column6: TcxGridDBColumn; TV1Column6: TcxGridDBColumn;
C_FromName2: TcxButtonEdit; C_FromName2: TcxButtonEdit;
Label17: TLabel; Label17: TLabel;
Label24: TLabel; Label24: TLabel;
TV1Column3: TcxGridDBColumn;
TV1Column4: TcxGridDBColumn;
StkPosition: 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);
@ -99,6 +99,8 @@ type
procedure TV1Column5PropertiesEditValueChanged(Sender: TObject); procedure TV1Column5PropertiesEditValueChanged(Sender: TObject);
procedure C_WidthPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure C_WidthPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure C_FromName2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure C_FromName2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure CostPricePropertiesEditValueChanged(Sender: TObject);
procedure StkPositionPropertiesButtonClick(Sender: TObject);
private private
canshu1: string; canshu1: string;
Fint: Integer; Fint: Integer;
@ -130,6 +132,29 @@ begin
C_Name.Text := Trim(C_FromName.Text) + '+' + Trim(C_FromName2.Text); C_Name.Text := Trim(C_FromName.Text) + '+' + Trim(C_FromName2.Text);
end; end;
procedure TfrmClothInfoInput.StkPositionPropertiesButtonClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TcxmruEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TcxmruEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmClothInfoInput.InitGrid1(); procedure TfrmClothInfoInput.InitGrid1();
begin begin
with ADOQueryTemp do with ADOQueryTemp do
@ -156,6 +181,7 @@ begin
end; end;
SCSHData(ADOQueryTemp, ScrollBox1, 2); SCSHData(ADOQueryTemp, ScrollBox1, 2);
StkPosition.Text := ADOQueryTemp.FieldByName('StkPosition').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); //坯布名称
@ -257,9 +283,29 @@ end;
procedure TfrmClothInfoInput.FormShow(Sender: TObject); procedure TfrmClothInfoInput.FormShow(Sender: TObject);
begin begin
readCxGrid(self.Caption + 'TV1', Tv1, '样品管理'); readCxGrid(self.Caption + 'TV1', Tv1, '样品管理');
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from KH_ZDY where type=''StkPosition''');
InitGrid(); Open;
if isEmpty then
begin
exit;
end;
StkPosition.Properties.LookupItems.Clear;
while not Eof do
begin
StkPosition.Properties.LookupItems.Add(Trim(fieldByName('zdyName').AsString));
Next;
end;
StkPosition.ItemIndex := -1;
end;
InitGrid1(); InitGrid1();
InitGrid();
if TypeInt = 1 then if TypeInt = 1 then
begin begin
@ -338,6 +384,8 @@ begin
FieldByName('EDITTIME').Value := SGetServerDateTime(ADOQueryTemp); FieldByName('EDITTIME').Value := SGetServerDateTime(ADOQueryTemp);
end; end;
FieldByName('BCIID').Value := Trim(MaxBCIID); FieldByName('BCIID').Value := Trim(MaxBCIID);
FieldByName('StkPosition').Value := Trim(StkPosition.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);
@ -461,16 +509,17 @@ begin
sql.Clear; sql.Clear;
sql.Add('select count(BCISID) as AA from BS_Cloth_Info_Sub where BCIID=''' + Trim(MaxBCIID) + ''''); sql.Add('select count(BCISID) as AA from BS_Cloth_Info_Sub where BCIID=''' + Trim(MaxBCIID) + '''');
sql.Add(' group by C_Color,C_ColorNo having count(BCISID)>1'); sql.Add(' group by C_Color,C_ColorNo having count(BCISID)>1');
// ShowMessage(sql.Text);
Open; Open;
if FieldByName('AA').AsInteger > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('颜色色号重复！', '提示', 0);
Exit;
end;
end;
end;
if StrToFloatDef(ADOQueryTemp.fieldbyname('AA').asstring, 1) > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('颜色色号重复！', '提示', 0);
Exit;
end;
////////////////////////// 保存子表 ////////////////////////// ////////////////////////// 保存子表 //////////////////////////
/// ///
/// ///
@ -487,6 +536,7 @@ begin
// end; // end;
FBCIID := MaxBCIID; FBCIID := MaxBCIID;
InitGrid1();
Result := True; Result := True;
except except
Result := False; Result := False;
@ -526,14 +576,14 @@ begin
Application.MessageBox('请输入中文品名!', '提示', 0); Application.MessageBox('请输入中文品名!', '提示', 0);
Exit; Exit;
end; end;
if CDS_1.Locate('C_Color', null, []) = True then // if CDS_1.Locate('C_Color', null, []) = True then
begin // begin
Application.MessageBox('请输入色号!', '提示', 0); // Application.MessageBox('请输入颜色!', '提示', 0);
Exit; // Exit;
end; // end;
if CDS_1.Locate('C_ColorNo', null, []) = True then if CDS_1.Locate('C_ColorNo', null, []) = True then
begin begin
Application.MessageBox('请输入颜色!', '提示', 0); Application.MessageBox('请输入色号!', '提示', 0);
Exit; Exit;
end; end;
setName(); setName();
@ -554,22 +604,25 @@ var
maxno: string; maxno: string;
begin begin
if GetLSNo(ADOQueryCmd, maxno, 'YS', 'BS_Cloth_Info_Sub', 4, 1) = False then // if GetLSNo(ADOQueryCmd, maxno, 'YS', 'BS_Cloth_Info_Sub', 4, 1) = False then
begin // begin
Application.MessageBox('取号失败!', '提示', 0); // Application.MessageBox('取号失败!', '提示', 0);
Exit; // Exit;
end; // end;
CopyAddRow(Tv1, CDS_1); CopyAddRow(Tv1, CDS_1);
with CDS_1 do with CDS_1 do
begin begin
Edit; Edit;
fieldbyname('BCISID').Value := trim(maxno); fieldbyname('BCISID').Value := NULL;
fieldbyname('floatPrice').Value := 0; fieldbyname('floatPrice').Value := 0;
fieldbyname('referencePrice').value := StrToFloatDef(CostPrice.Text, 0);
Post; Post;
end; end;
// TV1Column5PropertiesEditValueChanged(Sender);
end; end;
procedure TfrmClothInfoInput.ToolButton4Click(Sender: TObject); procedure TfrmClothInfoInput.ToolButton4Click(Sender: TObject);
@ -594,6 +647,37 @@ begin
end; end;
procedure TfrmClothInfoInput.CostPricePropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
MCostPrice, MfloatPrice: Double;
begin
with CDS_1 do
begin
First;
while not eof do
begin
with CDS_1 do
begin
MCostPrice := StrToFloatDef(CostPrice.Text, 0);
MfloatPrice := Fieldbyname('floatPrice').AsFloat;
end;
with CDS_1 do
begin
Edit;
FieldByName('referencePrice').Value := MfloatPrice + MCostPrice;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
next;
end;
end;
end;
procedure TfrmClothInfoInput.CYColorKeyPress(Sender: TObject; var Key: Char); procedure TfrmClothInfoInput.CYColorKeyPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = #13 then

30
T02贸易汇总仓库/U_TradeClothTotalInInput1.dfm
View File

@ -20,7 +20,7 @@ inherited frmTradeClothTotalInInput1: TfrmTradeClothTotalInInput1
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 119
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -42,10 +42,18 @@ inherited frmTradeClothTotalInInput1: TfrmTradeClothTotalInInput1
ImageIndex = 16 ImageIndex = 16
OnClick = TBSaveClick OnClick = TBSaveClick
end end
object TBClose: TToolButton object ToolButton1: TToolButton
Left = 63 Left = 63
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #28165#31354#24182#37325#26032#21462#21495
ImageIndex = 3
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 186
Top = 0
AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 7 ImageIndex = 7
OnClick = TBCloseClick OnClick = TBCloseClick
@ -58,6 +66,7 @@ inherited frmTradeClothTotalInInput1: TfrmTradeClothTotalInInput1
Height = 495 Height = 495
Align = alLeft Align = alLeft
TabOrder = 1 TabOrder = 1
ExplicitTop = 31
object Label12: TLabel object Label12: TLabel
Left = 271 Left = 271
Top = 20 Top = 20
@ -213,7 +222,7 @@ inherited frmTradeClothTotalInInput1: TfrmTradeClothTotalInInput1
Top = 406 Top = 406
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #20986#24211#21333#21495 Caption = #20837#24211#21333#21495
Visible = False Visible = False
end end
object IOType: TcxComboBox object IOType: TcxComboBox
@ -398,6 +407,8 @@ inherited frmTradeClothTotalInInput1: TfrmTradeClothTotalInInput1
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
ExplicitLeft = 4
ExplicitTop = 71
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -508,19 +519,28 @@ inherited frmTradeClothTotalInInput1: TfrmTradeClothTotalInInput1
ImageIndex = 6 ImageIndex = 6
OnClick = TBDelClick OnClick = TBDelClick
end end
object btn4: TToolButton object ToolButton2: TToolButton
Left = 189 Left = 189
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360#26412#21333
ImageIndex = 21
OnClick = ToolButton2Click
end
object btn4: TToolButton
Left = 276
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
ImageIndex = 16 ImageIndex = 16
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object btn2: TToolButton object btn2: TToolButton
Left = 276 Left = 363
Top = 0 Top = 0
Caption = 'btn2' Caption = 'btn2'
ImageIndex = 17 ImageIndex = 17
Visible = False
OnClick = btn2Click OnClick = btn2Click
end end
end end

76
T02贸易汇总仓库/U_TradeClothTotalInInput1.pas
View File

@ -87,6 +87,8 @@ type
PopupMenu1: TPopupMenu; PopupMenu1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
btn2: TToolButton; btn2: TToolButton;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
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);
@ -110,6 +112,7 @@ type
procedure btndaoruClick(Sender: TObject); procedure btndaoruClick(Sender: TObject);
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure btn2Click(Sender: TObject); procedure btn2Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
function SaveCKData(): Boolean; function SaveCKData(): Boolean;
@ -127,7 +130,8 @@ var
implementation implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_TradePlanSel, U_ClothInfoSel; U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_TradePlanSel, U_ClothInfoSel,
U_RPFun;
{$R *.dfm} {$R *.dfm}
@ -870,7 +874,75 @@ end;
procedure TfrmTradeClothTotalInInput1.ToolButton1Click(Sender: TObject); procedure TfrmTradeClothTotalInInput1.ToolButton1Click(Sender: TObject);
begin begin
WriteCxGrid(FSTKName + '흙욋되션', Tv1, '처弄삠悧꾑욋'); if CDS_Sub.Locate('BCIOID', '', []) = True then
begin
Application.MessageBox('有数据未保存请先保存!', '提示', 0);
Exit;
end;
if CDS_Sub.Locate('BCIOID', null, []) = True then
begin
Application.MessageBox('有数据未保存请先保存!', '提示', 0);
Exit;
end;
BCIONO.Text := '';
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(' from BS_Cloth_IO A');
sql.Add(' where 1<>1');
Open;
end;
SCSHData(ADOQueryTemp, Panel1, 0);
SCreateCDS(ADOQueryTemp, CDS_Sub);
SInitCDSData(ADOQueryTemp, CDS_Sub);
end;
procedure TfrmTradeClothTotalInInput1.ToolButton2Click(Sender: TObject);
var
MFiltration: string;
MPrintJson: string;
begin
if CDS_sub.IsEmpty then
Exit;
if CDS_Sub.Locate('BCIOID', '', []) = True then
begin
Application.MessageBox('有数据未保存请先保存!', '提示', 0);
Exit;
end;
if CDS_Sub.Locate('BCIOID', null, []) = True then
begin
Application.MessageBox('有数据未保存请先保存!', '提示', 0);
Exit;
end;
MFiltration := '';
with CDS_sub do
begin
First;
while not eof do
begin
MFiltration := MFiltration + ',' + CDS_sub.FieldByName('BCIOID').AsString;
next;
end;
end;
// MFiltration:=
// MFiltration := SelCDSKey(CDS_sub, ['BCIOID'])[0];
MPrintJson := ' {"LMType": "TradeFinishClothInPrt1" ';
MPrintJson := MPrintJson + ' ,"PreviewPrint": true ';
MPrintJson := MPrintJson + ' ,"PrtArgs": [ { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" } ] } ';
FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson));
end; end;
procedure TfrmTradeClothTotalInInput1.Tv1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmTradeClothTotalInInput1.Tv1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);

15
T02贸易汇总仓库/U_TradeClothTotalInList.dfm
View File

@ -3,12 +3,12 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Top = 111 Top = 111
Caption = #38754#26009#20837#24211#21015#34920 Caption = #38754#26009#20837#24211#21015#34920
ClientHeight = 554 ClientHeight = 554
ClientWidth = 1968 ClientWidth = 1540
Color = clBtnFace Color = clBtnFace
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitWidth = 1984 ExplicitWidth = 1556
ExplicitHeight = 593 ExplicitHeight = 593
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -16,7 +16,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1968 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -121,7 +121,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1968 Width = 1540
Height = 119 Height = 119
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -270,7 +270,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
inline frmFrameDateSel1: TfrmFrameDateSel inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 1964 Width = 1536
Height = 37 Height = 37
Align = alTop Align = alTop
Color = clWhite Color = clWhite
@ -279,7 +279,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
TabOrder = 6 TabOrder = 6
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1964 ExplicitWidth = 1536
ExplicitHeight = 37 ExplicitHeight = 37
inherited lbl2: TLabel inherited lbl2: TLabel
Width = 16 Width = 16
@ -359,11 +359,12 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 149 Top = 149
Width = 1968 Width = 1540
Height = 405 Height = 405
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 150
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>