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

1

Browse Source
This commit is contained in:
ddf 2025-06-05 16:03:45 +08:00 committed by DESKTOP-E401PHE\Administrator
parent c6a7b35639
commit 3264c79e21
9 changed files with 381 additions and 529 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
A00通用窗体/U_CompanySel.dfm
View File

@ -9,8 +9,8 @@ inherited frmCompanySel: TfrmCompanySel
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitWidth = 1085 ExplicitWidth = 1093
ExplicitHeight = 589 ExplicitHeight = 597
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object cxGrid1: TcxGrid [0] object cxGrid1: TcxGrid [0]
@ -20,7 +20,6 @@ inherited frmCompanySel: TfrmCompanySel
Height = 484 Height = 484
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitTop = 70
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
OnDblClick = TV1DblClick OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>

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

@ -526,7 +526,7 @@ object frmClothInfoInput: TfrmClothInfoInput
object CostPrice: TcxCurrencyEdit object CostPrice: TcxCurrencyEdit
Tag = 2 Tag = 2
Left = 119 Left = 119
Top = 210 Top = 207
EditValue = 0.000000000000000000 EditValue = 0.000000000000000000
Properties.AssignedValues.DisplayFormat = True Properties.AssignedValues.DisplayFormat = True
Properties.OnEditValueChanged = CostPricePropertiesEditValueChanged Properties.OnEditValueChanged = CostPricePropertiesEditValueChanged
@ -996,6 +996,7 @@ object frmClothInfoInput: TfrmClothInfoInput
TabOrder = 1 TabOrder = 1
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
FindPanel.DisplayMode = fpdmAlways
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True

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

@ -274,7 +274,7 @@ begin
end; end;
if StrToFloatDef(ADOQueryTemp.fieldbyname('AA').asstring, 1) > 1 then if StrToFloatDef(ADOQueryTemp.fieldbyname('AA').asstring, 1) > 1 then
raise Exception.Create('颜色色号重复!'); raise Exception.Create('颜色色号重复!');
ADOQueryCmd.Connection.CommitTrans;
//////////////////////// 保存子表 ////////////////////////// //////////////////////// 保存子表 //////////////////////////
Result := True; Result := True;
except except
@ -883,6 +883,19 @@ begin
RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', panel2, 2); RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', panel2, 2);
Post; Post;
end; end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select count(*) as AA from BS_Cloth_Info where C_Code=''' + Trim(C_Code.Text) + '''');
Open;
if FieldByName('AA').AsInteger > 1 then
raise Exception.Create('编号重复!');
end;
//////////////// 保存主表 //////////////////////
///
//////////////// 保存子布 //////////////////////
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
@ -890,8 +903,6 @@ begin
sql.Add('delete BS_Cloth_Info_Link where ToID=''' + Trim(MaxBCIID) + ''''); sql.Add('delete BS_Cloth_Info_Link where ToID=''' + Trim(MaxBCIID) + '''');
ExecSQL; ExecSQL;
end; end;
if Trim(C_FromName.Properties.LookupItems.Text) <> '' then
begin
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
@ -899,6 +910,8 @@ begin
sql.Add('select * from BS_Cloth_Info_Link where 1=2'); sql.Add('select * from BS_Cloth_Info_Link where 1=2');
Open; Open;
end; end;
if Trim(C_FromName.Properties.LookupItems.Text) <> '' then
begin
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Append; Append;
@ -912,13 +925,6 @@ begin
if Trim(C_FromName2.Properties.LookupItems.Text) <> '' then if Trim(C_FromName2.Properties.LookupItems.Text) <> '' then
begin begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from BS_Cloth_Info_Link where 1=2');
Open;
end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Append; Append;
@ -932,13 +938,6 @@ begin
if Trim(C_FromName3.Properties.LookupItems.Text) <> '' then if Trim(C_FromName3.Properties.LookupItems.Text) <> '' then
begin begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from BS_Cloth_Info_Link where 1=2');
Open;
end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Append; Append;
@ -952,13 +951,6 @@ begin
if Trim(C_FromName4.Properties.LookupItems.Text) <> '' then if Trim(C_FromName4.Properties.LookupItems.Text) <> '' then
begin begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from BS_Cloth_Info_Link where 1=2');
Open;
end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Append; Append;
@ -972,13 +964,6 @@ begin
if Trim(C_FromName5.Properties.LookupItems.Text) <> '' then if Trim(C_FromName5.Properties.LookupItems.Text) <> '' then
begin begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from BS_Cloth_Info_Link where 1=2');
Open;
end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Append; Append;
@ -989,18 +974,9 @@ begin
Post; Post;
end; end;
end; end;
//////////////// 保存子布 //////////////////////
with ADOQueryTemp do ///
begin //////////////// 保存供应商名称 //////////////////////
Close;
sql.Clear;
sql.Add('select count(*) as AA from BS_Cloth_Info where C_Code=''' + Trim(C_Code.Text) + '''');
Open;
if FieldByName('AA').AsInteger > 1 then
raise Exception.Create('编号重复!');
end;
with CDS_2 do with CDS_2 do
begin begin
First; First;
@ -1048,7 +1024,21 @@ begin
end; end;
end; end;
////////////////////////// 保存单位系数子表 ////////////////////////// with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add(' update BS_Cloth_Info_Sub set referencePrice= ISNULL(floatPrice, 0) + ISNULL(CostPrice, 0) ');
sql.Add(' from BS_Cloth_Info X ');
sql.Add(' where X.BCIID=BS_Cloth_Info_Sub.BCIID AND BS_Cloth_Info_Sub.BCIID =' + quotedstr(MaxBCIID));
ExecSQL;
end;
//////////////// 保存供应商名称 //////////////////////
///
////////////////////////// 保存单位系数子表 //////////////////////////
with CDS_3 do with CDS_3 do
begin begin
First; First;
@ -1095,7 +1085,7 @@ begin
Next; Next;
end; end;
end; end;
////////////////////////// 保存单位系数子表 //////////////////////////
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
// with ADOQueryCmd do // with ADOQueryCmd do
@ -1312,11 +1302,7 @@ begin
Application.MessageBox('请输入中文品名!', '提示', 0); Application.MessageBox('请输入中文品名!', '提示', 0);
Exit; Exit;
end; end;
if Trim(C_FromName2.Text) = '' then
begin
Application.MessageBox('请输入中文品名!', '提示', 0);
Exit;
end;
setName(); setName();
end end

76
A02基础产品管理/U_Edit.dfm
View File

@ -3,7 +3,7 @@ object frmEdit: TfrmEdit
Top = 315 Top = 315
Caption = #33394#21495#32500#25252 Caption = #33394#21495#32500#25252
ClientHeight = 404 ClientHeight = 404
ClientWidth = 625 ClientWidth = 558
Color = clWhite Color = clWhite
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -18,21 +18,24 @@ object frmEdit: TfrmEdit
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 30 Top = 30
Width = 625 Width = 558
Height = 374 Height = 374
Align = alClient Align = alClient
Caption = 'Panel6' Caption = 'Panel6'
TabOrder = 0 TabOrder = 0
ExplicitWidth = 625
object cxGrid4: TcxGrid object cxGrid4: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
Width = 623 Width = 556
Height = 372 Height = 372
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
ExplicitWidth = 623
object TV4: TcxGridDBTableView object TV4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
FindPanel.DisplayMode = fpdmAlways
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_4 DataController.DataSource = DS_4
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
@ -104,17 +107,18 @@ object frmEdit: TfrmEdit
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 625 Width = 558
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 83
Caption = 'ToolBar1' Caption = 'ToolBar1'
DisabledImages = DataLink_ClothInfo.cxImageList_bar DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar Images = DataLink_ClothInfo.cxImageList_bar
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 1
ExplicitWidth = 625
object ToolButton1: TToolButton object ToolButton1: TToolButton
Tag = 1 Tag = 1
Left = 0 Left = 0
@ -140,63 +144,71 @@ object frmEdit: TfrmEdit
ImageIndex = 6 ImageIndex = 6
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object TBClose: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 252 Left = 189
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20837 Caption = #23548#20837
ImageIndex = 28 ImageIndex = 28
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton5: TToolButton
Left = 252
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton5Click
end
object TBClose: TToolButton
Left = 339
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 301 Left = 183
Top = 165 Top = 157
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 205 Left = 265
Top = 165 Top = 157
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
Parameters = <> Parameters = <>
Left = 109 Left = 101
Top = 165 Top = 157
end end
object DS_4: TDataSource object DS_4: TDataSource
DataSet = CDS_4 DataSet = CDS_4
Left = 166 Left = 183
Top = 251 Top = 219
end end
object CDS_4: TClientDataSet object CDS_4: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 214 Left = 429
Top = 253 Top = 157
end end
object ADO_4: TADOQuery object ADO_4: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
Parameters = <> Parameters = <>
Left = 109 Left = 347
Top = 261 Top = 157
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
Left = 336 Left = 347
Top = 254 Top = 219
object N1: TMenuItem object N1: TMenuItem
Caption = #28155#21152 Caption = #28155#21152
OnClick = N1Click OnClick = N1Click
@ -209,11 +221,11 @@ object frmEdit: TfrmEdit
object CDS_LM: TClientDataSet object CDS_LM: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 262 Left = 101
Top = 309 Top = 219
end end
object OpenDialog1: TOpenDialog object OpenDialog1: TOpenDialog
Left = 416 Left = 265
Top = 166 Top = 219
end end
end end

38
A02基础产品管理/U_Edit.pas
View File

@ -10,7 +10,7 @@ uses
dxDateRanges, dxScrollbarAnnotations, cxDBData, cxTextEdit, cxGridLevel, dxDateRanges, dxScrollbarAnnotations, cxDBData, cxTextEdit, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxGridCustomView, cxGrid, Vcl.ToolWin, Vcl.ComCtrls, Datasnap.DBClient, cxGridCustomView, cxGrid, Vcl.ToolWin, Vcl.ComCtrls, Datasnap.DBClient,
Vcl.Menus, ComObj; Vcl.Menus, ComObj, cxContainer;
type type
TfrmEdit = class(TForm) TfrmEdit = class(TForm)
@ -41,6 +41,7 @@ type
ToolButton4: TToolButton; ToolButton4: TToolButton;
CDS_LM: TClientDataSet; CDS_LM: TClientDataSet;
OpenDialog1: TOpenDialog; OpenDialog1: TOpenDialog;
ToolButton5: TToolButton;
procedure Button2Click(Sender: TObject); procedure Button2Click(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -51,6 +52,7 @@ type
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
public public
@ -78,7 +80,7 @@ procedure TfrmEdit.FormShow(Sender: TObject);
var var
SqlStr: string; SqlStr: string;
begin begin
readCxGrid(self.Caption + 'TV4', Tv4, '样品管理');
SqlStr := 'select A.* from BS_Cloth_Info_Sub A '; SqlStr := 'select A.* from BS_Cloth_Info_Sub A ';
if FBCISID = '' then if FBCISID = '' then
begin begin
@ -272,15 +274,17 @@ begin
end; end;
procedure TfrmEdit.ToolButton5Click(Sender: TObject);
begin
WriteCxGrid(self.Caption + 'TV4', Tv4, '样品管理');
end;
function TfrmEdit.SaveData(): Boolean; function TfrmEdit.SaveData(): Boolean;
var var
maxId4: string; maxId4: string;
begin begin
try try
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
//////////////////////// ±£´æ×Ó±í ////////////////////////// //////////////////////// ±£´æ×Ó±í //////////////////////////
with CDS_4 do with CDS_4 do
begin begin
@ -290,11 +294,7 @@ begin
if Trim(CDS_4.fieldbyname('BCISID').AsString) = '' then if Trim(CDS_4.fieldbyname('BCISID').AsString) = '' then
begin begin
if GetLSNo(ADOQueryTemp, maxId4, 'YS', 'BS_Cloth_Info_Sub', 4, 1) = False then if GetLSNo(ADOQueryTemp, maxId4, 'YS', 'BS_Cloth_Info_Sub', 4, 1) = False then
begin raise Exception.Create('取子流水号失败!');
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取子流水号失败！', '提示', 0);
Exit;
end;
end end
else else
begin begin
@ -333,26 +333,28 @@ begin
Next; Next;
end; end;
end; end;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select count(BCISID) as AA from BS_Cloth_Info_Sub where BCIID=''' + Trim(FBCIID) + ''''); sql.Add('select count(BCISID) as AA from BS_Cloth_Info_Sub where BCIID=''' + Trim(FBCIID) + '''');
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;
end; end;
if StrToFloatDef(ADOQueryTemp.fieldbyname('AA').asstring, 1) > 1 then if StrToFloatDef(ADOQueryTemp.fieldbyname('AA').asstring, 1) > 1 then
raise Exception.Create('颜色色号重复!');
with ADOQueryCmd do
begin begin
ADOQueryCmd.Connection.RollbackTrans; Close;
// Result := False; SQL.Clear;
Application.MessageBox('颜色色号重复！', '提示', 0); sql.Add(' exec P_BS_CloInfo_ZhuBuTongBu @BCIID=' + QuotedStr(trim(FBCIID)));
Exit; ExecSQL;
end; end;
//////////////////////// ±£´æ×Ó±í ////////////////////////// //////////////////////// ±£´æ×Ó±í //////////////////////////
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
Result := True; Result := True;

149
T05贸易门市管理/U_TradeMarketInPut.dfm
View File

@ -68,7 +68,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 1
ExplicitTop = 391
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -94,8 +93,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 2 TabOrder = 2
ExplicitTop = 254
ExplicitHeight = 398
object Panel3: TPanel object Panel3: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
@ -104,7 +101,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 0 TabOrder = 0
ExplicitHeight = 396
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
@ -112,7 +108,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Height = 399 Height = 399
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitHeight = 394
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -346,7 +341,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Align = alRight Align = alRight
Caption = 'Panel4' Caption = 'Panel4'
TabOrder = 1 TabOrder = 1
ExplicitHeight = 396
object Panel5: TPanel object Panel5: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
@ -384,7 +378,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Align = alClient Align = alClient
Caption = #21452#20987#21024#38500#26126#32454#20449#24687 Caption = #21452#20987#21024#38500#26126#32454#20449#24687
TabOrder = 1 TabOrder = 1
ExplicitHeight = 353
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 2 Left = 2
Top = 23 Top = 23
@ -392,7 +385,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Height = 333 Height = 333
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitHeight = 328
object TvMX: TcxGridDBTableView object TvMX: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -488,15 +480,15 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Caption = #22791' '#27880 Caption = #22791' '#27880
end end
object Label2: TLabel object Label2: TLabel
Left = 721 Left = 730
Top = 21 Top = 21
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #21333#25454#32534#21495 Caption = #21333#25454#32534#21495
end end
object Label14: TLabel object Label14: TLabel
Left = 24 Left = 29
Top = 65 Top = 70
Width = 72 Width = 72
Height = 21 Height = 21
Caption = #23458' '#25143 Caption = #23458' '#25143
@ -527,14 +519,14 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
end end
object Label18: TLabel object Label18: TLabel
Left = 730 Left = 730
Top = 121 Top = 119
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #21457#36135#22320#22336 Caption = #21457#36135#22320#22336
end end
object Label4: TLabel object Label4: TLabel
Left = 352 Left = 352
Top = 66 Top = 70
Width = 48 Width = 48
Height = 21 Height = 21
Caption = #35746#21333#21495 Caption = #35746#21333#21495
@ -618,26 +610,10 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
OnDblClick = OurCoNameDblClick OnDblClick = OurCoNameDblClick
Width = 200 Width = 200
end end
object CustName: TcxButtonEdit
Tag = 2
Left = 122
Top = 64
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = CustNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 6
OnDblClick = OurCoNameDblClick
Width = 200
end
object ShippingAddress: TcxButtonEdit object ShippingAddress: TcxButtonEdit
Tag = 2 Tag = 2
Left = 814 Left = 814
Top = 120 Top = 115
Hint = 'ShippingAddress/'#21457#36135#22320#22336 Hint = 'ShippingAddress/'#21457#36135#22320#22336
Properties.Buttons = < Properties.Buttons = <
item item
@ -647,7 +623,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = ShippingAddressPropertiesButtonClick Properties.OnButtonClick = ShippingAddressPropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 7 TabOrder = 6
OnDblClick = OurCoNameDblClick OnDblClick = OurCoNameDblClick
Width = 200 Width = 200
end end
@ -664,7 +640,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = ShippingAddressPropertiesButtonClick Properties.OnButtonClick = ShippingAddressPropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 8 TabOrder = 7
Visible = False Visible = False
OnDblClick = OurCoNameDblClick OnDblClick = OurCoNameDblClick
Width = 545 Width = 545
@ -672,76 +648,85 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
object BuyOrdNo: TcxTextEdit object BuyOrdNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 436 Left = 436
Top = 62 Top = 66
TabOrder = 8
Width = 200
end
object CustName: TcxMRUEdit
Left = 122
Top = 66
Properties.ImmediatePost = True
Properties.ReadOnly = False
Properties.OnButtonClick = StkPositionPropertiesButtonClick
TabOrder = 9 TabOrder = 9
Width = 200 Width = 200
end end
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeMarket.ADOLink Connection = DataLink_TradeMarket.ADOLink
Left = 265 Left = 584
Top = 504 Top = 188
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradeMarket.ADOLink Connection = DataLink_TradeMarket.ADOLink
Left = 353 Left = 666
Top = 505 Top = 188
end end
inherited ImageList_new32: TImageList inherited ImageList_new32: TImageList
Left = 132 Left = 748
Top = 426 Top = 436
end end
inherited cxImageList_bar: TcxImageList inherited cxImageList_bar: TcxImageList
FormatVersion = 1 FormatVersion = 1
Left = 1480 Left = 830
Top = 32 Top = 312
DesignInfo = 2098632 DesignInfo = 20448062
end end
object ADOTemp: TADOQuery object ADOTemp: TADOQuery
Connection = DataLink_TradeMarket.ADOLink Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 504 Left = 830
Top = 396 Top = 188
end end
object ADOCmd: TADOQuery object ADOCmd: TADOQuery
Connection = DataLink_TradeMarket.ADOLink Connection = DataLink_TradeMarket.ADOLink
Parameters = <> Parameters = <>
Left = 632 Left = 502
Top = 389 Top = 188
end end
object DS_1: TDataSource object DS_1: TDataSource
DataSet = CDS_1 DataSet = CDS_1
Left = 584 Left = 502
Top = 512 Top = 374
end end
object CDS_1: TClientDataSet object CDS_1: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 515 Left = 584
Top = 508 Top = 312
end end
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
PopupMenus = <> PopupMenus = <>
Left = 436 Left = 748
Top = 509 Top = 312
end end
object ADOQueryLabel: TADOQuery object ADOQueryLabel: TADOQuery
Connection = DataLink_TradeMarket.ADOLink Connection = DataLink_TradeMarket.ADOLink
Parameters = <> Parameters = <>
Left = 932 Left = 748
Top = 421 Top = 188
end end
object ADO_I1: TADOQuery object ADO_I1: TADOQuery
Connection = DataLink_TradeMarket.ADOLink Connection = DataLink_TradeMarket.ADOLink
Parameters = <> Parameters = <>
Left = 1226 Left = 584
Top = 189 Top = 250
end end
object DS_I1: TDataSource object DS_I1: TDataSource
DataSet = ADO_I1 DataSet = ADO_I1
Left = 1166 Left = 584
Top = 157 Top = 374
end end
object IdFTP1: TIdFTP object IdFTP1: TIdFTP
ConnectTimeout = 0 ConnectTimeout = 0
@ -751,72 +736,72 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
ProxySettings.ProxyType = fpcmNone ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0 ProxySettings.Port = 0
ReadTimeout = 0 ReadTimeout = 0
Left = 1058 Left = 666
Top = 238 Top = 436
end end
object ADO_I2: TADOQuery object ADO_I2: TADOQuery
Connection = DataLink_TradeMarket.ADOLink Connection = DataLink_TradeMarket.ADOLink
Parameters = <> Parameters = <>
Left = 1048 Left = 666
Top = 75 Top = 250
end end
object DS_I2: TDataSource object DS_I2: TDataSource
DataSet = ADO_I2 DataSet = ADO_I2
Left = 1124 Left = 666
Top = 71 Top = 374
end end
object DS_MX: TDataSource object DS_MX: TDataSource
DataSet = CDS_MX DataSet = CDS_MX
Left = 1056 Left = 748
Top = 444 Top = 374
end end
object CDS_MX: TClientDataSet object CDS_MX: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 1008 Left = 666
Top = 412 Top = 312
end end
object ADO_YS: TADOQuery object ADO_YS: TADOQuery
Connection = DataLink_TradeMarket.ADOLink Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 775 Left = 502
Top = 188 Top = 312
end end
object DS_YS: TDataSource object DS_YS: TDataSource
DataSet = ADO_YS DataSet = ADO_YS
Left = 803 Left = 584
Top = 388 Top = 436
end end
object DS_RCPM: TDataSource object DS_RCPM: TDataSource
DataSet = ADO_RCPM DataSet = ADO_RCPM
Left = 760 Left = 502
Top = 443 Top = 436
end end
object ADO_PM: TADOQuery object ADO_PM: TADOQuery
Connection = DataLink_TradeMarket.ADOLink Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 739 Left = 748
Top = 204 Top = 250
end end
object ADO_RCPM: TADOQuery object ADO_RCPM: TADOQuery
Connection = DataLink_TradeMarket.ADOLink Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 730 Left = 830
Top = 398 Top = 250
end end
object DS_PM: TDataSource object DS_PM: TDataSource
DataSet = ADO_PM DataSet = ADO_PM
Left = 267 Left = 830
Top = 390 Top = 374
end end
object ADO_1: TADOQuery object ADO_1: TADOQuery
Connection = DataLink_TradeMarket.ADOLink Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 496 Left = 502
Top = 452 Top = 250
end end
end end

99
T05贸易门市管理/U_TradeMarketInPut.pas
View File

@ -16,7 +16,7 @@ uses
U_BaseInput, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI,
dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
cxDBLookupComboBox; cxDBLookupComboBox, cxMRUEdit;
type type
TfrmTradeMarketInPut = class(TfrmBaseInput) TfrmTradeMarketInPut = class(TfrmBaseInput)
@ -88,7 +88,6 @@ type
OrdNote: TMemo; OrdNote: TMemo;
OrdType: TComboBox; OrdType: TComboBox;
OurCoName: TcxButtonEdit; OurCoName: TcxButtonEdit;
CustName: TcxButtonEdit;
ShippingAddress: TcxButtonEdit; ShippingAddress: TcxButtonEdit;
CONTACT: TcxButtonEdit; CONTACT: TcxButtonEdit;
ADO_YS: TADOQuery; ADO_YS: TADOQuery;
@ -101,6 +100,7 @@ type
ADO_1: TADOQuery; ADO_1: TADOQuery;
Label4: TLabel; Label4: TLabel;
BuyOrdNo: TcxTextEdit; BuyOrdNo: TcxTextEdit;
CustName: TcxMRUEdit;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -128,11 +128,11 @@ type
procedure OurCoNameDblClick(Sender: TObject); procedure OurCoNameDblClick(Sender: TObject);
procedure OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ShippingAddressPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure ShippingAddressPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column7PropertiesEditValueChanged(Sender: TObject); procedure Tv1Column7PropertiesEditValueChanged(Sender: TObject);
procedure Tv1Column12PropertiesEditValueChanged(Sender: TObject); procedure Tv1Column12PropertiesEditValueChanged(Sender: TObject);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure StkPositionPropertiesButtonClick(Sender: TObject);
private private
FSCXDH: string; FSCXDH: string;
procedure InitData(); procedure InitData();
@ -309,6 +309,53 @@ var
begin begin
inherited; inherited;
with ADOTemp do
begin
close;
sql.Clear;
sql.Add('select * from KH_ZDY where type=''StkPosition''');
// with ADOQueryMain do
// begin
// Close;
// sql.Clear;
// sql.Add('select A.*,B.* ');
// sql.Add(',BankName=(select top 1 BankName from Bs_Company_Bank X where X.CoID=A.CoID ) ');
// sql.Add(',ContactsId=(select top 1 UserID from SY_User X where X.UserName=B.Contacts ) ');
// sql.Add('from BS_Company A ');
// sql.Add('left join BS_Company_contact B ON A.COID=B.COID and B.IsDefault=1 ');
// sql.Add('where 1=1 ');
// if Trim(FCoType) <> '' then
// begin
// sql.Add(' and A.CoType=''' + Trim(FCoType) + '''');
// end;
// if Trim(FAuthority) = 'Àíµ¥ÒµÎñ' then
// begin
// sql.Add(' and ( SalesId=' + quotedstr(trim(DCode)) + ' or exists (select * from [dbo].[F_Tool_SplitString](TallyId,'','') X where X.RTValue =' + quotedstr(trim(DCode)) + '))');
// end;
//
// Open;
// end;
Open;
if isEmpty then
begin
exit;
end;
CustName.Properties.LookupItems.Clear;
while not Eof do
begin
CustName.Properties.LookupItems.Add(Trim(fieldByName('zdyName').AsString));
Next;
end;
CustName.ItemIndex := -1;
end;
with ADOCmd do with ADOCmd do
begin begin
Close; Close;
@ -555,7 +602,9 @@ begin
Edit; Edit;
FieldByName('SerialNo').Value := IntToStr(i); FieldByName('SerialNo').Value := IntToStr(i);
FieldByName('TMSId').Value := Trim(maxno); FieldByName('TMSId').Value := Trim(maxno);
FieldByName('TMSUnit').Value := 'M'; FieldByName('TMSPiece').Value := 0;
FieldByName('TMSQty').Value := 0;
// FieldByName('TMSUnit').Value := 'M';
Post; Post;
end; end;
end; end;
@ -778,27 +827,6 @@ begin
end; end;
procedure TfrmTradeMarketInPut.CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '¿Í»§';
if ShowModal = 1 then
begin
self.CustName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.CustName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
self.ShippingAddress.Text := Trim(frmCompanySel.CDS_1.fieldbyname('mxaddress').AsString);
self.CONTACT.Text := Trim(frmCompanySel.CDS_1.fieldbyname('PhoneNumber').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmTradeMarketInPut.cxDBImage1DblClick(Sender: TObject); procedure TfrmTradeMarketInPut.cxDBImage1DblClick(Sender: TObject);
begin begin
if TcxDBImage(Sender).Picture.Height = 0 then if TcxDBImage(Sender).Picture.Height = 0 then
@ -1021,6 +1049,27 @@ begin
end; end;
end; end;
procedure TfrmTradeMarketInPut.StkPositionPropertiesButtonClick(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '¿Í»§';
if ShowModal = 1 then
begin
self.CustName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.CustName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
self.ShippingAddress.Text := Trim(frmCompanySel.CDS_1.fieldbyname('mxaddress').AsString);
self.CONTACT.Text := Trim(frmCompanySel.CDS_1.fieldbyname('PhoneNumber').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmTradeMarketInPut.PackNoteDblClick(Sender: TObject); procedure TfrmTradeMarketInPut.PackNoteDblClick(Sender: TObject);
var var
fsj: string; fsj: string;

313
T05贸易门市管理/U_TradeMarketList.dfm
View File

@ -21,7 +21,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 99 ButtonWidth = 83
Caption = 'ToolBar1' Caption = 'ToolBar1'
Images = DataLink_TradeMarket.cxImageList_bar Images = DataLink_TradeMarket.cxImageList_bar
List = True List = True
@ -36,7 +36,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object TBAdd: TToolButton object TBAdd: TToolButton
Left = 71 Left = 63
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686 Caption = #26032#22686
@ -44,7 +44,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBAddClick OnClick = TBAddClick
end end
object btnCopy: TToolButton object btnCopy: TToolButton
Left = 142 Left = 126
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #22797#21046 Caption = #22797#21046
@ -52,7 +52,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = btnCopyClick OnClick = btnCopyClick
end end
object TBEdit: TToolButton object TBEdit: TToolButton
Left = 213 Left = 189
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913 Caption = #20462#25913
@ -60,7 +60,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBEditClick OnClick = TBEditClick
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 284 Left = 252
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -68,7 +68,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBDelClick OnClick = TBDelClick
end end
object TBPrint: TToolButton object TBPrint: TToolButton
Left = 355 Left = 315
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
@ -76,7 +76,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBPrintClick OnClick = TBPrintClick
end end
object TBCK: TToolButton object TBCK: TToolButton
Left = 426 Left = 378
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26597#30475 Caption = #26597#30475
@ -84,7 +84,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBCKClick OnClick = TBCKClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 497 Left = 441
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #38468#20214 Caption = #38468#20214
@ -92,7 +92,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBTJ: TToolButton object TBTJ: TToolButton
Left = 568 Left = 504
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25552#20132 Caption = #25552#20132
@ -100,7 +100,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBTJClick OnClick = TBTJClick
end end
object TBTJCX: TToolButton object TBTJCX: TToolButton
Left = 639 Left = 567
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25552#20132#25764#38144 Caption = #25552#20132#25764#38144
@ -108,7 +108,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBTJCXClick OnClick = TBTJCXClick
end end
object Tchk: TToolButton object Tchk: TToolButton
Left = 742 Left = 654
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23457#26680 Caption = #23457#26680
@ -116,7 +116,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TchkClick OnClick = TchkClick
end end
object Tnochk: TToolButton object Tnochk: TToolButton
Left = 813 Left = 717
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#23457#26680 Caption = #25764#38144#23457#26680
@ -124,7 +124,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TnochkClick OnClick = TnochkClick
end end
object TWC: TToolButton object TWC: TToolButton
Left = 916 Left = 804
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23436#25104 Caption = #23436#25104
@ -132,7 +132,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TWCClick OnClick = TWCClick
end end
object TNowc: TToolButton object TNowc: TToolButton
Left = 987 Left = 867
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#23436#25104 Caption = #25764#38144#23436#25104
@ -140,7 +140,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TNowcClick OnClick = TNowcClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 1090 Left = 954
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -148,7 +148,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1193 Left = 1041
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -165,7 +165,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
ParentBackground = False ParentBackground = False
TabOrder = 6 TabOrder = 5
object Label3: TLabel object Label3: TLabel
Left = 24 Left = 24
Top = 51 Top = 51
@ -196,8 +196,8 @@ inherited frmTradeMarketList: TfrmTradeMarketList
end end
object TMMNo: TcxTextEdit object TMMNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 90 Left = 92
Top = 45 Top = 47
TabOrder = 0 TabOrder = 0
OnKeyPress = TMMNoKeyPress OnKeyPress = TMMNoKeyPress
Width = 120 Width = 120
@ -252,7 +252,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Left = 0 Left = 0
Top = 152 Top = 152
Width = 1540 Width = 1540
Height = 238 Height = 442
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 3 TabOrder = 3
@ -260,7 +260,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick OnCellDblClick = Tv1CellDblClick
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -268,11 +267,9 @@ inherited frmTradeMarketList: TfrmTradeMarketList
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Kind = skSum Kind = skSum
Column = Tv1Column11
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column10
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsBehavior.CellHints = True OptionsBehavior.CellHints = True
@ -287,14 +284,14 @@ inherited frmTradeMarketList: TfrmTradeMarketList
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 50 Width = 77
end end
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #21333#25454#32534#21495 Caption = #21333#25454#32534#21495
DataBinding.FieldName = 'TMMNo' DataBinding.FieldName = 'TMMNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 116 Width = 77
end end
object v1OrdDate: TcxGridDBColumn object v1OrdDate: TcxGridDBColumn
Caption = #21046#21333#26085#26399 Caption = #21046#21333#26085#26399
@ -304,7 +301,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Properties.ShowTime = False Properties.ShowTime = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 118 Width = 77
end end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #32463#33829#21333#20301 Caption = #32463#33829#21333#20301
@ -312,7 +309,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 103 Width = 77
end end
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
@ -320,7 +317,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 91 Width = 77
end end
object v1DeliveryDate: TcxGridDBColumn object v1DeliveryDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399 Caption = #20132#36135#26085#26399
@ -331,33 +328,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnCustomDrawCell = v1DeliveryDateCustomDrawCell OnCustomDrawCell = v1DeliveryDateCustomDrawCell
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 174 Width = 77
end
object Tv1Column11: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'HZPiQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column10: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column11: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'TMSUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end end
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #21046#21333#20154 Caption = #21046#21333#20154
@ -365,7 +336,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 77
end end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
@ -373,36 +344,93 @@ inherited frmTradeMarketList: TfrmTradeMarketList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 77
end end
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #21457#36135#22320#22336 Caption = #21457#36135#22320#22336
DataBinding.FieldName = 'ShippingAddress' DataBinding.FieldName = 'ShippingAddress'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 134 Width = 77
end end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #32852#31995#26041#24335 Caption = #32852#31995#26041#24335
DataBinding.FieldName = 'CONTACT' DataBinding.FieldName = 'CONTACT'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Options.Editing = False
Width = 77
end
object Tv1Column8: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1Column9: TcxGridDBColumn
Caption = #33394#24067#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1Column12: TcxGridDBColumn
Caption = #20013#25991#39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1Column13: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'TMSPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1Column14: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'TMSQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1Column15: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'TMSUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1Column16: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'OrdSNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1Column10: TcxGridDBColumn
Caption = #27004#23618
DataBinding.FieldName = 'StkPosition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
end end
end end
object cxSplitter1: TcxSplitter [3] object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 390
Width = 1540
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
end
object cxTabControl1: TcxTabControl [4]
Left = 0 Left = 0
Top = 121 Top = 121
Width = 1540 Width = 1540
@ -423,153 +451,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
ClientRectRight = 1540 ClientRectRight = 1540
ClientRectTop = 28 ClientRectTop = 28
end end
object Panel2: TPanel [5]
Left = 0
Top = 398
Width = 1540
Height = 196
Align = alBottom
BevelOuter = bvNone
Caption = 'Panel2'
TabOrder = 5
object cxGrid2: TcxGrid
Left = 0
Top = 0
Width = 1540
Height = 196
Align = alClient
PopupMenu = PopupMenu2
TabOrder = 0
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
Column = v1PRTOrderQty
end
item
Format = '0'
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTOrderQty
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = VC_PRTPs
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object cxGridDBColumn1: TcxGridDBColumn
Tag = 99
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Width = 66
end
object TV2Column1: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 92
end
object TV2Column2: TcxGridDBColumn
Caption = #33394#24067#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 106
end
object v1PRTColor: TcxGridDBColumn
Caption = #20013#25991#39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 103
end
object VC_PRTPs: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'TMSPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'TMSQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'TMSUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'M'
'Y'
'Kg')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'OrdSNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
end
inherited loadProcess: TPanel inherited loadProcess: TPanel
Left = 616 Left = 616
Top = 346 Top = 346
@ -683,11 +564,9 @@ inherited frmTradeMarketList: TfrmTradeMarketList
end end
object N2: TMenuItem object N2: TMenuItem
Caption = #22797#21046 Caption = #22797#21046
OnClick = N2Click
end end
end end
object cxgrdpmn2: TcxGridPopupMenu object cxgrdpmn2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <> PopupMenus = <>
Left = 660 Left = 660
Top = 636 Top = 636

127
T05贸易门市管理/U_TradeMarketList.pas
View File

@ -16,7 +16,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd,
dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore, dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore,
dxSkinsDefaultPainters; dxSkinsDefaultPainters, Vcl.DBCtrls;
type type
TfrmTradeMarketList = class(TfrmBaseList) TfrmTradeMarketList = class(TfrmBaseList)
@ -43,7 +43,6 @@ type
Order_Main: TClientDataSet; Order_Main: TClientDataSet;
TBCK: TToolButton; TBCK: TToolButton;
btnCopy: TToolButton; btnCopy: TToolButton;
cxSplitter1: TcxSplitter;
ADOQuerySub: TADOQuery; ADOQuerySub: TADOQuery;
DataSource2: TDataSource; DataSource2: TDataSource;
ToolButton4: TToolButton; ToolButton4: TToolButton;
@ -52,11 +51,9 @@ type
Tnochk: TToolButton; Tnochk: TToolButton;
TWC: TToolButton; TWC: TToolButton;
TNowc: TToolButton; TNowc: TToolButton;
Panel2: TPanel;
ADOQueryImage: TADOQuery; ADOQueryImage: TADOQuery;
DSImage: TDataSource; DSImage: TDataSource;
IdFTP1: TIdFTP; IdFTP1: TIdFTP;
v1Column11: TcxGridDBColumn;
TBTJ: TToolButton; TBTJ: TToolButton;
TBTJCX: TToolButton; TBTJCX: TToolButton;
v1Column16: TcxGridDBColumn; v1Column16: TcxGridDBColumn;
@ -68,18 +65,7 @@ type
CustName: TcxTextEdit; CustName: TcxTextEdit;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
cxgrdpmn2: TcxGridPopupMenu; cxgrdpmn2: TcxGridPopupMenu;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
v1PRTColor: TcxGridDBColumn;
VC_PRTPs: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Label2: TLabel; Label2: TLabel;
C_Name: TcxTextEdit; C_Name: TcxTextEdit;
@ -92,12 +78,18 @@ type
N2: TMenuItem; N2: TMenuItem;
GPM_3: TcxGridPopupMenu; GPM_3: TcxGridPopupMenu;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn;
frmFrameDateSel1: TfrmFrameDateSel; frmFrameDateSel1: TfrmFrameDateSel;
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -117,7 +109,6 @@ type
procedure TBCKClick(Sender: TObject); procedure TBCKClick(Sender: TObject);
procedure btnCopyClick(Sender: TObject); procedure btnCopyClick(Sender: TObject);
procedure TMMNoKeyPress(Sender: TObject; var Key: Char); procedure TMMNoKeyPress(Sender: TObject; var Key: Char);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject); procedure cxTabControl1Change(Sender: TObject);
procedure TchkClick(Sender: TObject); procedure TchkClick(Sender: TObject);
@ -135,13 +126,11 @@ type
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
private private
DQdate: TDateTime; DQdate: TDateTime;
procedure InitGrid(); procedure InitGrid();
procedure InitForm(); procedure InitForm();
function DelData(): Boolean; function DelData(): Boolean;
procedure InitSub();
procedure SetStatus(); procedure SetStatus();
procedure InitImage(fwbid: string); procedure InitImage(fwbid: string);
procedure SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string); procedure SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string);
@ -225,19 +214,6 @@ begin
end; end;
procedure TfrmTradeMarketList.InitSub();
var
SqlStr: string;
begin
if Order_Main.IsEmpty then
exit;
SqlStr := ' select * from Trade_Market_Sub A';
SqlStr := SqlStr + ' where TMMId =' + quotedstr((Order_Main.fieldbyname('TMMId').AsString));
InitCDSData(ADOQuerySub, ORDER_SUB, Tv2, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code');
end;
procedure TfrmTradeMarketList.JGTypeChange(Sender: TObject); procedure TfrmTradeMarketList.JGTypeChange(Sender: TObject);
begin begin
InitGrid(); InitGrid();
@ -272,72 +248,48 @@ end;
procedure TfrmTradeMarketList.InitGrid(); procedure TfrmTradeMarketList.InitGrid();
var var
STRwhere, Pwhere: string; SqlStr, FilterStr: string;
begin begin
STRwhere := ''; FilterStr := SGetFilters(Panel1, 1, 2);
Pwhere := SGetFilters(Panel1, 1, 2);
SqlStr := ' select A.*,B.*,C.StkPosition ';
SqlStr := SqlStr + ' from Trade_Market_Main A ';
SqlStr := SqlStr + ' inner join Trade_Market_Sub B on B.TMMId=A.TMMId ';
SqlStr := SqlStr + ' inner join BS_Cloth_Info C on C.C_Code=B.C_Code ';
SqlStr := SqlStr + ' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)));
SqlStr := SqlStr + ' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)));
if canshu2 <> '' then
begin begin
if trim(Pwhere) <> '' then SqlStr := SqlStr + ' and C.StkPosition= ' + QuotedStr(Trim(canshu2));
STRwhere := STRwhere + ' and ' + trim(Pwhere); end;
if canshu1 = '¼Èë' then
begin
SqlStr := SqlStr + ' and A.Filler= ' + QuotedStr(Trim(DName));
end; end;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
STRwhere := STRwhere + ' and isnull(status,''0'')=''0'' '; SqlStr := SqlStr + ' and isnull(status,''0'')=''0'' ';
end; end;
1: 1:
begin begin
STRwhere := STRwhere + ' and isnull(status,''0'')=''1'' '; SqlStr := SqlStr + ' and isnull(status,''0'')=''1'' ';
end; end;
2: 2:
begin begin
STRwhere := STRwhere + ' and isnull(status,''0'')=''9'' '; SqlStr := SqlStr + ' and isnull(status,''0'')=''9'' ';
end; end;
3: 3:
begin begin
STRwhere := STRwhere + ' and isnull(status,''0'')=''10'' '; SqlStr := SqlStr + ' and isnull(status,''0'')=''10'' ';
end; end;
end; end;
SqlStr := SqlStr + ' and ordtype=''' + FOrdType + ''' ';
try SqlStr := SqlStr + ' order by filltime desc';
ADOQueryMain.DisableControls;
with ADOQueryMain do InitCDSData(ADOQueryMain, Order_Main, Tv1, SqlStr, FilterStr, 'CoCode');
begin
Filtered := False;
Close;
sql.Clear;
sql.add(' select * ');
sql.Add(' ,HZPiQty=(select sum(TMSPiece) from Trade_Market_Sub X where X.TMMId=A.TMMId)');
sql.Add(' ,OrdQty=(select sum(TMSQty) from Trade_Market_Sub X where X.TMMId=A.TMMId)');
sql.Add(' ,OrdUnit=(select top 1 TMSUnit from Trade_Market_Sub X where X.TMMId=A.TMMId)');
sql.add(' from Trade_Market_Main A ');
// Sql.add(' inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
if canshu1 = '录入' then
begin
sql.add(' and A.Filler= ' + QuotedStr(Trim(DName)));
end;
sql.add(' ' + STRwhere);
sql.Add(' and ordtype=''' + FOrdType + ''' ');
sql.add(' order by filltime desc');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
TV1.DataController.Filter.Clear;
end;
end; end;
procedure TfrmTradeMarketList.SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string); procedure TfrmTradeMarketList.SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string);
@ -394,7 +346,6 @@ end;
procedure TfrmTradeMarketList.InitForm(); procedure TfrmTradeMarketList.InitForm();
begin begin
ReadCxGrid('指示单列表FF1', Tv1, '生产指示单管理'); ReadCxGrid('指示单列表FF1', Tv1, '生产指示单管理');
ReadCxGrid('指示单列表FFTv21', Tv2, '生产指示单管理');
frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 180; frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 180;
frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp); frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
@ -548,7 +499,8 @@ end;
procedure TfrmTradeMarketList.FormShow(Sender: TObject); procedure TfrmTradeMarketList.FormShow(Sender: TObject);
begin begin
inherited; inherited;
canshu1 := self.fParameters1; canshu1 := trim(self.fParameters1);
canshu2 := trim(self.fParameters2);
fFlileFlag := UserDataFlag + 'HX'; fFlileFlag := UserDataFlag + 'HX';
cxTabControl1.TabIndex := 0; cxTabControl1.TabIndex := 0;
InitForm(); InitForm();
@ -699,12 +651,6 @@ begin
Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end; end;
procedure TfrmTradeMarketList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
InitSub();
end;
procedure TfrmTradeMarketList.ToolButton4Click(Sender: TObject); procedure TfrmTradeMarketList.ToolButton4Click(Sender: TObject);
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
@ -982,11 +928,6 @@ begin
Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end; end;
procedure TfrmTradeMarketList.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(ORDER_SUB.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTradeMarketList.N3Click(Sender: TObject); procedure TfrmTradeMarketList.N3Click(Sender: TObject);
begin begin
SelOKNoFiler(Tv1, True); //全选 SelOKNoFiler(Tv1, True); //全选
@ -1013,14 +954,12 @@ end;
procedure TfrmTradeMarketList.ToolButton10Click(Sender: TObject); procedure TfrmTradeMarketList.ToolButton10Click(Sender: TObject);
begin begin
WriteCxGrid('指示单列表FF1', Tv1, '生产指示单管理'); WriteCxGrid('指示单列表FF1', Tv1, '生产指示单管理');
WriteCxGrid('指示单列表FFTv21', Tv2, '生产指示单管理6');
application.MessageBox('保存成功！', '提示信息', 0); application.MessageBox('保存成功！', '提示信息', 0);
end; end;
procedure TfrmTradeMarketList.ToolButton2Click(Sender: TObject); procedure TfrmTradeMarketList.ToolButton2Click(Sender: TObject);
begin begin
WriteCxGrid('指示单列表FF1', Tv1, '生产指示单管理'); WriteCxGrid('指示单列表FF1', Tv1, '生产指示单管理');
WriteCxGrid('指示单列表FFTv21', Tv2, '生产指示单管理');
end; end;
end. end.