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

调整

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-29 09:23:46 +08:00
parent c73edaf684
commit 8c1ea222a7
30 changed files with 6940 additions and 164 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -365,7 +365,15 @@ begin
cxDBTreeList1.Items[0].Expand(False); cxDBTreeList1.Items[0].Expand(False);
end; end;
if canshu4 = '二次加工' then
begin
Self.cds_tree.Locate('CTName', '끓틔도갭', []); Self.cds_tree.Locate('CTName', '끓틔도갭', []);
end
else
begin
Self.cds_tree.Locate('CTName', '成品', []);
end;
end; end;
procedure TfrmClothInfo.InitGrid(); procedure TfrmClothInfo.InitGrid();

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

@ -580,23 +580,30 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 67 ButtonWidth = 99
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 = 0 TabOrder = 0
object ToolButton8: TToolButton object ToolButton13: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
Caption = #35774#20026#40664#35748
ImageIndex = 15
OnClick = ToolButton13Click
end
object ToolButton8: TToolButton
Left = 99
Top = 0
AutoSize = True AutoSize = True
Caption = #22686#34892 Caption = #22686#34892
ImageIndex = 2 ImageIndex = 2
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 71 Left = 170
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#34892 Caption = #21024#34892
@ -652,6 +659,15 @@ object frmClothInfoInput: TfrmClothInfoInput
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 117 Width = 117
end end
object TV3Column1: TcxGridDBColumn
Caption = #40664#35748
DataBinding.FieldName = 'IsDefault'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 69
end
end end
object cxGridLevel3: TcxGridLevel object cxGridLevel3: TcxGridLevel
GridView = TV3 GridView = TV3
@ -993,6 +1009,7 @@ object frmClothInfoInput: TfrmClothInfoInput
OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
object TV1Column1: TcxGridDBColumn object TV1Column1: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394

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

@ -138,6 +138,8 @@ type
Process4: TcxButtonEdit; Process4: TcxButtonEdit;
Process5: TcxButtonEdit; Process5: TcxButtonEdit;
Process: TcxButtonEdit; Process: TcxButtonEdit;
ToolButton13: TToolButton;
TV3Column1: TcxGridDBColumn;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
@ -173,6 +175,7 @@ type
procedure C_FromName4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure C_FromName4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure C_FromName5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure C_FromName5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure CostPriceClick(Sender: TObject); procedure CostPriceClick(Sender: TObject);
procedure ToolButton13Click(Sender: TObject);
private private
canshu1: string; canshu1: string;
Fint: Integer; Fint: Integer;
@ -1321,6 +1324,23 @@ begin
CDS_1.EmptyDataSet; CDS_1.EmptyDataSet;
end; end;
procedure TfrmClothInfoInput.ToolButton13Click(Sender: TObject);
var
DwFlag: string;
begin
DwFlag := trim(CDS_3.FieldByName('CICID').AsString);
if CDS_3.Locate('IsDefault', true, []) then
begin
CDS_3.edit;
CDS_3.FieldByName('IsDefault').value := false;
end;
if CDS_3.Locate('CICID', DwFlag, []) then
begin
CDS_3.edit;
CDS_3.FieldByName('IsDefault').value := true;
end;
end;
procedure TfrmClothInfoInput.ToolButton1Click(Sender: TObject); procedure TfrmClothInfoInput.ToolButton1Click(Sender: TObject);
var var
MC_Code: string; MC_Code: string;
@ -1372,6 +1392,21 @@ begin
Application.MessageBox('ÇëÊäÈë¼Æ¼Ûµ¥Î»!', 'Ìáʾ', 0); Application.MessageBox('ÇëÊäÈë¼Æ¼Ûµ¥Î»!', 'Ìáʾ', 0);
Exit; Exit;
end; end;
if cds_3.IsEmpty then
begin
Application.MessageBox('헝渴흙데貫!', '瓊刻', 0);
Exit;
end
else
begin
if CDS_3.Locate('CICUnit', null, []) = True then
begin
Application.MessageBox('헝渴흙데貫!', '瓊刻', 0);
Exit;
end;
end;
// if CDS_1.Locate('C_Color', null, []) = True then // if CDS_1.Locate('C_Color', null, []) = True then
// begin // begin

1
T02贸易汇总仓库/TradeTotalClothStk.dpr
View File

@ -71,6 +71,7 @@ uses
U_dynamicsDll in '..\..\..\public10\ThreeFun\Fun\U_dynamicsDll.pas', U_dynamicsDll in '..\..\..\public10\ThreeFun\Fun\U_dynamicsDll.pas',
U_printPdf in '..\..\..\public10\ThreeFun\Fun\U_printPdf.pas', U_printPdf in '..\..\..\public10\ThreeFun\Fun\U_printPdf.pas',
U_CustomFun in '..\A00ͨÓ÷½·¨\U_CustomFun.pas', U_CustomFun in '..\A00ͨÓ÷½·¨\U_CustomFun.pas',
U_ProgressUpdate in '..\A00通用方法\U_ProgressUpdate.pas',
U_TradeClothSplit in 'U_TradeClothSplit.pas' {frmTradeClothSplit}, U_TradeClothSplit in 'U_TradeClothSplit.pas' {frmTradeClothSplit},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_TradeRRList in 'U_TradeRRList.pas' {frmTradeRRList}, U_TradeRRList in 'U_TradeRRList.pas' {frmTradeRRList},

5
T02贸易汇总仓库/TradeTotalClothStk.dproj
View File

@ -349,23 +349,20 @@
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_dynamicsDll.pas"/> <DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_dynamicsDll.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_printPdf.pas"/> <DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_printPdf.pas"/>
<DCCReference Include="..\A00通用方法\U_CustomFun.pas"/> <DCCReference Include="..\A00通用方法\U_CustomFun.pas"/>
<DCCReference Include="..\A00通用方法\U_ProgressUpdate.pas"/>
<DCCReference Include="U_TradeClothSplit.pas"> <DCCReference Include="U_TradeClothSplit.pas">
<Form>frmTradeClothSplit</Form> <Form>frmTradeClothSplit</Form>
<FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/> <DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<DCCReference Include="U_TradeRRList.pas"> <DCCReference Include="U_TradeRRList.pas">
<Form>frmTradeRRList</Form> <Form>frmTradeRRList</Form>
<FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_TradeRRInPut.pas"> <DCCReference Include="U_TradeRRInPut.pas">
<Form>frmTradeRRInPut</Form> <Form>frmTradeRRInPut</Form>
<FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_RPFun.pas"/> <DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_RPFun.pas"/>
<DCCReference Include="U_InputReceiptType.pas"> <DCCReference Include="U_InputReceiptType.pas">
<Form>frmInputReceiptType</Form> <Form>frmInputReceiptType</Form>
<FormType>dfm</FormType>
</DCCReference> </DCCReference>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>

2
T02贸易汇总仓库/U_GetDllForm.pas
View File

@ -84,7 +84,7 @@ begin
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;
Parameters1 := '管理'; // Parameters1 := '管理';
// Parameters2 := '贸易布匹'; // Parameters2 := '贸易布匹';
// Parameters2 := '格美门店'; // Parameters2 := '格美门店';
// Parameters2 := '新余'; // Parameters2 := '新余';

85
T02贸易汇总仓库/U_TradeClothTotalOutList.dfm
View File

@ -2,16 +2,15 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
Left = 65 Left = 65
Top = 98 Top = 98
Caption = #36152#26131#24067#21305#20986#24211#21015#34920 Caption = #36152#26131#24067#21305#20986#24211#21015#34920
ClientHeight = 736 ClientHeight = 618
ClientWidth = 1281 ClientWidth = 1281
Color = clBtnFace Color = clBtnFace
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitTop = -112
ExplicitWidth = 1297 ExplicitWidth = 1297
ExplicitHeight = 775 ExplicitHeight = 657
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -318,27 +317,26 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
end end
object cxPageControl1: TcxPageControl [4] object cxPageControl1: TcxPageControl [4]
Left = 0 Left = 0
Top = 177 Top = 214
Width = 1281 Width = 1281
Height = 559 Height = 404
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 5 Properties.Style = 5
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ClientRectBottom = 559 ClientRectBottom = 404
ClientRectRight = 1281 ClientRectRight = 1281
ClientRectTop = 32 ClientRectTop = 32
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = ' '#20135#21697#27719#24635' ' Caption = ' '#20135#21697#27719#24635' '
ImageIndex = 0 ImageIndex = 0
ExplicitTop = 0
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1281 Width = 1281
Height = 527 Height = 372
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
@ -513,7 +511,7 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1281 Width = 1281
Height = 527 Height = 372
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
@ -1070,6 +1068,75 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
ClientRectRight = 0 ClientRectRight = 0
ClientRectTop = 0 ClientRectTop = 0
end end
object Panel6: TPanel [6]
Left = 0
Top = 177
Width = 1281
Height = 37
Align = alTop
AutoSize = True
BevelInner = bvLowered
BorderStyle = bsSingle
TabOrder = 6
DesignSize = (
1277
33)
object Label31: TLabel
Left = 14
Top = 7
Width = 96
Height = 21
Alignment = taCenter
Anchors = [akLeft]
Caption = #27599#39029#35760#24405#26465#25968
Layout = tlCenter
ExplicitTop = 8
end
object LBCPAP: TLabel
Left = 478
Top = 6
Width = 100
Height = 20
Alignment = taCenter
Anchors = [akLeft]
AutoSize = False
Caption = #24403#21069#39029'/'#24635#39029#25968
Layout = tlCenter
ExplicitTop = 7
end
object BTLP: TButton
Left = 391
Top = 4
Width = 78
Height = 27
Anchors = [akLeft]
Caption = #19978#19968#39029
TabOrder = 0
end
object BTNP: TButton
Left = 585
Top = 3
Width = 78
Height = 28
Anchors = [akLeft]
Caption = #19979#19968#39029
TabOrder = 1
end
object TCBNOR: TcxComboBox
Tag = 2
Left = 122
Top = 2
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'500'
'1000'
'5000'
'10000')
TabOrder = 2
Text = '500'
Width = 94
end
end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 504 Left = 504

155
T02贸易汇总仓库/U_TradeClothTotalOutList.pas
View File

@ -14,7 +14,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, Clipbrd, dxScrollbarAnnotations, FrameDateSel, dxBarBuiltInMenu, U_BaseList, Clipbrd, dxScrollbarAnnotations, FrameDateSel,
cxContainer, cxMaskEdit, cxProgressBar, cxButtons, dxSkinsCore, cxContainer, cxMaskEdit, cxProgressBar, cxButtons, dxSkinsCore,
dxSkinsDefaultPainters; dxSkinsDefaultPainters, System.Math;
type type
TfrmTradeClothTotalOutList = class(TfrmBaseList) TfrmTradeClothTotalOutList = class(TfrmBaseList)
@ -141,6 +141,12 @@ type
Tv1Column36: TcxGridDBColumn; Tv1Column36: TcxGridDBColumn;
ToolButton5: TToolButton; ToolButton5: TToolButton;
cxTabControl1: TcxTabControl; cxTabControl1: TcxTabControl;
Panel6: TPanel;
Label31: TLabel;
LBCPAP: TLabel;
BTLP: TButton;
BTNP: TButton;
TCBNOR: TcxComboBox;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -175,9 +181,11 @@ type
procedure TV2DblClick(Sender: TObject); procedure TV2DblClick(Sender: TObject);
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
private private
CurrentPage, RecordsNumber: Integer;
canshu1, FSTKName, canshu3, canshu4: string; canshu1, FSTKName, canshu3, canshu4: string;
procedure InitGrid1(); procedure InitGrid1();
procedure InitGrid2(); procedure InitGrid2();
procedure InitGrid(MWSql: string);
{ Private declarations } { Private declarations }
public public
{ Public declarations } { Public declarations }
@ -189,10 +197,108 @@ type
implementation implementation
uses uses
U_DataLink, U_RTFun, U_TradeTotallClothOutinput, U_AttachmentUpload, U_DataLink, U_RTFun, U_TradeTotallClothOutinput, U_AttachmentUpload,U_ProgressUpdate,
U_LabelPrint, U_PrintLabFun, U_dynamicsDll, U_printPdf, U_InputReceiptType; U_LabelPrint, U_PrintLabFun, U_dynamicsDll, U_printPdf, U_InputReceiptType;
{$R *.dfm} {$R *.dfm}
procedure TfrmTradeClothTotalOutList.InitGrid(MWSql: string);
var
WSql, WDateSql: string;
SqlStr: string;
begin
WDateSql := ' and A.Filltime>' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date));
WDateSql := WDateSql + ' and A.Filltime<=' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1));
WDateSql := WDateSql + ' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''';
if Trim(canshu4) <> '' then
WDateSql := WDateSql + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
case cxTabControl1.TabIndex of
0:
begin
WDateSql := WDateSql + ' and Status=''0'' ';
end;
1:
begin
WDateSql := WDateSql + ' and Status=''1'' ';
end;
end;
case cxPageControl1.ActivePageIndex of
0:
begin
// WSql := CommonFiltersByContainer(dxLayoutControl_query, ' {"EquTag": 1,"LikeTag": 2,"Fields": "OrderNo|FtyPCId|FtyPCId|C_Color|C_Code|C_Name"}');
if trim(WSql) <> '' then
begin
WSql := WDateSql + ' and ' + trim(WSql);
end
else
WSql := WDateSql;
SqlStr := ' select A.ReceiptType,A.BCIONO,A.ToCoName,A.C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit ';
SqlStr := SqlStr + ' ,Pieceint=sum(CEILING(A.Piece)),Qty=sum(Qty),QtyUnit ';
SqlStr := SqlStr + ' from BS_Cloth_IO A ';
SqlStr := SqlStr + ' where 1=1 ' + (WSql);
SqlStr := SqlStr + ' and ioFlag=''³ö¿â'' ';
SqlStr := SqlStr + ' group by A.ReceiptType,A.BCIONO,A.ToCoName,C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit';
// ShowMessage(SqlStr);
InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code');
end;
1:
begin
if MWSql = '' then
WSql := CommonFiltersByContainer(panel1, ' {"EquTag": 1,"LikeTag": 2,"Fields": ""}')
else
WSql := MWSql;
if trim(WSql) <> '' then
begin
WSql := WDateSql + ' and ' + trim(WSql);
end
else
WSql := WDateSql;
SqlStr := 'exec P_Trade_Totaloutlist_Get_Page ';
SqlStr := SqlStr + ' @pageIndex=' + inttostr(CurrentPage);
SqlStr := SqlStr + ' ,@pageSize=' + inttostr(RecordsNumber);
SqlStr := SqlStr + ' ,@criteria= ' + quotedstr(WSql);
// showmessage(SqlStr);
InitCDSData(ADO_1, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code');
LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber));
end;
end;
end;
procedure TfrmTradeClothTotalOutList.InitGrid1();
var
SqlStr, WSqlStr: string;
begin
SqlStr := ' select A.* ,Pieceint=CEILING(A.Piece)';
SqlStr := SqlStr + ',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''óÒ×»ã×ܲ¼'' and X.WBID=A.BCIOID)>0 THEN 1 ELSE 0 END) AS BIT) ';
SqlStr := SqlStr + ' from BS_Cloth_IO A';
SqlStr := SqlStr + ' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''';
SqlStr := SqlStr + ' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + '''';
SqlStr := SqlStr + ' and ioFlag=''³ö¿â'' ';
case cxTabControl1.TabIndex of
0:
begin
SqlStr := SqlStr + ' and Status=''0'' ';
end;
1:
begin
SqlStr := SqlStr + ' and Status=''1'' ';
end;
end;
WSqlStr := CommonFiltersByTv(Tv2, '{"RemovalNull":true,"Fields":"BCIONO"}');
if TRIM(WSqlStr) <> '' then
SqlStr := SqlStr + ' and ' + WSqlStr;
if Trim(canshu4) <> '' then
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
InitCDSData(ADO_1, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID');
end;
procedure TfrmTradeClothTotalOutList.InitGrid2(); procedure TfrmTradeClothTotalOutList.InitGrid2();
var var
@ -243,38 +349,6 @@ begin
frmFrameDateSel1.BegDate.Date := frmFrameDateSel1.EndDate.Date - 90; frmFrameDateSel1.BegDate.Date := frmFrameDateSel1.EndDate.Date - 90;
end; end;
procedure TfrmTradeClothTotalOutList.InitGrid1();
var
SqlStr, WSqlStr: string;
begin
SqlStr := ' select A.* ,Pieceint=CEILING(A.Piece)';
SqlStr := SqlStr + ',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''óÒ×»ã×ܲ¼'' and X.WBID=A.BCIOID)>0 THEN 1 ELSE 0 END) AS BIT) ';
SqlStr := SqlStr + ' from BS_Cloth_IO A';
SqlStr := SqlStr + ' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''';
SqlStr := SqlStr + ' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + '''';
SqlStr := SqlStr + ' and ioFlag=''³ö¿â'' ';
case cxTabControl1.TabIndex of
0:
begin
SqlStr := SqlStr + ' and Status=''0'' ';
end;
1:
begin
SqlStr := SqlStr + ' and Status=''1'' ';
end;
end;
WSqlStr := CommonFiltersByTv(Tv2, '{"RemovalNull":true,"Fields":"BCIONO"}');
if TRIM(WSqlStr) <> '' then
SqlStr := SqlStr + ' and ' + WSqlStr;
if Trim(canshu4) <> '' then
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
InitCDSData(ADO_1, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID');
end;
procedure TfrmTradeClothTotalOutList.IOTypePropertiesChange(Sender: TObject); procedure TfrmTradeClothTotalOutList.IOTypePropertiesChange(Sender: TObject);
begin begin
TBFind.Click; TBFind.Click;
@ -283,7 +357,9 @@ end;
procedure TfrmTradeClothTotalOutList.TBRafreshClick(Sender: TObject); procedure TfrmTradeClothTotalOutList.TBRafreshClick(Sender: TObject);
begin begin
ToolBar1.SetFocus; ToolBar1.SetFocus;
InitGrid2(); // InitGrid2();
CurrentPage := 1;
InitGrid('');
end; end;
procedure TfrmTradeClothTotalOutList.ToolButton1Click(Sender: TObject); procedure TfrmTradeClothTotalOutList.ToolButton1Click(Sender: TObject);
@ -452,12 +528,15 @@ var
mSql: string; mSql: string;
begin begin
inherited; inherited;
CurrentPage := 1;
RecordsNumber := 500;
mSql := 'select distinct name=A.IOType from BS_Cloth_IO A where IOFlag=''出库'' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + ''' '; mSql := 'select distinct name=A.IOType from BS_Cloth_IO A where IOFlag=''出库'' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + ''' ';
SInitTcxComBoxBySql(ADOQueryTemp, IOType, false, mSql); SInitTcxComBoxBySql(ADOQueryTemp, IOType, false, mSql);
ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, '贸易汇总仓库'); ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, '贸易汇总仓库');
ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, '贸易汇总仓库'); ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, '贸易汇总仓库');
InitGrid2(); InitGrid('');
// InitGrid2();
end; end;
procedure TfrmTradeClothTotalOutList.TBExportClick(Sender: TObject); procedure TfrmTradeClothTotalOutList.TBExportClick(Sender: TObject);
@ -513,7 +592,7 @@ end;
procedure TfrmTradeClothTotalOutList.TBDelClick(Sender: TObject); procedure TfrmTradeClothTotalOutList.TBDelClick(Sender: TObject);
var var
MBCIOID, MBCIONO: string; MBCIOID, MBCIONO, MTMSId: string;
begin begin
if cxPageControl1.ActivePageIndex <> 1 then if cxPageControl1.ActivePageIndex <> 1 then
Exit; Exit;
@ -530,6 +609,7 @@ begin
Exit; Exit;
MBCIOID := SelCDSKey(CDS_1, ['BCIOID'])[0]; MBCIOID := SelCDSKey(CDS_1, ['BCIOID'])[0];
MBCIONO := SelCDSKey(CDS_1, ['BCIONO'])[0]; MBCIONO := SelCDSKey(CDS_1, ['BCIONO'])[0];
MTMSId := SelCDSKey(CDS_1, ['TMSId'])[0];
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
@ -583,6 +663,7 @@ begin
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
TradeMarketProgressUpdate(ADOQueryBaseCmd, MTMSId);
InitGrid2(); InitGrid2();
InitGrid1(); InitGrid1();
except except

87
T02贸易汇总仓库/U_TradeClothTotalStkList.dfm
View File

@ -178,29 +178,33 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
end end
object cxPageControl1: TcxPageControl [4] object cxPageControl1: TcxPageControl [4]
Left = 0 Left = 0
Top = 89 Top = 126
Width = 1404 Width = 1404
Height = 426 Height = 389
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 5 Properties.Style = 5
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ClientRectBottom = 426 ExplicitTop = 89
ExplicitHeight = 426
ClientRectBottom = 389
ClientRectRight = 1404 ClientRectRight = 1404
ClientRectTop = 32 ClientRectTop = 32
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = ' '#20135#21697#27719#24635' ' Caption = ' '#20135#21697#27719#24635' '
ImageIndex = 0 ImageIndex = 0
ExplicitHeight = 394
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1404 Width = 1404
Height = 394 Height = 357
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
ExplicitHeight = 394
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
OnDblClick = TV2DblClick OnDblClick = TV2DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -352,14 +356,16 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
object cxTabSheet2: TcxTabSheet object cxTabSheet2: TcxTabSheet
Caption = #20135#21697#26126#32454 Caption = #20135#21697#26126#32454
ImageIndex = 1 ImageIndex = 1
ExplicitHeight = 394
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1404 Width = 1404
Height = 394 Height = 357
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
ExplicitHeight = 394
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -797,6 +803,77 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
end end
end end
end end
object Panel6: TPanel [5]
Left = 0
Top = 89
Width = 1404
Height = 37
Align = alTop
AutoSize = True
BevelInner = bvLowered
BorderStyle = bsSingle
TabOrder = 5
ExplicitTop = 149
ExplicitWidth = 1234
DesignSize = (
1400
33)
object Label31: TLabel
Left = 14
Top = 7
Width = 96
Height = 21
Alignment = taCenter
Anchors = [akLeft]
Caption = #27599#39029#35760#24405#26465#25968
Layout = tlCenter
ExplicitTop = 8
end
object LBCPAP: TLabel
Left = 478
Top = 6
Width = 100
Height = 20
Alignment = taCenter
Anchors = [akLeft]
AutoSize = False
Caption = #24403#21069#39029'/'#24635#39029#25968
Layout = tlCenter
ExplicitTop = 7
end
object BTLP: TButton
Left = 391
Top = 4
Width = 78
Height = 27
Anchors = [akLeft]
Caption = #19978#19968#39029
TabOrder = 0
end
object BTNP: TButton
Left = 585
Top = 3
Width = 78
Height = 28
Anchors = [akLeft]
Caption = #19979#19968#39029
TabOrder = 1
end
object TCBNOR: TcxComboBox
Tag = 2
Left = 122
Top = 2
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'500'
'1000'
'5000'
'10000')
TabOrder = 2
Text = '500'
Width = 94
end
end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 524 Left = 524

86
T02贸易汇总仓库/U_TradeClothTotalStkList.pas
View File

@ -14,7 +14,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer,
cxProgressBar, cxButtons, cxMaskEdit, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, cxButtons, cxMaskEdit, dxSkinsCore, dxSkinsDefaultPainters,
cxPC; cxPC, System.Math;
type type
TfrmTradeClothTotalStkList = class(TfrmBaseList) TfrmTradeClothTotalStkList = class(TfrmBaseList)
@ -110,6 +110,12 @@ type
Label1: TLabel; Label1: TLabel;
StkPosition: TcxTextEdit; StkPosition: TcxTextEdit;
TV2Column1: TcxGridDBColumn; TV2Column1: TcxGridDBColumn;
Panel6: TPanel;
Label31: TLabel;
LBCPAP: TLabel;
BTLP: TButton;
BTNP: TButton;
TCBNOR: TcxComboBox;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -128,8 +134,10 @@ type
procedure TV2DblClick(Sender: TObject); procedure TV2DblClick(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject); procedure cxPageControl1Change(Sender: TObject);
private private
CurrentPage, RecordsNumber: Integer;
canshu1, FSTKName, canshu3, canshu4: string; canshu1, FSTKName, canshu3, canshu4: string;
procedure InitGrid(); // procedure InitGrid();
procedure InitGrid(MWSql: string);
procedure InitGrid1(); procedure InitGrid1();
procedure InitGrid2(); procedure InitGrid2();
{ Private declarations } { Private declarations }
@ -180,17 +188,79 @@ begin
canshu4 := Trim(self.fParameters4); canshu4 := Trim(self.fParameters4);
end; end;
procedure TfrmTradeClothTotalStkList.InitGrid(); //procedure TfrmTradeClothTotalStkList.InitGrid();
//begin
// case cxPageControl1.ActivePageIndex of
// 0:
// begin
// InitGrid2();
// end;
// 1:
// begin
//
// InitGrid1();
// end;
// end;
//
//end;
procedure TfrmTradeClothTotalStkList.InitGrid(MWSql: string);
var
WSql, WDateSql: string;
SqlStr: string;
begin begin
WDateSql := ' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''';
if Trim(canshu4) <> '' then
WDateSql := WDateSql + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
case cxPageControl1.ActivePageIndex of case cxPageControl1.ActivePageIndex of
0: 0:
begin begin
InitGrid2(); // WSql := CommonFiltersByContainer(dxLayoutControl_query, ' {"EquTag": 1,"LikeTag": 2,"Fields": "OrderNo|FtyPCId|FtyPCId|C_Color|C_Code|C_Name"}');
if trim(WSql) <> '' then
begin
WSql := WDateSql + ' and ' + trim(WSql);
end
else
WSql := WDateSql;
SqlStr := ' select A.C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit,StkPieceint=sum(CEILING(A.StkPiece)),StkQty=sum(StkQty),QtyUnit,StkPosition ';
SqlStr := SqlStr + ' from BS_Cloth_IO A ';
SqlStr := SqlStr + ' where A.IOFlag=''Èë¿â'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ';
SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + '''';
if Trim(canshu4) <> '' then
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
SqlStr := SqlStr + ' group by C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit,StkPosition';
// ShowMessage(SqlStr);
InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code');
end; end;
1: 1:
begin begin
if MWSql = '' then
WSql := CommonFiltersByContainer(panel1, ' {"EquTag": 1,"LikeTag": 2,"Fields": ""}')
else
WSql := MWSql;
InitGrid1(); if trim(WSql) <> '' then
begin
WSql := WDateSql + ' and ' + trim(WSql);
end
else
WSql := WDateSql;
SqlStr := 'exec P_Trade_Totalstk_Get_Page ';
SqlStr := SqlStr + ' @pageIndex=' + inttostr(CurrentPage);
SqlStr := SqlStr + ' ,@pageSize=' + inttostr(RecordsNumber);
SqlStr := SqlStr + ' ,@criteria= ' + quotedstr(WSql);
showmessage(SqlStr);
InitCDSData(ADO_1, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code');
LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber));
end; end;
end; end;
@ -239,7 +309,8 @@ end;
procedure TfrmTradeClothTotalStkList.TBRafreshClick(Sender: TObject); procedure TfrmTradeClothTotalStkList.TBRafreshClick(Sender: TObject);
begin begin
InitGrid2(); InitGrid('');
// InitGrid2();
end; end;
procedure TfrmTradeClothTotalStkList.TBCloseClick(Sender: TObject); procedure TfrmTradeClothTotalStkList.TBCloseClick(Sender: TObject);
@ -251,7 +322,8 @@ end;
procedure TfrmTradeClothTotalStkList.FormShow(Sender: TObject); procedure TfrmTradeClothTotalStkList.FormShow(Sender: TObject);
begin begin
inherited; inherited;
CurrentPage := 1;
RecordsNumber := 500;
ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, 'óÒ×»ã×ֿܲâ'); ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, 'óÒ×»ã×ֿܲâ');
ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, 'óÒ×»ã×ֿܲâ'); ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, 'óÒ×»ã×ֿܲâ');
canshu4 := Trim(self.fParameters4); canshu4 := Trim(self.fParameters4);

2
T03贸易布匹检验/DjdMachineInsp.dpr
View File

@ -27,7 +27,7 @@ uses
U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas', U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
U_LabelMapSet in '..\A00ͨÓô°Ìå\U_LabelMapSet.pas' {frmLabelMapSet}, U_LabelMapSet in '..\A00ͨÓô°Ìå\U_LabelMapSet.pas' {frmLabelMapSet},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_MachRollMain in 'U_MachRollMain.pas' {frmMachRollMain}, U_MachRollMarket in 'U_MachRollMarket.pas' {frmMachRollMarket},
U_frameBads in 'U_frameBads.pas' {frameBads: TFrame}, U_frameBads in 'U_frameBads.pas' {frameBads: TFrame},
U_frameParam in 'U_frameParam.pas' {FrameParam: TFrame}, U_frameParam in 'U_frameParam.pas' {FrameParam: TFrame},
U_ParamSet in 'U_ParamSet.pas' {frmParamSet}, U_ParamSet in 'U_ParamSet.pas' {frmParamSet},

4
T03贸易布匹检验/DjdMachineInsp.dproj
View File

@ -221,8 +221,8 @@
<FormType>dfm</FormType> <FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="U_MachRollMain.pas"> <DCCReference Include="U_MachRollMarket.pas">
<Form>frmMachRollMain</Form> <Form>frmMachRollMarket</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_frameBads.pas"> <DCCReference Include="U_frameBads.pas">

13
T03贸易布匹检验/U_GetDllForm.pas
View File

@ -17,7 +17,7 @@ implementation
uses uses
U_DataLink, U_globalVar, U_iniParam, U_TradeMachInsp, U_ProductJYHZList, U_DataLink, U_globalVar, U_iniParam, U_TradeMachInsp, U_ProductJYHZList,
U_DeviceJkTest, U_TradeClothInspList, U_MachRollMain, U_TradePack, U_DeviceJkTest, U_TradeClothInspList, U_MachRollMain, U_TradePack,
U_DjdDjClList, U_TradeClothTotalCXJYOutList; U_DjdDjClList, U_TradeClothTotalCXJYOutList,U_MachRollMarket,U_MachRollMain_M;
///////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 // // 功能说明:取Dll中得窗体 //
@ -166,6 +166,17 @@ begin
mnewHandle := Handle; mnewHandle := Handle;
end; end;
end; end;
11: //»ų́¼ìÑé
begin
with TfrmMachRollMain_M.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin
fFormID := FormID;
// FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
121: //布匹打包 121: //布匹打包
begin begin

42
T03贸易布匹检验/U_MachRollMain.dfm
View File

@ -643,7 +643,7 @@ inherited frmMachRollMain: TfrmMachRollMain
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 96 Width = 65
end end
object TV2Column4: TcxGridDBColumn object TV2Column4: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
@ -651,7 +651,7 @@ inherited frmMachRollMain: TfrmMachRollMain
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 72 Width = 58
end end
object TV2Column1: TcxGridDBColumn object TV2Column1: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
@ -659,7 +659,7 @@ inherited frmMachRollMain: TfrmMachRollMain
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 93 Width = 85
end end
object TV2Column2: TcxGridDBColumn object TV2Column2: TcxGridDBColumn
Caption = #33394#24067#21517#31216 Caption = #33394#24067#21517#31216
@ -682,7 +682,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Properties.ReadOnly = False Properties.ReadOnly = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 79 Width = 64
end end
object TV2Column5: TcxGridDBColumn object TV2Column5: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
@ -714,7 +714,13 @@ inherited frmMachRollMain: TfrmMachRollMain
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 84 Width = 68
end
object TV2Column10: TcxGridDBColumn
Caption = #24212#37197#25968#37327
DataBinding.FieldName = 'TMSQty'
DataBinding.IsNullValueType = True
Width = 76
end end
object v1OrderUnit: TcxGridDBColumn object v1OrderUnit: TcxGridDBColumn
Caption = #24211#23384#21333#20301 Caption = #24211#23384#21333#20301
@ -727,7 +733,19 @@ inherited frmMachRollMain: TfrmMachRollMain
'Kg') 'Kg')
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 110 Width = 74
end
object TV2Column6: TcxGridDBColumn
Caption = #35745#20215#21333#20301
DataBinding.FieldName = 'TMSUnit'
DataBinding.IsNullValueType = True
Width = 75
end
object TV2Column9: TcxGridDBColumn
Caption = #24050#37197#25968#37327
DataBinding.FieldName = 'OutQty'
DataBinding.IsNullValueType = True
Width = 79
end end
object cxGridDBColumn7: TcxGridDBColumn object cxGridDBColumn7: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
@ -882,6 +900,13 @@ inherited frmMachRollMain: TfrmMachRollMain
Options.Sorting = False Options.Sorting = False
Width = 112 Width = 112
end end
object Tv3Column1: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
GridView = Tv3 GridView = Tv3
@ -948,8 +973,8 @@ inherited frmMachRollMain: TfrmMachRollMain
end end
end end
object cxGroupBox_keys: TcxGroupBox [2] object cxGroupBox_keys: TcxGroupBox [2]
Left = 778 Left = 295
Top = 61 Top = 321
Caption = #34394#25311#38190#30424 Caption = #34394#25311#38190#30424
Style.LookAndFeel.NativeStyle = False Style.LookAndFeel.NativeStyle = False
StyleDisabled.LookAndFeel.NativeStyle = False StyleDisabled.LookAndFeel.NativeStyle = False
@ -972,6 +997,7 @@ inherited frmMachRollMain: TfrmMachRollMain
inherited dxPanel1: TdxPanel inherited dxPanel1: TdxPanel
Width = 323 Width = 323
Height = 257 Height = 257
ExplicitTop = -3
ExplicitWidth = 323 ExplicitWidth = 323
ExplicitHeight = 257 ExplicitHeight = 257
inherited SpeedButton1: TSpeedButton inherited SpeedButton1: TSpeedButton

92
T03贸易布匹检验/U_MachRollMain.pas
View File

@ -18,7 +18,7 @@ uses
U_KeyBoard, cxGroupBox, cxGridCustomPopupMenu, cxGridPopupMenu, MovePanel, U_KeyBoard, cxGroupBox, cxGridCustomPopupMenu, cxGridPopupMenu, MovePanel,
RM_RichEdit, cxProgressBar, cxCurrencyEdit, dxSkinsCore, frxBarcode, frxRich, RM_RichEdit, cxProgressBar, cxCurrencyEdit, dxSkinsCore, frxBarcode, frxRich,
frxOLE, frxTableObject, frxExportXLSX, frxClass, frxExportBaseDialog, frxOLE, frxTableObject, frxExportXLSX, frxClass, frxExportBaseDialog,
frxExportPPTX, frxDBSet, dxSkinWXI, dxSkinsDefaultPainters; frxExportPPTX, frxDBSet, dxSkinWXI, dxSkinsDefaultPainters, System.StrUtils;
type type
TfrmMachRollMain = class(TfrmBaseList) TfrmMachRollMain = class(TfrmBaseList)
@ -156,6 +156,10 @@ type
Tlog: TToolButton; Tlog: TToolButton;
ToolButton8: TToolButton; ToolButton8: TToolButton;
ToolButton2: TButton; ToolButton2: TButton;
Tv3Column1: TcxGridDBColumn;
TV2Column6: TcxGridDBColumn;
TV2Column9: TcxGridDBColumn;
TV2Column10: TcxGridDBColumn;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
@ -181,7 +185,7 @@ type
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
private private
FCIID, FCIFName, FWorkshop: string; FCIID, FCIFName, FWorkshop: string;
FBCIOID, FC_Code, FC_ColorNo, FQtyUnit, FLenUnit: string; FBCIOID, FC_Code, FC_ColorNo, FQtyUnit, FLenUnit, FTMSId, FTMMId: string;
Faddwet, faddlen: double; Faddwet, faddlen: double;
FFtyPCId, FGangNo, FRulePieceNo, FCDUnit: string; FFtyPCId, FGangNo, FRulePieceNo, FCDUnit: string;
FPieceNo: Integer; FPieceNo: Integer;
@ -218,7 +222,7 @@ type
public public
fmanage: string; fmanage: string;
fFlileFlag: string; fFlileFlag, FCKLX: string; //FCKLX 놔욋잚謹 객亮얩係쯤뵨토새데놔욋
end; end;
var var
@ -237,10 +241,19 @@ procedure TfrmMachRollMain.InitGrid2();
var var
SqlStr: string; SqlStr: string;
begin begin
if FCKLX = '토새데' then
begin
SqlStr := ' exec P_Trade_Market_WaitOut_Market ';
SqlStr := SqlStr + ' @TMSId =' + quotedstr(trim(FTMSId));
end
else
begin
SqlStr := ' exec P_Trade_Market_WaitOut '; SqlStr := ' exec P_Trade_Market_WaitOut ';
SqlStr := SqlStr + ' @C_Code =' + quotedstr(trim(FC_Code)); SqlStr := SqlStr + ' @C_Code =' + quotedstr(trim(FC_Code));
SqlStr := SqlStr + ' ,@C_ColorNo =' + quotedstr(trim(FC_ColorNo)); SqlStr := SqlStr + ' ,@C_ColorNo =' + quotedstr(trim(FC_ColorNo));
end;
// showmessage(SqlStr);
InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, '', ''); InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, '', '');
end; end;
@ -641,16 +654,35 @@ end;
procedure TfrmMachRollMain.InitPlan(MSubID: string); procedure TfrmMachRollMain.InitPlan(MSubID: string);
begin begin
if leftstr(MSubID, 2) = 'JS' then
begin
FCKLX := '토새데';
Button1.visible := false;
ToolButton2.visible := False;
end
else
begin
FCKLX := '얩係쯤';
Button1.visible := true;
ToolButton2.visible := true;
end;
with ADOQueryBaseTemp do with ADOQueryBaseTemp do
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
if FCKLX = '토새데' then
begin
SQL.Add('EXEC P_Trade_Insp_Get_Market @TMSId=''' + trim(MSubID) + '''');
end
else
begin
SQL.Add('EXEC P_Trade_Insp_Get_plan @BCIOID=''' + trim(MSubID) + ''''); SQL.Add('EXEC P_Trade_Insp_Get_plan @BCIOID=''' + trim(MSubID) + '''');
end;
Open; Open;
if not IsEmpty then if not IsEmpty then
begin begin
FLenUnit := trim(ADOQueryBaseTemp.fieldbyName('LenUnit').AsString); FLenUnit := trim(ADOQueryBaseTemp.fieldbyName('LenUnit').AsString);
if FLenUnit = '' then if FLenUnit = '' then
begin begin
@ -665,11 +697,10 @@ begin
// fLabVolume := trim(ADOQueryBaseTemp.fieldbyName('LabVolume').AsString); // fLabVolume := trim(ADOQueryBaseTemp.fieldbyName('LabVolume').AsString);
SetUnit(FLenUnit); SetUnit(FLenUnit);
FCDUnit := lblLenUnit.Caption; FCDUnit := lblLenUnit.Caption;
FTMSId := trim(fieldbyName('TMSId').AsString);
FTMMId := trim(fieldbyName('TMMId').AsString);
FBCIOID := trim(fieldbyName('BCIOID').AsString); FBCIOID := trim(fieldbyName('BCIOID').AsString);
FQtyUnit := trim(fieldbyName('QtyUnit').AsString); FQtyUnit := trim(fieldbyName('QtyUnit').AsString);
OrderNo.Text := trim(fieldbyName('FromOrdNo').AsString); OrderNo.Text := trim(fieldbyName('FromOrdNo').AsString);
CodeName.Text := trim(fieldbyName('C_Name').AsString); CodeName.Text := trim(fieldbyName('C_Name').AsString);
@ -698,9 +729,6 @@ begin
fTareType := ''; fTareType := '';
// if fieldbyName('RuleYardstick').AsInteger > 0 then
// RuleYardstick.Text := trim(fieldbyName('RuleYardstick').AsString)
// else
RuleYardstick.Text := '100'; RuleYardstick.Text := '100';
packnote.Lines.Clear; packnote.Lines.Clear;
@ -990,6 +1018,20 @@ var
begin begin
try try
cds_3.DisableControls; cds_3.DisableControls;
if FCKLX = '토새데' then
begin
with ADOQueryMain do
begin
Close;
SQL.Clear;
SQL.Add('select A.*');
SQL.Add('from Bs_Cloth_IO A where IOType=''饋簡놔욋'' and TMSId=''' + trim(FTMSId) + '''');
SQL.Add('order by filltime desc');
Open;
end;
end
else
begin
with ADOQueryMain do with ADOQueryMain do
begin begin
Close; Close;
@ -999,6 +1041,8 @@ begin
SQL.Add('order by filltime desc'); SQL.Add('order by filltime desc');
Open; Open;
end; end;
end;
SCreateCDS(ADOQueryMain, cds_3); SCreateCDS(ADOQueryMain, cds_3);
SInitCDSData(ADOQueryMain, cds_3); SInitCDSData(ADOQueryMain, cds_3);
@ -1195,7 +1239,30 @@ begin
MYardage := RoundFloat((MInputLen + maddLen + mPresentLen) / (mYardStick / 100), cds_params.fieldbyName('YPlace').AsInteger); MYardage := RoundFloat((MInputLen + maddLen + mPresentLen) / (mYardStick / 100), cds_params.fieldbyName('YPlace').AsInteger);
MMeter := RoundFloat(MYardage * 0.9144, cds_params.fieldbyName('MPlace').AsInteger); MMeter := RoundFloat(MYardage * 0.9144, cds_params.fieldbyName('MPlace').AsInteger);
end; end;
if FCKLX = '토새데' then
begin
with ADOQueryBaseCmd do
begin
Close;
sql.Clear;
Sql.Add('exec P_BS_Cloth_Out_Distribution_KC ');
Sql.Add(' @GrossWeight=' + quotedstr(Trim(FloatToStr(MGrossWeight))));
Sql.Add(' ,@Tare=' + quotedstr(Trim(FloatToStr(MTare))));
Sql.Add(' ,@NetWeight=' + quotedstr(Trim(FloatToStr(MNetWeight))));
Sql.Add(' ,@Meter=' + quotedstr(Trim(FloatToStr(MMeter))));
Sql.Add(' ,@Yardage=' + quotedstr(Trim(FloatToStr(MYardage))));
Sql.Add(' ,@QtyUnit=' + quotedstr(Trim(lblLenUnit.caption)));
Sql.Add(' ,@StkID=' + quotedstr(Trim(FBCIOID)));
Sql.Add(' ,@TMSId =' + quotedstr(FTMSId));
Sql.Add(' ,@TMMId =' + quotedstr(FTMSId));
Sql.Add(' ,@Dcode=' + quotedstr(Trim(Dcode)));
Sql.Add(' ,@DName=' + quotedstr(Trim(DName)));
// ShowMessage(sql.Text);
open;
end;
end
else
begin
with ADOQueryBaseCmd do with ADOQueryBaseCmd do
begin begin
Close; Close;
@ -1213,6 +1280,7 @@ begin
// ShowMessage(sql.Text); // ShowMessage(sql.Text);
open; open;
end; end;
end;
if ADOQueryBaseCmd.fieldbyName('intReturn').AsInteger = -1 then if ADOQueryBaseCmd.fieldbyName('intReturn').AsInteger = -1 then
begin begin

1334
T03贸易布匹检验/U_MachRollMain_M.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

1389
T03贸易布匹检验/U_MachRollMain_M.pas Normal file
View File

File diff suppressed because it is too large Load Diff

1331
T03贸易布匹检验/U_MachRollMarket.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

1388
T03贸易布匹检验/U_MachRollMarket.pas Normal file
View File

File diff suppressed because it is too large Load Diff

2
T05贸易门市管理/TradeMarket.dpr
View File

@ -1,4 +1,4 @@
library TradeMarket; library TradeMarket;
uses uses
SysUtils, SysUtils,

1
T05贸易门市管理/TradeMarket.dproj
View File

@ -237,7 +237,6 @@
<DCCReference Include="U_TradeMarketQtyInPut.pas"/> <DCCReference Include="U_TradeMarketQtyInPut.pas"/>
<DCCReference Include="..\T02贸易汇总仓库\U_ItemizedListQtyInPut.pas"> <DCCReference Include="..\T02贸易汇总仓库\U_ItemizedListQtyInPut.pas">
<Form>frmItemizedListQtyInPut</Form> <Form>frmItemizedListQtyInPut</Form>
<FormType>dfm</FormType>
</DCCReference> </DCCReference>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>

17
T05贸易门市管理/U_GetDllForm.pas
View File

@ -15,7 +15,8 @@ function GetsysParam(muserId: pchar; fparam1: pchar): Boolean;
implementation implementation
uses uses
U_DataLink, U_iniParam, U_TradeMarketList, U_TradeDispatchedList; U_DataLink, U_iniParam, U_TradeMarketList, U_TradeDispatchedList,
U_TradeMarketList_JD;
///////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 // // 功能说明:取Dll中得窗体 //
@ -76,7 +77,7 @@ begin
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// DParameters1:='高权限'; // DParameters1:='高权限';
//Parameters1 := '管理'; //Parameters1 := '管理';
Parameters1 := '²éѯ'; // Parameters1 := '²éѯ';
// Parameters2 := '梭织'; // Parameters2 := '梭织';
// Parameters4 := '新余'; // Parameters4 := '新余';
DCode := 'ADMIN'; DCode := 'ADMIN';
@ -141,6 +142,18 @@ begin
mnewHandle := Handle; mnewHandle := Handle;
end; end;
end; end;
112: //´ó»õµ¥
begin
with TfrmTradeMarketList_JD.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
begin
fFormID := FormID;
FOrdType := 'Õý³£µ¥';
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
// 112: //剪样单 // 112: //剪样单
// begin // begin

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

@ -9,6 +9,8 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Position = poMainFormCenter Position = poMainFormCenter
WindowState = wsMaximized WindowState = wsMaximized
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -391
ExplicitTop = -123
ExplicitWidth = 1937 ExplicitWidth = 1937
ExplicitHeight = 775 ExplicitHeight = 775
PixelsPerInch = 96 PixelsPerInch = 96
@ -417,7 +419,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
object Tv1Column19: TcxGridDBColumn object Tv1Column19: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #20986#24211#25968#37327 Caption = #20986#24211#25968#37327
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'OutQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -437,6 +439,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Align = alRight Align = alRight
Caption = 'Panel4' Caption = 'Panel4'
TabOrder = 1 TabOrder = 1
Visible = False
object Panel5: TPanel object Panel5: TPanel
Left = 1 Left = 1
Top = 1 Top = 1

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

@ -1478,7 +1478,6 @@ begin
// 检查是否双击了 Qty 列（通过列名判断） // 检查是否双击了 Qty 列（通过列名判断）
if AColumn.Name = 'Tv1Column19' then if AColumn.Name = 'Tv1Column19' then
begin begin
if not CDS_1.IsEmpty then if not CDS_1.IsEmpty then
begin begin
// 获取当前行的相关ID // 获取当前行的相关ID

58
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 = 107
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,39 +92,39 @@ 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 = #37197#36135#23436#25104
ImageIndex = 12 ImageIndex = 12
OnClick = TBTJClick OnClick = TBTJClick
end end
object TBTJCX: TToolButton object TBTJCX: TToolButton
Left = 639 Left = 591
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#25552#20132 Caption = #25764#38144#37197#36135#23436#25104
ImageIndex = 11 ImageIndex = 11
OnClick = TBTJCXClick OnClick = TBTJCXClick
end end
object TWC: TToolButton object TWC: TToolButton
Left = 742 Left = 702
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23436#25104 Caption = #24050#35013#36710
ImageIndex = 12 ImageIndex = 12
OnClick = TWCClick OnClick = TWCClick
end end
object TNowc: TToolButton object TNowc: TToolButton
Left = 813 Left = 777
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#23436#25104 Caption = #25764#38144#35013#36710
ImageIndex = 11 ImageIndex = 11
OnClick = TNowcClick OnClick = TNowcClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 916 Left = 864
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -132,7 +132,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 1019 Left = 951
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -140,7 +140,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1090 Left = 1014
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -148,7 +148,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBCloseClick OnClick = TBCloseClick
end end
object TBZF: TToolButton object TBZF: TToolButton
Left = 1161 Left = 1077
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20316#24223 Caption = #20316#24223
@ -156,7 +156,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBZFClick OnClick = TBZFClick
end end
object TBNOZF: TToolButton object TBNOZF: TToolButton
Left = 1232 Left = 1140
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#20316#24223 Caption = #25764#38144#20316#24223
@ -499,6 +499,13 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Options.Editing = False Options.Editing = False
Width = 88 Width = 88
end end
object Tv1Column25: TcxGridDBColumn
Caption = #35746#21333#31867#22411
DataBinding.FieldName = 'OrdType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -513,11 +520,12 @@ inherited frmTradeMarketList: TfrmTradeMarketList
TabOrder = 2 TabOrder = 2
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
Properties.TabIndex = 3 Properties.TabIndex = 0
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
' '#24453#25552#20132' ' ' '#26410#37197#36135' '
' '#24453#23457#26680' ' ' '#24050#37197#36135' '
' '#24050#23436#25104' ' ' '#24050#35013#36710' '
' '#24050#22238#21333' '
' '#24050#20316#24223' ' ' '#24050#20316#24223' '
' '#20840#37096' ') ' '#20840#37096' ')
OnChange = cxTabControl1Change OnChange = cxTabControl1Change

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

@ -102,6 +102,7 @@ type
Tv1Column24: TcxGridDBColumn; Tv1Column24: TcxGridDBColumn;
TBZF: TToolButton; TBZF: TToolButton;
TBNOZF: TToolButton; TBNOZF: TToolButton;
Tv1Column25: 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);
@ -281,20 +282,24 @@ begin
SqlStr := SqlStr + ' ,@Filler= ' + QuotedStr(Trim(DName)); SqlStr := SqlStr + ' ,@Filler= ' + QuotedStr(Trim(DName));
SqlStr := SqlStr + ' ,@Stores= ' + QuotedStr(Trim(canshu4)); SqlStr := SqlStr + ' ,@Stores= ' + QuotedStr(Trim(canshu4));
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of // 1未配货，2已配货，9已装车 10已回单
0: 0:
begin begin
SqlStr := SqlStr + ' , @Status=''0'' '; //´ýÌá½» SqlStr := SqlStr + ' , @Status=''1'' '; //待提交
end; end;
1: 1:
begin begin
SqlStr := SqlStr + ' , @Status=''1'' '; //´ýÉóºË SqlStr := SqlStr + ' , @Status=''2'' '; //待审核
end; end;
2: 2:
begin begin
SqlStr := SqlStr + ' , @Status=''10'' '; //ÒÑÍê³É SqlStr := SqlStr + ' , @Status=''9'' '; //已完成
end; end;
3: 3:
begin
SqlStr := SqlStr + ' , @Status=''10'' '; //已回单
end;
4:
begin begin
SqlStr := SqlStr + ' , @Status=''11'' '; //ÒÑ×÷·Ï SqlStr := SqlStr + ' , @Status=''11'' '; //ÒÑ×÷·Ï
end; end;
@ -414,7 +419,7 @@ begin
begin begin
close; close;
sql.Clear; sql.Clear;
sql.Add('update Trade_Market_Main SET status=''10'' '); sql.Add('update Trade_Market_Main SET status=''1'' ');
sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
@ -501,10 +506,39 @@ begin
end; end;
procedure TfrmTradeMarketList.TBPrintClick(Sender: TObject); procedure TfrmTradeMarketList.TBPrintClick(Sender: TObject);
var
WSql: string;
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
Exit; Exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据', '提示', 0);
Exit;
end;
WSql := '';
Order_Main.DisableControls;
with Order_Main do
begin
First;
while not Eof do
begin
if Order_Main.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + Trim(Order_Main.fieldbyname('TMSId').AsString);
end
else
begin
WSql := Trim(Order_Main.fieldbyname('TMSId').AsString);
end;
end;
Next;
end;
end;
Order_Main.Locate('SSel', True, []);
Order_Main.EnableControls;
try try
frmLabelPrint := TfrmLabelPrint.Create(Application); frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do with frmLabelPrint do
@ -513,7 +547,7 @@ begin
FLMType := 'TradePlanPrintxy' FLMType := 'TradePlanPrintxy'
else else
FLMType := 'TradePlanPrint'; FLMType := 'TradePlanPrint';
FFiltration1 := Trim(Order_Main.fieldbyname('TMMId').AsString); FFiltration1 := Trim(WSql);
if ShowModal = 1 then if ShowModal = 1 then
begin begin
// Self.InitGrid(); // Self.InitGrid();
@ -859,7 +893,7 @@ begin
begin begin
close; close;
sql.Clear; sql.Clear;
sql.Add('update Trade_Market_Main SET status=''10'' '); sql.Add('update Trade_Market_Main SET status=''9'' ');
sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
@ -905,7 +939,7 @@ begin
begin begin
close; close;
sql.Clear; sql.Clear;
sql.Add('update Trade_Market_Main SET status=''1'' '); sql.Add('update Trade_Market_Main SET status=''2'' ');
sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
@ -960,7 +994,7 @@ begin
begin begin
close; close;
sql.Clear; sql.Clear;
sql.Add('update Trade_Market_Main SET status=''1'' '); sql.Add('update Trade_Market_Main SET status=''2'' ');
sql.Add(' where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); sql.Add(' where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName))); sql.Add(' ' + quotedstr(trim(DName)));
@ -1019,7 +1053,7 @@ begin
begin begin
close; close;
sql.Clear; sql.Clear;
sql.Add('update Trade_Market_Main SET status=''0'' '); sql.Add('update Trade_Market_Main SET status=''1'' ');
sql.Add(' where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); sql.Add(' where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add(' and isnull(status,''0'')=''1'' '); sql.Add(' and isnull(status,''0'')=''1'' ');
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');

591
T05贸易门市管理/U_TradeMarketList_JD.dfm Normal file
View File

@ -0,0 +1,591 @@
inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
Left = 165
Top = 13
Caption = #22823#36135#21333
ClientHeight = 634
ClientWidth = 1423
Color = clBtnFace
Font.Height = -16
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitWidth = 1439
ExplicitHeight = 673
PixelsPerInch = 96
TextHeight = 21
inherited loadProcess: TPanel
Left = 720
Top = 354
ExplicitLeft = 720
ExplicitTop = 354
end
inherited cxProgressBar2: TcxProgressBar
Left = 720
Top = 296
ExplicitLeft = 720
ExplicitTop = 296
ExplicitHeight = 29
end
object Panel1: TPanel [2]
Left = 0
Top = 0
Width = 784
Height = 634
Align = alLeft
TabOrder = 2
object ToolBar1: TToolBar
Tag = 1
Left = 1
Top = 1
Width = 782
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 67
Caption = 'ToolBar1'
Images = DataLink_TradeMarket.cxImageList_bar
List = True
ShowCaptions = True
TabOrder = 0
end
object cxGrid1: TcxGrid
Left = 1
Top = 31
Width = 782
Height = 370
Align = alTop
TabOrder = 1
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.CellHints = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
object v1Column16: TcxGridDBColumn
Caption = #26159#21542#21152#24613
DataBinding.FieldName = 'Urgent'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 77
end
object Tv1Column7: TcxGridDBColumn
Caption = #21333#25454#32534#21495
DataBinding.FieldName = 'TMMNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
object v1OrdDate: TcxGridDBColumn
Caption = #21046#21333#26085#26399
DataBinding.FieldName = 'TMMDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1Column4: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1Column8: TcxGridDBColumn
Caption = #37197#36135#20154
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1Column6: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'FILLER'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1Column1: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'OrdNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object cxGrid2: TcxGrid
Left = 1
Top = 401
Width = 782
Height = 232
Align = alClient
TabOrder = 2
ExplicitTop = 407
ExplicitHeight = 226
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.CellHints = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
object Tv2Column1: TcxGridDBColumn
Caption = #26159#21542#21152#24613
DataBinding.FieldName = 'Urgent'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2Column2: TcxGridDBColumn
Caption = #21333#25454#32534#21495
DataBinding.FieldName = 'TMMNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2Column3: TcxGridDBColumn
Caption = #21046#21333#26085#26399
DataBinding.FieldName = 'TMMDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv2Column4: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2Column5: TcxGridDBColumn
Caption = #37197#36135#20154
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2Column6: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'FILLER'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2Column7: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'OrdNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
end
object Panel2: TPanel [3]
Left = 784
Top = 0
Width = 639
Height = 634
Align = alClient
TabOrder = 3
ExplicitLeft = 789
ExplicitWidth = 634
object ToolBar2: TToolBar
Tag = 1
Left = 1
Top = 1
Width = 637
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 67
Caption = 'ToolBar1'
Images = DataLink_TradeMarket.cxImageList_bar
List = True
ShowCaptions = True
TabOrder = 0
ExplicitWidth = 632
end
object cxGrid3: TcxGrid
Left = 1
Top = 31
Width = 637
Height = 364
Align = alTop
TabOrder = 1
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource3
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.CellHints = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
object Tv3Column1: TcxGridDBColumn
Caption = #26159#21542#21152#24613
DataBinding.FieldName = 'Urgent'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv3Column2: TcxGridDBColumn
Caption = #21333#25454#32534#21495
DataBinding.FieldName = 'TMMNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv3Column3: TcxGridDBColumn
Caption = #21046#21333#26085#26399
DataBinding.FieldName = 'TMMDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv3Column4: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv3Column5: TcxGridDBColumn
Caption = #37197#36135#20154
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv3Column6: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'FILLER'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv3Column7: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'OrdNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv3
end
end
object cxGrid4: TcxGrid
Left = 1
Top = 395
Width = 637
Height = 238
Align = alClient
TabOrder = 2
ExplicitTop = 407
ExplicitWidth = 632
ExplicitHeight = 226
object Tv4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource4
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.CellHints = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
object Tv4Column1: TcxGridDBColumn
Caption = #26159#21542#21152#24613
DataBinding.FieldName = 'Urgent'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv4Column2: TcxGridDBColumn
Caption = #21333#25454#32534#21495
DataBinding.FieldName = 'TMMNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv4Column3: TcxGridDBColumn
Caption = #21046#21333#26085#26399
DataBinding.FieldName = 'TMMDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv4Column4: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv4Column5: TcxGridDBColumn
Caption = #37197#36135#20154
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv4Column6: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'FILLER'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv4Column7: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'OrdNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGridLevel3: TcxGridLevel
GridView = Tv4
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Left = 255
Top = 314
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Left = 37
Top = 280
end
object cxgrdpmn1: TcxGridPopupMenu
PopupMenus = <>
Left = 220
Top = 284
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Parameters = <>
Left = 568
Top = 240
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 292
Top = 128
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 320
Top = 224
end
object DataSource1: TDataSource
DataSet = CDS_1
Left = 468
Top = 112
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 156
Top = 144
end
object DataSource2: TDataSource
DataSet = CDS_2
Left = 152
Top = 476
end
object ADOQueryImage: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
EnableBCD = False
Parameters = <>
Left = 316
Top = 283
end
object DSImage: TDataSource
DataSet = ADOQueryImage
Left = 256
Top = 192
end
object IdFTP1: TIdFTP
ConnectTimeout = 0
NATKeepAlive.UseKeepAlive = False
NATKeepAlive.IdleTimeMS = 0
NATKeepAlive.IntervalMS = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
ReadTimeout = 0
Left = 36
Top = 170
end
object PopupMenu2: TPopupMenu
Left = 532
Top = 636
object N3: TMenuItem
Caption = #20840#36873
end
object N4: TMenuItem
Caption = #20840#24323
end
object N2: TMenuItem
Caption = #22797#21046
end
end
object cxgrdpmn2: TcxGridPopupMenu
PopupMenus = <>
Left = 660
Top = 636
end
object CDS_WXTS: TClientDataSet
Aggregates = <>
Params = <>
Left = 252
Top = 240
end
object GPM_3: TcxGridPopupMenu
PopupMenus = <>
Left = 188
Top = 236
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 524
Top = 96
end
object DataSource3: TDataSource
DataSet = CDS_3
Left = 932
Top = 176
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 228
Top = 464
end
object DataSource4: TDataSource
DataSet = CDS_4
Left = 940
Top = 472
end
object CDS_4: TClientDataSet
Aggregates = <>
Params = <>
Left = 996
Top = 464
end
object CDS_3: TClientDataSet
Aggregates = <>
Params = <>
Left = 1012
Top = 216
end
object ADO_1: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 452
Top = 176
end
object ADO_2: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 308
Top = 464
end
object ADO_3: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 884
Top = 120
end
object ADO_4: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 860
Top = 464
end
end

214
T05贸易门市管理/U_TradeMarketList_JD.pas Normal file
View File

@ -0,0 +1,214 @@
unit U_TradeMarketList_JD;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls,
RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd,
dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore,
dxSkinsDefaultPainters;
type
TfrmTradeMarketList_JD = class(TfrmBaseList)
cxgrdpmn1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Order_Main: TClientDataSet;
DataSource2: TDataSource;
ADOQueryImage: TADOQuery;
DSImage: TDataSource;
IdFTP1: TIdFTP;
PopupMenu2: TPopupMenu;
N3: TMenuItem;
N4: TMenuItem;
cxgrdpmn2: TcxGridPopupMenu;
CDS_WXTS: TClientDataSet;
N2: TMenuItem;
GPM_3: TcxGridPopupMenu;
Panel1: TPanel;
ToolBar1: TToolBar;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column16: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
v1OrdDate: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
Panel2: TPanel;
ToolBar2: TToolBar;
cxGrid3: TcxGrid;
Tv3: TcxGridDBTableView;
cxGridLevel2: TcxGridLevel;
cxGrid4: TcxGrid;
Tv4: TcxGridDBTableView;
cxGridLevel3: TcxGridLevel;
CDS_1: TClientDataSet;
DataSource3: TDataSource;
CDS_2: TClientDataSet;
DataSource4: TDataSource;
CDS_4: TClientDataSet;
CDS_3: TClientDataSet;
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
Tv2Column3: TcxGridDBColumn;
Tv2Column4: TcxGridDBColumn;
Tv2Column5: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
Tv2Column7: TcxGridDBColumn;
Tv3Column1: TcxGridDBColumn;
Tv3Column2: TcxGridDBColumn;
Tv3Column3: TcxGridDBColumn;
Tv3Column4: TcxGridDBColumn;
Tv3Column5: TcxGridDBColumn;
Tv3Column6: TcxGridDBColumn;
Tv4Column1: TcxGridDBColumn;
Tv4Column2: TcxGridDBColumn;
Tv4Column3: TcxGridDBColumn;
Tv4Column4: TcxGridDBColumn;
Tv4Column5: TcxGridDBColumn;
Tv4Column6: TcxGridDBColumn;
Tv4Column7: TcxGridDBColumn;
Tv3Column7: TcxGridDBColumn;
ADO_1: TADOQuery;
ADO_2: TADOQuery;
ADO_3: TADOQuery;
ADO_4: TADOQuery;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
private
DQdate: TDateTime;
procedure InitGrid();
procedure InitGrid1();
procedure InitGrid2();
procedure InitGrid3();
procedure InitGrid4();
// procedure InitForm();
{ Private declarations }
public
canshu1, canshu2, canshu4, FOrdType: string;
{ Public declarations }
end;
var
frmTradeMarketList_JD: TfrmTradeMarketList_JD;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_AttachmentUpload,
U_TradeMarketInPut;
{$R *.dfm}
procedure TfrmTradeMarketList_JD.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
inherited;
Action := caFree;
end;
procedure TfrmTradeMarketList_JD.FormShow(Sender: TObject);
begin
inherited;
InitGrid();
// InitForm();
end;
procedure TfrmTradeMarketList_JD.InitGrid();
begin
with ADO_1 do
begin
Close;
sql.clear;
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
sql.add('where 1=1');
Open;
end;
SCreateCDS(ADO_1, CDS_1);
SInitCDSData(ADO_1, CDS_1);
SCreateCDS(ADO_1, CDS_2);
SInitCDSData(ADO_1, CDS_2);
SCreateCDS(ADO_1, CDS_3);
SInitCDSData(ADO_1, CDS_3);
SCreateCDS(ADO_1, CDS_4);
SInitCDSData(ADO_1, CDS_4);
end;
procedure TfrmTradeMarketList_JD.InitGrid1();
begin
with ADO_1 do
begin
Close;
sql.clear;
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
sql.add('where 1=1');
Open;
end;
SCreateCDS(ADO_1, CDS_1);
SInitCDSData(ADO_1, CDS_1);
end;
procedure TfrmTradeMarketList_JD.InitGrid2();
begin
with ADO_2 do
begin
Close;
sql.clear;
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
sql.add('where 1=1');
Open;
end;
SCreateCDS(ADO_2, CDS_2);
SInitCDSData(ADO_2, CDS_2);
end;
procedure TfrmTradeMarketList_JD.InitGrid3();
begin
with ADO_3 do
begin
Close;
sql.clear;
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
sql.add('where 1=1');
Open;
end;
SCreateCDS(ADO_3, CDS_3);
SInitCDSData(ADO_3, CDS_3);
end;
procedure TfrmTradeMarketList_JD.InitGrid4();
begin
with ADO_4 do
begin
Close;
sql.clear;
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
sql.add('where 1=1');
Open;
end;
SCreateCDS(ADO_4, CDS_4);
SInitCDSData(ADO_4, CDS_4);
end;
end.

14
T05贸易门市管理/U_TradeMarketQtyInPut.dfm
View File

@ -48,6 +48,7 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
AutoSize = True AutoSize = True
Caption = #20445#23384 Caption = #20445#23384
ImageIndex = 16 ImageIndex = 16
Visible = False
OnClick = TBSaveClick OnClick = TBSaveClick
end end
object btnAdd: TToolButton object btnAdd: TToolButton
@ -56,6 +57,7 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
AutoSize = True AutoSize = True
Caption = #26032#22686 Caption = #26032#22686
ImageIndex = 2 ImageIndex = 2
Visible = False
OnClick = btnAddClick OnClick = btnAddClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -81,6 +83,7 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
Height = 41 Height = 41
Align = alTop Align = alTop
TabOrder = 1 TabOrder = 1
Visible = False
object Label9: TLabel object Label9: TLabel
Left = 33 Left = 33
Top = 7 Top = 7
@ -129,7 +132,7 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
Width = 1079 Width = 1079
Height = 603 Height = 603
Align = alClient Align = alClient
Caption = #21452#20987#21024#38500#26126#32454#20449#24687 Caption = #26126#32454#20449#24687
TabOrder = 2 TabOrder = 2
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 2 Left = 2
@ -138,6 +141,8 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
Height = 578 Height = 578
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 4
ExplicitTop = 22
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -189,6 +194,13 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
Options.Sorting = False Options.Sorting = False
Width = 66 Width = 66
end end
object Tv1Column1: TcxGridDBColumn
Caption = #20986#24211#26465#30721
DataBinding.FieldName = 'StkID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 95
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = Tv1 GridView = Tv1

11
T05贸易门市管理/U_TradeMarketQtyInPut.pas
View File

@ -41,6 +41,7 @@ type
cxGridDBColumn8: TcxGridDBColumn; cxGridDBColumn8: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
btnAdd: TToolButton; btnAdd: TToolButton;
Tv1Column1: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure FromCoNameDblClick(Sender: TObject); procedure FromCoNameDblClick(Sender: TObject);
@ -241,13 +242,15 @@ begin
inherited; inherited;
ReadCxGrid('´ó»õµ¥', Tv1, 'óÒ×ÃÅÊйÜÀí'); ReadCxGrid('´ó»õµ¥', Tv1, 'óÒ×ÃÅÊйÜÀí');
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add(' select A.* from Trade_Market_Sub_Qty A'); // sql.Add(' select A.* from Trade_Market_Sub_Qty A');
sql.Add('where TMSId=''' + Trim(PMTMSId) + ''''); // sql.Add('where A.TMSId=''' + Trim(PMTMSId) + '''');
sql.Add(' select * from Bs_Cloth_IO A inner join Trade_Market_Sub B on A.TMMID=B.TMMId and A.TMSId=B.TMSId');
sql.Add('where A.TMSId=''' + Trim(MTMSId) + '''');
// showmessage(sql.text);
Open; Open;
end; end;
SCreateCDS(ADOQueryTemp, CDS_1); SCreateCDS(ADOQueryTemp, CDS_1);
@ -311,8 +314,6 @@ begin
end; end;
end; end;
procedure TfrmTradeMarketQtyInPut.TBCloseClick(Sender: TObject); procedure TfrmTradeMarketQtyInPut.TBCloseClick(Sender: TObject);
begin begin
inherited; inherited;