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

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

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

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

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

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

@ -138,6 +138,8 @@ type
Process4: TcxButtonEdit;
Process5: TcxButtonEdit;
Process: TcxButtonEdit;
ToolButton13: TToolButton;
TV3Column1: TcxGridDBColumn;
procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
@ -173,6 +175,7 @@ type
procedure C_FromName4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure C_FromName5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure CostPriceClick(Sender: TObject);
procedure ToolButton13Click(Sender: TObject);
private
canshu1: string;
Fint: Integer;
@ -1321,6 +1324,23 @@ begin
CDS_1.EmptyDataSet;
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);
var
MC_Code: string;
@ -1372,6 +1392,21 @@ begin
Application.MessageBox('ÇëÊäÈë¼Æ¼Ûµ¥Î»!', 'Ìáʾ', 0);
Exit;
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
// begin

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

@ -71,6 +71,7 @@ uses
U_dynamicsDll in '..\..\..\public10\ThreeFun\Fun\U_dynamicsDll.pas',
U_printPdf in '..\..\..\public10\ThreeFun\Fun\U_printPdf.pas',
U_CustomFun in '..\A00ͨÓ÷½·¨\U_CustomFun.pas',
U_ProgressUpdate in '..\A00通用方法\U_ProgressUpdate.pas',
U_TradeClothSplit in 'U_TradeClothSplit.pas' {frmTradeClothSplit},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
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_printPdf.pas"/>
<DCCReference Include="..\A00通用方法\U_CustomFun.pas"/>
<DCCReference Include="..\A00通用方法\U_ProgressUpdate.pas"/>
<DCCReference Include="U_TradeClothSplit.pas">
<Form>frmTradeClothSplit</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<DCCReference Include="U_TradeRRList.pas">
<Form>frmTradeRRList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TradeRRInPut.pas">
<Form>frmTradeRRInPut</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_RPFun.pas"/>
<DCCReference Include="U_InputReceiptType.pas">
<Form>frmInputReceiptType</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>

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

@ -84,7 +84,7 @@ begin
pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '管理';
// Parameters1 := '管理';
// Parameters2 := '贸易布匹';
// Parameters2 := '格美门店';
// Parameters2 := '新余';

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

@ -2,16 +2,15 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
Left = 65
Top = 98
Caption = #36152#26131#24067#21305#20986#24211#21015#34920
ClientHeight = 736
ClientHeight = 618
ClientWidth = 1281
Color = clBtnFace
Font.Height = -16
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitTop = -112
ExplicitWidth = 1297
ExplicitHeight = 775
ExplicitHeight = 657
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
@ -318,27 +317,26 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
end
object cxPageControl1: TcxPageControl [4]
Left = 0
Top = 177
Top = 214
Width = 1281
Height = 559
Height = 404
Align = alClient
TabOrder = 4
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.Style = 5
OnChange = cxPageControl1Change
ClientRectBottom = 559
ClientRectBottom = 404
ClientRectRight = 1281
ClientRectTop = 32
object cxTabSheet1: TcxTabSheet
Caption = ' '#20135#21697#27719#24635' '
ImageIndex = 0
ExplicitTop = 0
object cxGrid2: TcxGrid
Left = 0
Top = 0
Width = 1281
Height = 527
Height = 372
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
@ -513,7 +511,7 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
Left = 0
Top = 0
Width = 1281
Height = 527
Height = 372
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
@ -1070,6 +1068,75 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
ClientRectRight = 0
ClientRectTop = 0
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
Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 504

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

@ -14,7 +14,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, Clipbrd, dxScrollbarAnnotations, FrameDateSel,
cxContainer, cxMaskEdit, cxProgressBar, cxButtons, dxSkinsCore,
dxSkinsDefaultPainters;
dxSkinsDefaultPainters, System.Math;
type
TfrmTradeClothTotalOutList = class(TfrmBaseList)
@ -141,6 +141,12 @@ type
Tv1Column36: TcxGridDBColumn;
ToolButton5: TToolButton;
cxTabControl1: TcxTabControl;
Panel6: TPanel;
Label31: TLabel;
LBCPAP: TLabel;
BTLP: TButton;
BTNP: TButton;
TCBNOR: TcxComboBox;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -175,9 +181,11 @@ type
procedure TV2DblClick(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
canshu1, FSTKName, canshu3, canshu4: string;
procedure InitGrid1();
procedure InitGrid2();
procedure InitGrid(MWSql: string);
{ Private declarations }
public
{ Public declarations }
@ -189,10 +197,108 @@ type
implementation
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;
{$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();
var
@ -243,38 +349,6 @@ begin
frmFrameDateSel1.BegDate.Date := frmFrameDateSel1.EndDate.Date - 90;
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);
begin
TBFind.Click;
@ -283,7 +357,9 @@ end;
procedure TfrmTradeClothTotalOutList.TBRafreshClick(Sender: TObject);
begin
ToolBar1.SetFocus;
InitGrid2();
// InitGrid2();
CurrentPage := 1;
InitGrid('');
end;
procedure TfrmTradeClothTotalOutList.ToolButton1Click(Sender: TObject);
@ -452,12 +528,15 @@ var
mSql: string;
begin
inherited;
CurrentPage := 1;
RecordsNumber := 500;
mSql := 'select distinct name=A.IOType from BS_Cloth_IO A where IOFlag=''出库'' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + ''' ';
SInitTcxComBoxBySql(ADOQueryTemp, IOType, false, mSql);
ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, '贸易汇总仓库');
ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, '贸易汇总仓库');
InitGrid2();
InitGrid('');
// InitGrid2();
end;
procedure TfrmTradeClothTotalOutList.TBExportClick(Sender: TObject);
@ -513,7 +592,7 @@ end;
procedure TfrmTradeClothTotalOutList.TBDelClick(Sender: TObject);
var
MBCIOID, MBCIONO: string;
MBCIOID, MBCIONO, MTMSId: string;
begin
if cxPageControl1.ActivePageIndex <> 1 then
Exit;
@ -530,6 +609,7 @@ begin
Exit;
MBCIOID := SelCDSKey(CDS_1, ['BCIOID'])[0];
MBCIONO := SelCDSKey(CDS_1, ['BCIONO'])[0];
MTMSId := SelCDSKey(CDS_1, ['TMSId'])[0];
with ADOQueryTemp do
begin
Close;
@ -583,6 +663,7 @@ begin
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans;
TradeMarketProgressUpdate(ADOQueryBaseCmd, MTMSId);
InitGrid2();
InitGrid1();
except

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

@ -178,29 +178,33 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
end
object cxPageControl1: TcxPageControl [4]
Left = 0
Top = 89
Top = 126
Width = 1404
Height = 426
Height = 389
Align = alClient
TabOrder = 4
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.Style = 5
OnChange = cxPageControl1Change
ClientRectBottom = 426
ExplicitTop = 89
ExplicitHeight = 426
ClientRectBottom = 389
ClientRectRight = 1404
ClientRectTop = 32
object cxTabSheet1: TcxTabSheet
Caption = ' '#20135#21697#27719#24635' '
ImageIndex = 0
ExplicitHeight = 394
object cxGrid2: TcxGrid
Left = 0
Top = 0
Width = 1404
Height = 394
Height = 357
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
ExplicitHeight = 394
object TV2: TcxGridDBTableView
OnDblClick = TV2DblClick
Navigator.Buttons.CustomButtons = <>
@ -352,14 +356,16 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
object cxTabSheet2: TcxTabSheet
Caption = #20135#21697#26126#32454
ImageIndex = 1
ExplicitHeight = 394
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1404
Height = 394
Height = 357
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
ExplicitHeight = 394
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -797,6 +803,77 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
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
Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 524

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

@ -14,7 +14,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer,
cxProgressBar, cxButtons, cxMaskEdit, dxSkinsCore, dxSkinsDefaultPainters,
cxPC;
cxPC, System.Math;
type
TfrmTradeClothTotalStkList = class(TfrmBaseList)
@ -110,6 +110,12 @@ type
Label1: TLabel;
StkPosition: TcxTextEdit;
TV2Column1: TcxGridDBColumn;
Panel6: TPanel;
Label31: TLabel;
LBCPAP: TLabel;
BTLP: TButton;
BTNP: TButton;
TCBNOR: TcxComboBox;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
@ -128,8 +134,10 @@ type
procedure TV2DblClick(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
canshu1, FSTKName, canshu3, canshu4: string;
procedure InitGrid();
// procedure InitGrid();
procedure InitGrid(MWSql: string);
procedure InitGrid1();
procedure InitGrid2();
{ Private declarations }
@ -180,17 +188,79 @@ begin
canshu4 := Trim(self.fParameters4);
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
WDateSql := ' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''';
if Trim(canshu4) <> '' then
WDateSql := WDateSql + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
case cxPageControl1.ActivePageIndex of
0:
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;
1:
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;
@ -239,7 +309,8 @@ end;
procedure TfrmTradeClothTotalStkList.TBRafreshClick(Sender: TObject);
begin
InitGrid2();
InitGrid('');
// InitGrid2();
end;
procedure TfrmTradeClothTotalStkList.TBCloseClick(Sender: TObject);
@ -251,7 +322,8 @@ end;
procedure TfrmTradeClothTotalStkList.FormShow(Sender: TObject);
begin
inherited;
CurrentPage := 1;
RecordsNumber := 500;
ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, 'óÒ×»ã×ֿܲâ');
ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, 'óÒ×»ã×ֿܲâ');
canshu4 := Trim(self.fParameters4);

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

@ -27,7 +27,7 @@ uses
U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
U_LabelMapSet in '..\A00ͨÓô°Ìå\U_LabelMapSet.pas' {frmLabelMapSet},
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_frameParam in 'U_frameParam.pas' {FrameParam: TFrame},
U_ParamSet in 'U_ParamSet.pas' {frmParamSet},

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

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

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

@ -17,7 +17,7 @@ implementation
uses
U_DataLink, U_globalVar, U_iniParam, U_TradeMachInsp, U_ProductJYHZList,
U_DeviceJkTest, U_TradeClothInspList, U_MachRollMain, U_TradePack,
U_DjdDjClList, U_TradeClothTotalCXJYOutList;
U_DjdDjClList, U_TradeClothTotalCXJYOutList,U_MachRollMarket,U_MachRollMain_M;
/////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 //
@ -166,6 +166,17 @@ begin
mnewHandle := Handle;
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: //布匹打包
begin

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

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

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

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

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
SysUtils,

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

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

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

@ -15,7 +15,8 @@ function GetsysParam(muserId: pchar; fparam1: pchar): Boolean;
implementation
uses
U_DataLink, U_iniParam, U_TradeMarketList, U_TradeDispatchedList;
U_DataLink, U_iniParam, U_TradeMarketList, U_TradeDispatchedList,
U_TradeMarketList_JD;
/////////////////////////////////////////////////////////////////
// 功能说明:取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;
// DParameters1:='高权限';
//Parameters1 := '管理';
Parameters1 := '²éѯ';
// Parameters1 := '²éѯ';
// Parameters2 := '梭织';
// Parameters4 := '新余';
DCode := 'ADMIN';
@ -141,6 +142,18 @@ begin
mnewHandle := Handle;
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: //剪样单
// begin

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

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

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

@ -492,7 +492,7 @@ begin
sql.Add(' SELECT distinct A.C_Code,A.C_Name,A.qtyunit,A.HotQty,StkQty = SUM(B.StkQty) ');
SQL.ADD(' FROM Bs_Cloth_Info A LEFT JOIN Bs_Cloth_Io B on A.C_Code=B.C_Code');
sql.add(' where B.ioflag=''入库'' ');
if Trim(canshu4) = '新余' then
if Trim(canshu4) = '新余' then
sql.Add(' and isnull(STKNAME,'''')=''新余'' ');
SQL.add('group by A.C_Code,A.C_Name,A.qtyunit,A.HotQty');
SQL.ADD('order by A.C_Code ');
@ -1478,7 +1478,6 @@ begin
// 检查是否双击了 Qty 列（通过列名判断）
if AColumn.Name = 'Tv1Column19' then
begin
if not CDS_1.IsEmpty then
begin
// 获取当前行的相关ID

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

@ -21,7 +21,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 99
ButtonWidth = 107
Caption = 'ToolBar1'
Images = DataLink_TradeMarket.cxImageList_bar
List = True
@ -36,7 +36,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBRafreshClick
end
object TBAdd: TToolButton
Left = 71
Left = 63
Top = 0
AutoSize = True
Caption = #26032#22686
@ -44,7 +44,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBAddClick
end
object btnCopy: TToolButton
Left = 142
Left = 126
Top = 0
AutoSize = True
Caption = #22797#21046
@ -52,7 +52,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = btnCopyClick
end
object TBEdit: TToolButton
Left = 213
Left = 189
Top = 0
AutoSize = True
Caption = #20462#25913
@ -60,7 +60,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBEditClick
end
object TBDel: TToolButton
Left = 284
Left = 252
Top = 0
AutoSize = True
Caption = #21024#38500
@ -68,7 +68,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBDelClick
end
object TBPrint: TToolButton
Left = 355
Left = 315
Top = 0
AutoSize = True
Caption = #25171#21360
@ -76,7 +76,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBPrintClick
end
object TBCK: TToolButton
Left = 426
Left = 378
Top = 0
AutoSize = True
Caption = #26597#30475
@ -84,7 +84,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBCKClick
end
object ToolButton4: TToolButton
Left = 497
Left = 441
Top = 0
AutoSize = True
Caption = #38468#20214
@ -92,39 +92,39 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = ToolButton4Click
end
object TBTJ: TToolButton
Left = 568
Left = 504
Top = 0
AutoSize = True
Caption = #25552#20132
Caption = #37197#36135#23436#25104
ImageIndex = 12
OnClick = TBTJClick
end
object TBTJCX: TToolButton
Left = 639
Left = 591
Top = 0
AutoSize = True
Caption = #25764#38144#25552#20132
Caption = #25764#38144#37197#36135#23436#25104
ImageIndex = 11
OnClick = TBTJCXClick
end
object TWC: TToolButton
Left = 742
Left = 702
Top = 0
AutoSize = True
Caption = #23436#25104
Caption = #24050#35013#36710
ImageIndex = 12
OnClick = TWCClick
end
object TNowc: TToolButton
Left = 813
Left = 777
Top = 0
AutoSize = True
Caption = #25764#38144#23436#25104
Caption = #25764#38144#35013#36710
ImageIndex = 11
OnClick = TNowcClick
end
object ToolButton2: TToolButton
Left = 916
Left = 864
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -132,7 +132,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 1019
Left = 951
Top = 0
AutoSize = True
Caption = #23548#20986
@ -140,7 +140,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 1090
Left = 1014
Top = 0
AutoSize = True
Caption = #20851#38381
@ -148,7 +148,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBCloseClick
end
object TBZF: TToolButton
Left = 1161
Left = 1077
Top = 0
AutoSize = True
Caption = #20316#24223
@ -156,7 +156,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBZFClick
end
object TBNOZF: TToolButton
Left = 1232
Left = 1140
Top = 0
AutoSize = True
Caption = #25764#38144#20316#24223
@ -499,6 +499,13 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Options.Editing = False
Width = 88
end
object Tv1Column25: TcxGridDBColumn
Caption = #35746#21333#31867#22411
DataBinding.FieldName = 'OrdType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@ -513,11 +520,12 @@ inherited frmTradeMarketList: TfrmTradeMarketList
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 3
Properties.TabIndex = 0
Properties.Tabs.Strings = (
' '#24453#25552#20132' '
' '#24453#23457#26680' '
' '#24050#23436#25104' '
' '#26410#37197#36135' '
' '#24050#37197#36135' '
' '#24050#35013#36710' '
' '#24050#22238#21333' '
' '#24050#20316#24223' '
' '#20840#37096' ')
OnChange = cxTabControl1Change

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

@ -102,6 +102,7 @@ type
Tv1Column24: TcxGridDBColumn;
TBZF: TToolButton;
TBNOZF: TToolButton;
Tv1Column25: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -281,20 +282,24 @@ begin
SqlStr := SqlStr + ' ,@Filler= ' + QuotedStr(Trim(DName));
SqlStr := SqlStr + ' ,@Stores= ' + QuotedStr(Trim(canshu4));
case cxTabControl1.TabIndex of
case cxTabControl1.TabIndex of // 1未配货，2已配货，9已装车 10已回单
0:
begin
SqlStr := SqlStr + ' , @Status=''0'' '; //´ýÌá½»
SqlStr := SqlStr + ' , @Status=''1'' '; //待提交
end;
1:
begin
SqlStr := SqlStr + ' , @Status=''1'' '; //´ýÉóºË
SqlStr := SqlStr + ' , @Status=''2'' '; //待审核
end;
2:
begin
SqlStr := SqlStr + ' , @Status=''10'' '; //ÒÑÍê³É
SqlStr := SqlStr + ' , @Status=''9'' '; //已完成
end;
3:
begin
SqlStr := SqlStr + ' , @Status=''10'' '; //已回单
end;
4:
begin
SqlStr := SqlStr + ' , @Status=''11'' '; //ÒÑ×÷·Ï
end;
@ -414,7 +419,7 @@ begin
begin
close;
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('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
@ -501,10 +506,39 @@ begin
end;
procedure TfrmTradeMarketList.TBPrintClick(Sender: TObject);
var
WSql: string;
begin
if Order_Main.IsEmpty then
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
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
@ -513,7 +547,7 @@ begin
FLMType := 'TradePlanPrintxy'
else
FLMType := 'TradePlanPrint';
FFiltration1 := Trim(Order_Main.fieldbyname('TMMId').AsString);
FFiltration1 := Trim(WSql);
if ShowModal = 1 then
begin
// Self.InitGrid();
@ -859,7 +893,7 @@ begin
begin
close;
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('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
@ -905,7 +939,7 @@ begin
begin
close;
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('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
@ -960,7 +994,7 @@ begin
begin
close;
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('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
@ -1019,7 +1053,7 @@ begin
begin
close;
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(' and isnull(status,''0'')=''1'' ');
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
Caption = #20445#23384
ImageIndex = 16
Visible = False
OnClick = TBSaveClick
end
object btnAdd: TToolButton
@ -56,6 +57,7 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
AutoSize = True
Caption = #26032#22686
ImageIndex = 2
Visible = False
OnClick = btnAddClick
end
object TBClose: TToolButton
@ -81,6 +83,7 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
Height = 41
Align = alTop
TabOrder = 1
Visible = False
object Label9: TLabel
Left = 33
Top = 7
@ -129,7 +132,7 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
Width = 1079
Height = 603
Align = alClient
Caption = #21452#20987#21024#38500#26126#32454#20449#24687
Caption = #26126#32454#20449#24687
TabOrder = 2
object cxGrid1: TcxGrid
Left = 2
@ -138,6 +141,8 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
Height = 578
Align = alClient
TabOrder = 0
ExplicitLeft = 4
ExplicitTop = 22
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
@ -189,6 +194,13 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
Options.Sorting = False
Width = 66
end
object Tv1Column1: TcxGridDBColumn
Caption = #20986#24211#26465#30721
DataBinding.FieldName = 'StkID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 95
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1

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

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