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-24 13:59:21 +08:00
parent 95cc79a4f5
commit c73edaf684
11 changed files with 250 additions and 83 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -87,7 +87,7 @@ begin
Parameters1 := '管理'; Parameters1 := '管理';
// Parameters2 := '贸易布匹'; // Parameters2 := '贸易布匹';
// Parameters2 := '格美门店'; // Parameters2 := '格美门店';
Parameters2 := '新余'; // Parameters2 := '新余';
DName := 'ADMIN'; DName := 'ADMIN';
DCode := 'ADMIN'; DCode := 'ADMIN';
end end

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

@ -340,16 +340,16 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
end end
object cxPageControl1: TcxPageControl [4] object cxPageControl1: TcxPageControl [4]
Left = 0 Left = 0
Top = 149 Top = 186
Width = 1234 Width = 1234
Height = 517 Height = 480
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 = 517 ClientRectBottom = 480
ClientRectRight = 1234 ClientRectRight = 1234
ClientRectTop = 32 ClientRectTop = 32
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
@ -359,12 +359,10 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1234 Width = 1234
Height = 485 Height = 448
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
ExplicitLeft = -64
ExplicitTop = 24
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
OnDblClick = TV2DblClick OnDblClick = TV2DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -521,7 +519,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1234 Width = 1234
Height = 485 Height = 448
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
@ -1019,6 +1017,75 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
end end
end end
end end
object Panel6: TPanel [5]
Left = 0
Top = 149
Width = 1234
Height = 37
Align = alTop
AutoSize = True
BevelInner = bvLowered
BorderStyle = bsSingle
TabOrder = 5
DesignSize = (
1230
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 = 497 Left = 497

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

@ -13,7 +13,8 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, FrameDateSel, dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, FrameDateSel,
cxContainer, cxMaskEdit, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters; cxContainer, cxMaskEdit, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters,
System.Math;
type type
TfrmTradeClothTotalInList = class(TfrmBaseList) TfrmTradeClothTotalInList = class(TfrmBaseList)
@ -131,6 +132,12 @@ type
Tv1Column39: TcxGridDBColumn; Tv1Column39: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
TV2Column1: TcxGridDBColumn; TV2Column1: TcxGridDBColumn;
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);
@ -163,11 +170,13 @@ 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;
FMXflag: string; //判断是否刷新所有的明细 FMXflag: string; //判断是否刷新所有的明细
procedure InitGrid1(); procedure InitGrid1();
procedure InitGrid2(); procedure InitGrid2();
procedure setStatus(); procedure setStatus();
procedure InitGrid(MWSql: string);
{ Private declarations } { Private declarations }
public public
{ Public declarations } { Public declarations }
@ -227,14 +236,24 @@ begin
if Trim(canshu4) <> '' then if Trim(canshu4) <> '' then
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + ''''; SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
SqlStr := SqlStr + ' order by IOTime desc'; SqlStr := SqlStr + ' order by IOTime desc';
// ShowMessage(SqlStr);
// InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID');
if FMXflag = '是' then //是就是刷新所有的明细
begin
InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code');
end
else
begin
InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID'); InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID');
end;
end; end;
procedure TfrmTradeClothTotalInList.InitGrid2(); procedure TfrmTradeClothTotalInList.InitGrid2();
var var
SqlStr: string; SqlStr: string;
begin begin
SqlStr := ' select A.BCIONO,A.C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit,StkPieceint=sum(CEILING(A.StkPiece)),StkQty=sum(StkQty) '; SqlStr := ' select A.BCIONO,A.C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit,StkPieceint=sum(CEILING(A.Piece)),StkQty=sum(Qty) ';
SqlStr := SqlStr + ' from BS_Cloth_IO A '; SqlStr := SqlStr + ' from BS_Cloth_IO A ';
SqlStr := SqlStr + ' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + ''''; 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 A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
@ -256,16 +275,81 @@ end;
procedure TfrmTradeClothTotalInList.TBRafreshClick(Sender: TObject); procedure TfrmTradeClothTotalInList.TBRafreshClick(Sender: TObject);
begin begin
frmFrameDateSel1.BegDate.SetFocus; frmFrameDateSel1.BegDate.SetFocus;
CurrentPage := 1;
InitGrid('');
// case cxPageControl1.ActivePageIndex of
// 0:
// begin
// FMXflag := '';
// InitGrid2(); // InitGrid2();
// end;
// 1:
// begin
// FMXflag := '是';
// InitGrid1();
// end;
// end;
end;
procedure TfrmTradeClothTotalInList.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 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.BCIONO,A.C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit,StkPieceint=sum(CEILING(A.Piece)),StkQty=sum(Qty) ';
SqlStr := SqlStr + ' from BS_Cloth_IO A ';
SqlStr := SqlStr + ' where 1=1 ' + (WSql);
SqlStr := SqlStr + ' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''';
SqlStr := SqlStr + ' and IOFlag=''入库'' ';
if Trim(canshu4) <> '' then
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
SqlStr := SqlStr + ' group by A.BCIONO,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; end;
1: 1:
begin begin
FMXflag := 'ÊÇ'; if MWSql = '' then
InitGrid1(); 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_Totalinlist_Get_Page ';
SqlStr := SqlStr + ' @pageIndex=' + inttostr(CurrentPage);
SqlStr := SqlStr + ' ,@pageSize=' + inttostr(RecordsNumber);
SqlStr := SqlStr + ' ,@criteria= ' + quotedstr(WSql);
// showmessage(SqlStr);
InitCDSData(ADOQueryMain, 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;
@ -338,17 +422,21 @@ procedure TfrmTradeClothTotalInList.BCIONoKeyPress(Sender: TObject; var Key: Cha
begin begin
if Key = #13 then if Key = #13 then
begin begin
case cxPageControl1.ActivePageIndex of
0: CurrentPage := 1;
begin InitGrid('');
InitGrid2();
end; // case cxPageControl1.ActivePageIndex of
1: // 0:
begin // begin
FMXflag := 'ÊÇ'; // InitGrid2();
InitGrid1(); // end;
end; // 1:
end; // begin
// FMXflag := '是';
// InitGrid1();
// end;
// end;
end; end;
end; end;
@ -397,12 +485,14 @@ 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, '贸易汇总仓库');
setStatus(); setStatus();
InitGrid2(); InitGrid('');
end; end;
procedure TfrmTradeClothTotalInList.TBExportClick(Sender: TObject); procedure TfrmTradeClothTotalInList.TBExportClick(Sender: TObject);
@ -486,13 +576,15 @@ 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;
InitGrid2(); InitGrid('');
InitGrid1(); // InitGrid2();
// InitGrid1();
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid2(); InitGrid('');
InitGrid1(); // InitGrid2();
// InitGrid1();
end; end;
end; end;
@ -508,7 +600,8 @@ begin
FSTKName := Self.FSTKName; FSTKName := Self.FSTKName;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.InitGrid2(); // Self.InitGrid2();
Self.InitGrid('');
end; end;
end; end;
finally finally
@ -593,42 +686,49 @@ procedure TfrmTradeClothTotalInList.cxButton1Click(Sender: TObject);
begin begin
inherited; inherited;
frmFrameDateSel1.cxButton1Click(Sender); frmFrameDateSel1.cxButton1Click(Sender);
InitGrid2(); InitGrid('');
// InitGrid2();
end; end;
procedure TfrmTradeClothTotalInList.cxButton2Click(Sender: TObject); procedure TfrmTradeClothTotalInList.cxButton2Click(Sender: TObject);
begin begin
inherited; inherited;
frmFrameDateSel1.cxButton2Click(Sender); frmFrameDateSel1.cxButton2Click(Sender);
InitGrid2(); InitGrid('');
// InitGrid2();
end; end;
procedure TfrmTradeClothTotalInList.cxButton3Click(Sender: TObject); procedure TfrmTradeClothTotalInList.cxButton3Click(Sender: TObject);
begin begin
inherited; inherited;
frmFrameDateSel1.cxButton3Click(Sender); frmFrameDateSel1.cxButton3Click(Sender);
InitGrid2() InitGrid('');
// InitGrid2()
end; end;
procedure TfrmTradeClothTotalInList.cxButton4Click(Sender: TObject); procedure TfrmTradeClothTotalInList.cxButton4Click(Sender: TObject);
begin begin
inherited; inherited;
frmFrameDateSel1.cxButton4Click(Sender); frmFrameDateSel1.cxButton4Click(Sender);
InitGrid2(); InitGrid('');
// InitGrid2();
end; end;
procedure TfrmTradeClothTotalInList.cxButton5Click(Sender: TObject); procedure TfrmTradeClothTotalInList.cxButton5Click(Sender: TObject);
begin begin
inherited; inherited;
frmFrameDateSel1.cxButton5Click(Sender); frmFrameDateSel1.cxButton5Click(Sender);
InitGrid2(); InitGrid('');
// InitGrid2();
end; end;
procedure TfrmTradeClothTotalInList.cxPageControl1Change(Sender: TObject); procedure TfrmTradeClothTotalInList.cxPageControl1Change(Sender: TObject);
begin begin
case cxPageControl1.ActivePageIndex of case cxPageControl1.ActivePageIndex of
1: 1:
begin begin
FMXflag := '';
InitGrid1(); InitGrid1();
end; end;
end; end;
@ -636,6 +736,7 @@ end;
procedure TfrmTradeClothTotalInList.cxTabControl1Change(Sender: TObject); procedure TfrmTradeClothTotalInList.cxTabControl1Change(Sender: TObject);
begin begin
InitGrid2(); InitGrid2();
end; end;

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

@ -9,6 +9,7 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitTop = -112
ExplicitWidth = 1297 ExplicitWidth = 1297
ExplicitHeight = 775 ExplicitHeight = 775
PixelsPerInch = 96 PixelsPerInch = 96
@ -325,14 +326,14 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 5 Properties.Style = 5
Properties.TabPosition = tpBottom
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ClientRectBottom = 527 ClientRectBottom = 559
ClientRectRight = 1281 ClientRectRight = 1281
ClientRectTop = 0 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
@ -1060,7 +1061,7 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
TabOrder = 5 TabOrder = 5
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
Properties.TabIndex = 0 Properties.TabIndex = 2
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#26032#20313#26410#20837#24211 #26032#20313#26410#20837#24211
#26032#20313#24050#20837#24211 #26032#20313#24050#20837#24211

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

@ -895,7 +895,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 99
Caption = 'ToolBar1' Caption = 'ToolBar1'
DoubleBuffered = False DoubleBuffered = False
EdgeInner = esNone EdgeInner = esNone
@ -914,7 +914,7 @@ inherited frmMachRollMain: TfrmMachRollMain
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object Trolldel: TToolButton object Trolldel: TToolButton
Left = 63 Left = 71
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -922,7 +922,7 @@ inherited frmMachRollMain: TfrmMachRollMain
OnClick = TrolldelClick OnClick = TrolldelClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 126 Left = 142
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21367#35774#32622 Caption = #25171#21367#35774#32622
@ -930,14 +930,14 @@ inherited frmMachRollMain: TfrmMachRollMain
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object Tlog: TToolButton object Tlog: TToolButton
Left = 213 Left = 245
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26085#24535 Caption = #26085#24535
ImageIndex = 30 ImageIndex = 30
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 276 Left = 316
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -959,21 +959,21 @@ inherited frmMachRollMain: TfrmMachRollMain
Height = 285 Height = 285
Width = 327 Width = 327
inline FrameKeyBoard1: TFrameKeyBoard inline FrameKeyBoard1: TFrameKeyBoard
Left = 4 Left = 2
Top = 23 Top = 26
Width = 319 Width = 323
Height = 246 Height = 257
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 4 ExplicitLeft = 2
ExplicitTop = 23 ExplicitTop = 26
ExplicitWidth = 319 ExplicitWidth = 323
ExplicitHeight = 246 ExplicitHeight = 257
inherited dxPanel1: TdxPanel inherited dxPanel1: TdxPanel
Width = 319 Width = 323
Height = 246 Height = 257
ExplicitWidth = 319 ExplicitWidth = 323
ExplicitHeight = 246 ExplicitHeight = 257
inherited SpeedButton1: TSpeedButton inherited SpeedButton1: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton1Click OnClick = FrameKeyBoard1SpeedButton1Click
end end

3
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; frxExportPPTX, frxDBSet, dxSkinWXI, dxSkinsDefaultPainters;
type type
TfrmMachRollMain = class(TfrmBaseList) TfrmMachRollMain = class(TfrmBaseList)
@ -241,7 +241,6 @@ 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));
InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, '', ''); InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, '', '');
end; end;

32
T03贸易布匹检验/U_TradeClothInspList.dfm
View File

@ -20,7 +20,6 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
BevelInner = bvLowered BevelInner = bvLowered
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 2 TabOrder = 2
ExplicitWidth = 1556
DesignSize = ( DesignSize = (
1917 1917
33) 33)
@ -97,7 +96,6 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 4 TabOrder = 4
ExplicitWidth = 1556
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -141,7 +139,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Visible = False Visible = False
end end
object TBZF: TToolButton object TBZF: TToolButton
Left = 500 Left = 506
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -149,7 +147,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = TBZFClick OnClick = TBZFClick
end end
object Tout: TToolButton object Tout: TToolButton
Left = 571 Left = 577
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20837#24211 Caption = #20837#24211
@ -157,7 +155,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = ToolButton6Click OnClick = ToolButton6Click
end end
object Tunout: TToolButton object Tunout: TToolButton
Left = 642 Left = 648
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#20837#24211 Caption = #25764#38144#20837#24211
@ -165,7 +163,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = TunoutClick OnClick = TunoutClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 745 Left = 751
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21253 Caption = #25171#21253
@ -173,7 +171,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object btnJYBG: TToolButton object btnJYBG: TToolButton
Left = 816 Left = 822
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26816#39564#25253#21578 Caption = #26816#39564#25253#21578
@ -181,7 +179,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = btnJYBGClick OnClick = btnJYBGClick
end end
object Tprintmd: TToolButton object Tprintmd: TToolButton
Left = 919 Left = 925
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360#30721#21333 Caption = #25171#21360#30721#21333
@ -189,7 +187,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = TprintmdClick OnClick = TprintmdClick
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 1022 Left = 1028
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -197,7 +195,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 1093 Left = 1099
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26085#24535 Caption = #26085#24535
@ -205,7 +203,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 1164 Left = 1170
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -213,7 +211,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1251 Left = 1273
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -240,7 +238,6 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
TabOrder = 3 TabOrder = 3
AutoSize = True AutoSize = True
LayoutLookAndFeel = DataLink_TradeInsp.dxLayoutSkinLookAndFeel1 LayoutLookAndFeel = DataLink_TradeInsp.dxLayoutSkinLookAndFeel1
ExplicitWidth = 1556
object OrderNo: TcxTextEdit object OrderNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 88 Left = 88
@ -648,17 +645,15 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Height = 606 Height = 606
Align = alClient Align = alClient
TabOrder = 6 TabOrder = 6
Properties.ActivePage = cxTabSheet2 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 5 Properties.Style = 5
ExplicitWidth = 1556
ClientRectBottom = 606 ClientRectBottom = 606
ClientRectRight = 1921 ClientRectRight = 1921
ClientRectTop = 32 ClientRectTop = 32
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = ' '#20135#21697#27719#24635#20449#24687' ' Caption = ' '#20135#21697#27719#24635#20449#24687' '
ImageIndex = 0 ImageIndex = 0
ExplicitWidth = 1556
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
@ -668,7 +663,6 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
PopupMenu = pm2 PopupMenu = pm2
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1556
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
OnDblClick = TV2DblClick OnDblClick = TV2DblClick
OnMouseUp = Tv1MouseUp OnMouseUp = Tv1MouseUp
@ -869,7 +863,6 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object cxTabSheet2: TcxTabSheet object cxTabSheet2: TcxTabSheet
Caption = ' '#20135#21697#26126#32454#20449#24687' ' Caption = ' '#20135#21697#26126#32454#20449#24687' '
ImageIndex = 1 ImageIndex = 1
ExplicitWidth = 1556
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
@ -879,7 +872,6 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitTop = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseUp = Tv1MouseUp OnMouseUp = Tv1MouseUp
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -1324,7 +1316,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
ParentColor = False ParentColor = False
TabOrder = 7 TabOrder = 7
ExplicitTop = 38 ExplicitTop = 38
ExplicitWidth = 1556 ExplicitWidth = 1921
ExplicitHeight = 37 ExplicitHeight = 37
inherited lbl2: TLabel inherited lbl2: TLabel
Width = 16 Width = 16

2
T03贸易布匹检验/U_TradeClothInspList.pas
View File

@ -336,7 +336,7 @@ begin
SqlStr := SqlStr + ' @pageIndex=' + inttostr(CurrentPage); SqlStr := SqlStr + ' @pageIndex=' + inttostr(CurrentPage);
SqlStr := SqlStr + ' ,@pageSize=' + inttostr(RecordsNumber); SqlStr := SqlStr + ' ,@pageSize=' + inttostr(RecordsNumber);
SqlStr := SqlStr + ' ,@criteria= ' + quotedstr(WSql); SqlStr := SqlStr + ' ,@criteria= ' + quotedstr(WSql);
// showmessage(SqlStr);
InitCDSData(ADOQueryMain, Order_Main, Tv1, SqlStr, '', ''); InitCDSData(ADOQueryMain, Order_Main, Tv1, SqlStr, '', '');
LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(Order_Main.FieldByName('TotalCount').AsInteger / RecordsNumber)); LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(Order_Main.FieldByName('TotalCount').AsInteger / RecordsNumber));
end; end;

1
T03贸易布匹检验/testDll.dproj
View File

@ -139,6 +139,7 @@
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes> <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode> <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10xhGemei\T03贸易布匹检验\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">

5
T03贸易布匹检验/testDll.skincfg Normal file
View File

@ -0,0 +1,5 @@
[ExpressSkins]
Default=1
ShowNotifications=1
Enabled=1
dxSkinsDefaultPainters=1

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

@ -12,7 +12,8 @@ uses
cxTextEdit, StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList,
Vcl.ImgList, ComObj, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils, Vcl.ImgList, ComObj, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils,
cxMaskEdit, cxImageList, cxCurrencyEdit, Vcl.Menus, Clipbrd; cxMaskEdit, cxImageList, cxCurrencyEdit, Vcl.Menus, Clipbrd, dxSkinsCore,
dxSkinsDefaultPainters;
type type
TfrmTradeMarketQtyInPut = class(TfrmBaseInput) TfrmTradeMarketQtyInPut = class(TfrmBaseInput)
@ -205,7 +206,7 @@ begin
FieldByName('TMSQID').AsString := FieldByName('TMSQID').AsString; FieldByName('TMSQID').AsString := FieldByName('TMSQID').AsString;
FieldByName('TMSId').AsString := FieldByName('TMSId').AsString; FieldByName('TMSId').AsString := FieldByName('TMSId').AsString;
FieldByName('TMMId').AsString := FieldByName('TMMId').AsString; FieldByName('TMMId').AsString := FieldByName('TMMId').AsString;
FieldByName('Qty').value := StrTofloatDef(inQty.Text, 0); // FieldByName('Qty').value := StrTofloatDef(inQty.Text, 0);
Post; Post;
end; end;
Next; Next;