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-08-11 17:32:22 +08:00
parent 6c3b105e07
commit f3de0a3270
37 changed files with 11682 additions and 304 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
A00通用组件/FrameDateSel.pas
View File

@ -8,7 +8,23 @@ uses
cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
Vcl.ComCtrls, dxCore, cxDateUtils, cxTextEdit, cxMaskEdit, cxDropDownEdit, Vcl.ComCtrls, dxCore, cxDateUtils, cxTextEdit, cxMaskEdit, cxDropDownEdit,
cxCalendar, Vcl.StdCtrls, Vcl.Menus, cxButtons, Vcl.ExtCtrls, DateUtils, cxCalendar, Vcl.StdCtrls, Vcl.Menus, cxButtons, Vcl.ExtCtrls, DateUtils,
dxSkinsCore, dxSkinsDefaultPainters; dxSkinsCore, dxSkinsDefaultPainters, dxSkinBasic, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinXmas2008Blue;
type type
TfrmFrameDateSel = class(TFrame) TfrmFrameDateSel = class(TFrame)

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

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

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

@ -420,7 +420,8 @@ inherited frmCustInput: TfrmCustInput
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
#26684#32654 #26684#32654
#26032#20313) #26032#20313
#32654#25289)
TabOrder = 17 TabOrder = 17
Width = 200 Width = 200
end end

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

@ -16,7 +16,22 @@ uses
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList,
Vcl.ImgList, cxContainer, cxMemo, dxScrollbarAnnotations, dxSkinsCore, Vcl.ImgList, cxContainer, cxMemo, dxScrollbarAnnotations, dxSkinsCore,
dxSkinsDefaultPainters, cxImageList, cxMRUEdit, dxSkinOffice2013White, dxSkinsDefaultPainters, cxImageList, cxMRUEdit, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI; dxSkinSharpPlus, dxSkinWXI, dxSkinBasic, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2016Colorful, dxSkinOffice2016Dark, dxSkinOffice2019Black,
dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, dxSkinOffice2019White,
dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver,
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinXmas2008Blue;
type type
TfrmCustInput = class(TfrmBaseInput) TfrmCustInput = class(TfrmBaseInput)

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

@ -637,8 +637,8 @@ inherited frmCustomer: TfrmCustomer
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 540 Left = 180
Top = 184 Top = 216
end end
object DS_1: TDataSource object DS_1: TDataSource
DataSet = CDS_1 DataSet = CDS_1

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

@ -18,7 +18,23 @@ uses
FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async,
FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, cxContainer, FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, cxContainer,
dxScrollbarAnnotations, Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters,
cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI; cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI, dxSkinBasic,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
type type
TfrmCustomer = class(TfrmBaseList) TfrmCustomer = class(TfrmBaseList)

17
A01基础公司管理/U_DataLink.pas
View File

@ -8,7 +8,22 @@ uses
Vcl.ExtCtrls, SyncObjs, U_BaseDataLink, cxImageList, cxGraphics, cxEdit, Vcl.ExtCtrls, SyncObjs, U_BaseDataLink, cxImageList, cxGraphics, cxEdit,
cxContainer, dxSkinsForm, cxLocalization, dxCore, dxLayoutLookAndFeels, cxContainer, dxSkinsForm, cxLocalization, dxCore, dxLayoutLookAndFeels,
dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI; dxSkinWXI, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2016Colorful, dxSkinOffice2016Dark, dxSkinOffice2019Black,
dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, dxSkinOffice2019White,
dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver,
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinXmas2008Blue;
type type
TMyThread = class(TThread) TMyThread = class(TThread)

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

@ -80,6 +80,7 @@ begin
Parameters1 := '管理'; Parameters1 := '管理';
// DCode := 'L01'; // DCode := 'L01';
// DCode := 'L02'; // DCode := 'L02';
// Parameters4 := 'ÐÂÓà';
end end
else else
begin begin
@ -127,7 +128,7 @@ begin
100: //提示窗口 100: //提示窗口
begin begin
with TfrmModulePromptList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do // with TfrmModulePromptList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -137,7 +138,7 @@ begin
111: //客户管理 111: //客户管理
begin begin
with TfrmCustomer.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do // with TfrmCustomer.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -147,7 +148,7 @@ begin
121: //供应商管理 121: //供应商管理
begin begin
with TfrmFactory.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do // with TfrmFactory.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -157,7 +158,7 @@ begin
131: //公司管理 131: //公司管理
begin begin
with TfrmCompany.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do // with TfrmCompany.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -167,7 +168,7 @@ begin
141: //公司账户管理 141: //公司账户管理
begin begin
with TfrmBankList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do // with TfrmBankList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -177,7 +178,7 @@ begin
211: //组织机构 211: //组织机构
begin begin
with TfrmSYDept.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do // with TfrmSYDept.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -187,7 +188,7 @@ begin
212: //员工档案管理 212: //员工档案管理
begin begin
with TfrmEmployeeList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do // with TfrmEmployeeList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;

114
A02基础产品管理/ClothInfo.skincfg
View File

@ -1,62 +1,62 @@
[ExpressSkins] [ExpressSkins]
Default=1 Default=0
ShowNotifications=1 ShowNotifications=1
Enabled=1 Enabled=1
dxSkinsDefaultPainters=1 dxSkinsDefaultPainters=1
dxSkinBasic=0 dxSkinBasic=1
dxSkinBlack=0 dxSkinBlack=1
dxSkinBlue=0 dxSkinBlue=1
dxSkinBlueprint=0 dxSkinBlueprint=1
dxSkinCaramel=0 dxSkinCaramel=1
dxSkinCoffee=0 dxSkinCoffee=1
dxSkinDarkroom=0 dxSkinDarkroom=1
dxSkinDarkSide=0 dxSkinDarkSide=1
dxSkinDevExpressDarkStyle=0 dxSkinDevExpressDarkStyle=1
dxSkinDevExpressStyle=0 dxSkinDevExpressStyle=1
dxSkinFoggy=0 dxSkinFoggy=1
dxSkinGlassOceans=0 dxSkinGlassOceans=1
dxSkinHighContrast=0 dxSkinHighContrast=1
dxSkiniMaginary=0 dxSkiniMaginary=1
dxSkinLilian=0 dxSkinLilian=1
dxSkinLiquidSky=0 dxSkinLiquidSky=1
dxSkinLondonLiquidSky=0 dxSkinLondonLiquidSky=1
dxSkinMcSkin=0 dxSkinMcSkin=1
dxSkinMetropolis=0 dxSkinMetropolis=1
dxSkinMetropolisDark=0 dxSkinMetropolisDark=1
dxSkinMoneyTwins=0 dxSkinMoneyTwins=1
dxSkinOffice2007Black=0 dxSkinOffice2007Black=1
dxSkinOffice2007Blue=0 dxSkinOffice2007Blue=1
dxSkinOffice2007Green=0 dxSkinOffice2007Green=1
dxSkinOffice2007Pink=0 dxSkinOffice2007Pink=1
dxSkinOffice2007Silver=0 dxSkinOffice2007Silver=1
dxSkinOffice2010Black=0 dxSkinOffice2010Black=1
dxSkinOffice2010Blue=0 dxSkinOffice2010Blue=1
dxSkinOffice2010Silver=0 dxSkinOffice2010Silver=1
dxSkinOffice2013DarkGray=0 dxSkinOffice2013DarkGray=1
dxSkinOffice2013LightGray=0 dxSkinOffice2013LightGray=1
dxSkinOffice2013White=0 dxSkinOffice2013White=1
dxSkinOffice2016Colorful=0 dxSkinOffice2016Colorful=1
dxSkinOffice2016Dark=0 dxSkinOffice2016Dark=1
dxSkinOffice2019Black=0 dxSkinOffice2019Black=1
dxSkinOffice2019Colorful=0 dxSkinOffice2019Colorful=1
dxSkinOffice2019DarkGray=0 dxSkinOffice2019DarkGray=1
dxSkinOffice2019White=0 dxSkinOffice2019White=1
dxSkinPumpkin=0 dxSkinPumpkin=1
dxSkinSeven=0 dxSkinSeven=1
dxSkinSevenClassic=0 dxSkinSevenClassic=1
dxSkinSharp=0 dxSkinSharp=1
dxSkinSharpPlus=0 dxSkinSharpPlus=1
dxSkinSilver=0 dxSkinSilver=1
dxSkinSpringtime=0 dxSkinSpringtime=1
dxSkinStardust=0 dxSkinStardust=1
dxSkinSummer2008=0 dxSkinSummer2008=1
dxSkinTheAsphaltWorld=0 dxSkinTheAsphaltWorld=1
dxSkinTheBezier=0 dxSkinTheBezier=1
dxSkinValentine=0 dxSkinValentine=1
dxSkinVisualStudio2013Blue=0 dxSkinVisualStudio2013Blue=1
dxSkinVisualStudio2013Dark=0 dxSkinVisualStudio2013Dark=1
dxSkinVisualStudio2013Light=0 dxSkinVisualStudio2013Light=1
dxSkinVS2010=0 dxSkinVS2010=1
dxSkinWhiteprint=0 dxSkinWhiteprint=1
dxSkinWXI=1 dxSkinWXI=1
dxSkinXmas2008Blue=0 dxSkinXmas2008Blue=1

114
B04采购计划管理/PurchasePlan.skincfg
View File

@ -1,62 +1,62 @@
[ExpressSkins] [ExpressSkins]
Default=1 Default=0
ShowNotifications=1 ShowNotifications=1
Enabled=1 Enabled=1
dxSkinBasic=0 dxSkinBasic=1
dxSkinBlack=0 dxSkinBlack=1
dxSkinBlue=0 dxSkinBlue=1
dxSkinBlueprint=0 dxSkinBlueprint=1
dxSkinCaramel=0 dxSkinCaramel=1
dxSkinCoffee=0 dxSkinCoffee=1
dxSkinDarkroom=0 dxSkinDarkroom=1
dxSkinDarkSide=0 dxSkinDarkSide=1
dxSkinDevExpressDarkStyle=0 dxSkinDevExpressDarkStyle=1
dxSkinDevExpressStyle=0 dxSkinDevExpressStyle=1
dxSkinFoggy=0 dxSkinFoggy=1
dxSkinGlassOceans=0 dxSkinGlassOceans=1
dxSkinHighContrast=0 dxSkinHighContrast=1
dxSkiniMaginary=0 dxSkiniMaginary=1
dxSkinLilian=0 dxSkinLilian=1
dxSkinLiquidSky=0 dxSkinLiquidSky=1
dxSkinLondonLiquidSky=0 dxSkinLondonLiquidSky=1
dxSkinMcSkin=0 dxSkinMcSkin=1
dxSkinMetropolis=0 dxSkinMetropolis=1
dxSkinMetropolisDark=0 dxSkinMetropolisDark=1
dxSkinMoneyTwins=0 dxSkinMoneyTwins=1
dxSkinOffice2007Black=0 dxSkinOffice2007Black=1
dxSkinOffice2007Blue=0 dxSkinOffice2007Blue=1
dxSkinOffice2007Green=0 dxSkinOffice2007Green=1
dxSkinOffice2007Pink=0 dxSkinOffice2007Pink=1
dxSkinOffice2007Silver=0 dxSkinOffice2007Silver=1
dxSkinOffice2010Black=0 dxSkinOffice2010Black=1
dxSkinOffice2010Blue=0 dxSkinOffice2010Blue=1
dxSkinOffice2010Silver=0 dxSkinOffice2010Silver=1
dxSkinOffice2013DarkGray=0 dxSkinOffice2013DarkGray=1
dxSkinOffice2013LightGray=0 dxSkinOffice2013LightGray=1
dxSkinOffice2013White=0 dxSkinOffice2013White=1
dxSkinOffice2016Colorful=0 dxSkinOffice2016Colorful=1
dxSkinOffice2016Dark=0 dxSkinOffice2016Dark=1
dxSkinOffice2019Black=0 dxSkinOffice2019Black=1
dxSkinOffice2019Colorful=0 dxSkinOffice2019Colorful=1
dxSkinOffice2019DarkGray=0 dxSkinOffice2019DarkGray=1
dxSkinOffice2019White=0 dxSkinOffice2019White=1
dxSkinPumpkin=0 dxSkinPumpkin=1
dxSkinSeven=0 dxSkinSeven=1
dxSkinSevenClassic=0 dxSkinSevenClassic=1
dxSkinSharp=0 dxSkinSharp=1
dxSkinSharpPlus=0 dxSkinSharpPlus=1
dxSkinSilver=0 dxSkinSilver=1
dxSkinSpringtime=0 dxSkinSpringtime=1
dxSkinStardust=0 dxSkinStardust=1
dxSkinSummer2008=0 dxSkinSummer2008=1
dxSkinTheAsphaltWorld=0 dxSkinTheAsphaltWorld=1
dxSkinTheBezier=0 dxSkinTheBezier=1
dxSkinsDefaultPainters=1 dxSkinsDefaultPainters=1
dxSkinValentine=0 dxSkinValentine=1
dxSkinVisualStudio2013Blue=0 dxSkinVisualStudio2013Blue=1
dxSkinVisualStudio2013Dark=0 dxSkinVisualStudio2013Dark=1
dxSkinVisualStudio2013Light=0 dxSkinVisualStudio2013Light=1
dxSkinVS2010=0 dxSkinVS2010=1
dxSkinWhiteprint=0 dxSkinWhiteprint=1
dxSkinWXI=1 dxSkinWXI=1
dxSkinXmas2008Blue=0 dxSkinXmas2008Blue=1

114
T01贸易生产计划/TradePlan.skincfg
View File

@ -1,62 +1,62 @@
[ExpressSkins] [ExpressSkins]
Default=1 Default=0
ShowNotifications=1 ShowNotifications=1
Enabled=1 Enabled=1
dxSkinBasic=0 dxSkinBasic=1
dxSkinBlack=0 dxSkinBlack=1
dxSkinBlue=0 dxSkinBlue=1
dxSkinBlueprint=0 dxSkinBlueprint=1
dxSkinCaramel=0 dxSkinCaramel=1
dxSkinCoffee=0 dxSkinCoffee=1
dxSkinDarkroom=0 dxSkinDarkroom=1
dxSkinDarkSide=0 dxSkinDarkSide=1
dxSkinDevExpressDarkStyle=0 dxSkinDevExpressDarkStyle=1
dxSkinDevExpressStyle=0 dxSkinDevExpressStyle=1
dxSkinFoggy=0 dxSkinFoggy=1
dxSkinGlassOceans=0 dxSkinGlassOceans=1
dxSkinHighContrast=0 dxSkinHighContrast=1
dxSkiniMaginary=0 dxSkiniMaginary=1
dxSkinLilian=0 dxSkinLilian=1
dxSkinLiquidSky=0 dxSkinLiquidSky=1
dxSkinLondonLiquidSky=0 dxSkinLondonLiquidSky=1
dxSkinMcSkin=0 dxSkinMcSkin=1
dxSkinMetropolis=0 dxSkinMetropolis=1
dxSkinMetropolisDark=0 dxSkinMetropolisDark=1
dxSkinMoneyTwins=0 dxSkinMoneyTwins=1
dxSkinOffice2007Black=0 dxSkinOffice2007Black=1
dxSkinOffice2007Blue=0 dxSkinOffice2007Blue=1
dxSkinOffice2007Green=0 dxSkinOffice2007Green=1
dxSkinOffice2007Pink=0 dxSkinOffice2007Pink=1
dxSkinOffice2007Silver=0 dxSkinOffice2007Silver=1
dxSkinOffice2010Black=0 dxSkinOffice2010Black=1
dxSkinOffice2010Blue=0 dxSkinOffice2010Blue=1
dxSkinOffice2010Silver=0 dxSkinOffice2010Silver=1
dxSkinOffice2013DarkGray=0 dxSkinOffice2013DarkGray=1
dxSkinOffice2013LightGray=0 dxSkinOffice2013LightGray=1
dxSkinOffice2013White=0 dxSkinOffice2013White=1
dxSkinOffice2016Colorful=0 dxSkinOffice2016Colorful=1
dxSkinOffice2016Dark=0 dxSkinOffice2016Dark=1
dxSkinOffice2019Black=0 dxSkinOffice2019Black=1
dxSkinOffice2019Colorful=0 dxSkinOffice2019Colorful=1
dxSkinOffice2019DarkGray=0 dxSkinOffice2019DarkGray=1
dxSkinOffice2019White=0 dxSkinOffice2019White=1
dxSkinPumpkin=0 dxSkinPumpkin=1
dxSkinSeven=0 dxSkinSeven=1
dxSkinSevenClassic=0 dxSkinSevenClassic=1
dxSkinSharp=0 dxSkinSharp=1
dxSkinSharpPlus=0 dxSkinSharpPlus=1
dxSkinSilver=0 dxSkinSilver=1
dxSkinSpringtime=0 dxSkinSpringtime=1
dxSkinStardust=0 dxSkinStardust=1
dxSkinSummer2008=0 dxSkinSummer2008=1
dxSkinTheAsphaltWorld=0 dxSkinTheAsphaltWorld=1
dxSkinTheBezier=0 dxSkinTheBezier=1
dxSkinsDefaultPainters=1 dxSkinsDefaultPainters=1
dxSkinValentine=0 dxSkinValentine=1
dxSkinVisualStudio2013Blue=0 dxSkinVisualStudio2013Blue=1
dxSkinVisualStudio2013Dark=0 dxSkinVisualStudio2013Dark=1
dxSkinVisualStudio2013Light=0 dxSkinVisualStudio2013Light=1
dxSkinVS2010=0 dxSkinVS2010=1
dxSkinWhiteprint=0 dxSkinWhiteprint=1
dxSkinWXI=1 dxSkinWXI=1
dxSkinXmas2008Blue=0 dxSkinXmas2008Blue=1

4
T01贸易生产计划/U_DataLink.dfm
View File

@ -4,6 +4,10 @@ inherited DataLink_TradePlan: TDataLink_TradePlan
Height = 349 Height = 349
Width = 482 Width = 482
inherited cxEditStyleController1: TcxEditStyleController inherited cxEditStyleController1: TcxEditStyleController
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
PixelsPerInch = 96 PixelsPerInch = 96
end end
inherited cxImageList_bar: TcxImageList inherited cxImageList_bar: TcxImageList

18
T01贸易生产计划/U_DataLink.pas
View File

@ -7,7 +7,23 @@ uses
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
System.ImageList, U_BaseDataLink, cxLocalization, cxImageList, cxGraphics, System.ImageList, U_BaseDataLink, cxLocalization, cxImageList, cxGraphics,
cxEdit, cxContainer, dxCore, dxLayoutLookAndFeels, dxSkinsDefaultPainters, cxEdit, cxContainer, dxCore, dxLayoutLookAndFeels, dxSkinsDefaultPainters,
dxSkinsCore, dxSkinsForm; dxSkinsCore, dxSkinsForm, dxSkinBasic, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinXmas2008Blue;
type type
TMyThread = class(TThread) TMyThread = class(TThread)

3
T01贸易生产计划/U_TradePlanColorInPut.dfm
View File

@ -1159,6 +1159,9 @@ inherited frmTradePlanColorInPut: TfrmTradePlanColorInPut
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = #25216#26415#35201#27714 Caption = #25216#26415#35201#27714
ImageIndex = 2 ImageIndex = 2
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 30 Top = 30

18
T01贸易生产计划/U_TradePlanColorInPut.pas
View File

@ -16,7 +16,23 @@ uses
dxBarBuiltInMenu, cxPC, System.ImageList, Vcl.ImgList, U_BaseInput, dxCore, dxBarBuiltInMenu, cxPC, System.ImageList, Vcl.ImgList, U_BaseInput, dxCore,
cxDateUtils, dxScrollbarAnnotations, IdBaseComponent, IdComponent, cxDateUtils, dxScrollbarAnnotations, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, cxImage, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, cxImage,
cxDBEdit, cxGroupBox, cxImageList, dxSkinsCore, dxSkinsDefaultPainters; cxDBEdit, cxGroupBox, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue;
type type
TfrmTradePlanColorInPut = class(TfrmBaseInput) TfrmTradePlanColorInPut = class(TfrmBaseInput)

2
T01贸易生产计划/U_TradePlanColorList.dfm
View File

@ -292,7 +292,9 @@ inherited frmTradePlanColorList: TfrmTradePlanColorList
Width = 1920 Width = 1920
Height = 37 Height = 37
Align = alTop Align = alTop
Color = clWhite
ParentBackground = False ParentBackground = False
ParentColor = False
TabOrder = 4 TabOrder = 4
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2

21
T01贸易生产计划/U_TradePlanColorList.pas
View File

@ -15,10 +15,25 @@ uses
IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg, IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
U_BaseList, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, U_BaseList, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxScrollbarAnnotations, dxBarBuiltInMenu, IdExplicitTLSClientServerBase, dxScrollbarAnnotations, dxBarBuiltInMenu, IdExplicitTLSClientServerBase,
FrameDateSel, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters; FrameDateSel, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, dxSkinBasic,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue;
type type TfrmTradePlanColorList = class(TfrmBaseList)
TfrmTradePlanColorList = class(TfrmBaseList)
ToolBar1: TToolBar; ToolBar1: TToolBar;
TBRafresh: TToolButton; TBRafresh: TToolButton;
TBAdd: TToolButton; TBAdd: TToolButton;

8
T01贸易生产计划/U_TradePlanInPut.dfm
View File

@ -96,8 +96,8 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
object Label3: TLabel object Label3: TLabel
Left = 1356 Left = 1410
Top = 26 Top = -1
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #21046#21333#26085#26399 Caption = #21046#21333#26085#26399
@ -370,8 +370,8 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
end end
object OrdDate: TcxDateEdit object OrdDate: TcxDateEdit
Tag = 1 Tag = 1
Left = 1440 Left = 1480
Top = 20 Top = 0
Enabled = False Enabled = False
ParentFont = False ParentFont = False
Properties.ShowTime = False Properties.ShowTime = False

18
T01贸易生产计划/U_TradePlanInPut.pas
View File

@ -16,7 +16,23 @@ uses
dxBarBuiltInMenu, cxPC, System.ImageList, Vcl.ImgList, U_BaseInput, dxCore, dxBarBuiltInMenu, cxPC, System.ImageList, Vcl.ImgList, U_BaseInput, dxCore,
cxDateUtils, dxScrollbarAnnotations, IdBaseComponent, IdComponent, cxDateUtils, dxScrollbarAnnotations, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, cxImage, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, cxImage,
cxDBEdit, cxGroupBox, cxImageList, dxSkinsDefaultPainters, dxSkinsCore; cxDBEdit, cxGroupBox, cxImageList, dxSkinsDefaultPainters, dxSkinsCore,
dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue;
type type
TfrmTradePlanInPut = class(TfrmBaseInput) TfrmTradePlanInPut = class(TfrmBaseInput)

2
T01贸易生产计划/U_TradePlanList.dfm
View File

@ -325,7 +325,9 @@ inherited frmTradePlanList: TfrmTradePlanList
Width = 1920 Width = 1920
Height = 37 Height = 37
Align = alTop Align = alTop
Color = clWhite
ParentBackground = False ParentBackground = False
ParentColor = False
TabOrder = 4 TabOrder = 4
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2

18
T01贸易生产计划/U_TradePlanList.pas
View File

@ -15,7 +15,23 @@ uses
IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg, IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
U_BaseList, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, U_BaseList, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxScrollbarAnnotations, dxBarBuiltInMenu, IdExplicitTLSClientServerBase, dxScrollbarAnnotations, dxBarBuiltInMenu, IdExplicitTLSClientServerBase,
FrameDateSel, cxProgressBar, dxSkinsDefaultPainters, dxSkinsCore; FrameDateSel, cxProgressBar, dxSkinsDefaultPainters, dxSkinsCore, dxSkinBasic,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue;
type type
TfrmTradePlanList = class(TfrmBaseList) TfrmTradePlanList = class(TfrmBaseList)

10569
T02贸易汇总仓库/U_GeMeiOutputSel.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

352
T02贸易汇总仓库/U_GeMeiOutputSel.pas Normal file
View File

@ -0,0 +1,352 @@
unit U_GeMeiOutputSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseHelp, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxContainer, cxImageList,
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters;
type
TfrmGeMeiOutputSel = class(TfrmBaseHelp)
TV1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
ToolBar1: TToolBar;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
TBSave: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
ADOConnection1: TADOConnection;
GPM_1: TcxGridPopupMenu;
ImageList1: TImageList;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
SkyBlue: TcxStyle;
Default: TcxStyle;
QHuangSe: TcxStyle;
Red: TcxStyle;
FontBlue: TcxStyle;
TextSHuangSe: TcxStyle;
FonePurple: TcxStyle;
FoneClMaroon: TcxStyle;
FoneRed: TcxStyle;
RowColor: TcxStyle;
handBlack: TcxStyle;
cxBlue: TcxStyle;
SHuangSeCu: TcxStyle;
cxImageList_bar: TcxImageList;
TV1Column4: TcxGridDBColumn;
TV1Column5: TcxGridDBColumn;
TV1Column6: TcxGridDBColumn;
TV1Column7: TcxGridDBColumn;
TV1Column8: TcxGridDBColumn;
TV1Column9: TcxGridDBColumn;
TV1Column10: TcxGridDBColumn;
TV1Column11: TcxGridDBColumn;
TV1Column12: TcxGridDBColumn;
TV1Column13: TcxGridDBColumn;
TV1Column14: TcxGridDBColumn;
TV1Column15: TcxGridDBColumn;
TV1Column16: TcxGridDBColumn;
TV1Column17: TcxGridDBColumn;
TV1Column18: TcxGridDBColumn;
TV1Column19: TcxGridDBColumn;
TV1Column20: TcxGridDBColumn;
TV1Column21: TcxGridDBColumn;
TV1Column22: TcxGridDBColumn;
TV1Column23: TcxGridDBColumn;
TV1Column24: TcxGridDBColumn;
TV1Column25: TcxGridDBColumn;
TV1Column26: TcxGridDBColumn;
TV1Column27: TcxGridDBColumn;
TV1Column28: TcxGridDBColumn;
TV1Column29: TcxGridDBColumn;
TV1Column30: TcxGridDBColumn;
TV1Column31: TcxGridDBColumn;
TV1Column32: TcxGridDBColumn;
TV1Column33: TcxGridDBColumn;
TV1Column34: TcxGridDBColumn;
TV1Column35: TcxGridDBColumn;
TV1Column36: TcxGridDBColumn;
TV1Column37: TcxGridDBColumn;
TV1Column38: TcxGridDBColumn;
TV1Column39: TcxGridDBColumn;
TV1Column40: TcxGridDBColumn;
TV1Column41: TcxGridDBColumn;
TV1Column42: TcxGridDBColumn;
TV1Column43: TcxGridDBColumn;
TV1Column44: TcxGridDBColumn;
TV1Column45: TcxGridDBColumn;
TV1Column46: TcxGridDBColumn;
TV1Column47: TcxGridDBColumn;
TV1Column48: TcxGridDBColumn;
TV1Column49: TcxGridDBColumn;
TV1Column50: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure TV1DblClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ToolButton1Click(Sender: TObject);
private
procedure InitGrid();
function SaveData(): Boolean;
{ Private declarations }
public
FCoType, FAuthority, FStores,FSTKName: string;
{ Public declarations }
end;
var
frmGeMeiOutputSel: TfrmGeMeiOutputSel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmGeMeiOutputSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmGeMeiOutputSel.FormCreate(Sender: TObject);
begin
inherited;
try
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
ADOQueryBaseCmd.Connection := ADOConnection1;
ADOQueryBaseTemp.Connection := ADOConnection1;
except
application.MessageBox('网络连接失败！', '提示信息');
end;
end;
procedure TfrmGeMeiOutputSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add(' select A.* ,Pieceint=CEILING(A.Piece) ');
sql.Add(' from BS_Cloth_IO A where 1 = 1');
sql.Add(' and isnull(stkName,'''')=''' + Trim('格美门店') + '''');
sql.Add(' and IOFlag=''出库'' ');
sql.Add(' order by IOTime desc');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmGeMeiOutputSel.FormShow(Sender: TObject);
begin
inherited;
InitGrid();
ReadCxGrid('单位名称' + Trim(FCoType), TV1, '自定义数据');
end;
procedure TfrmGeMeiOutputSel.TBCloseClick(Sender: TObject);
begin
inherited;
Close;
end;
procedure TfrmGeMeiOutputSel.TBSaveClick(Sender: TObject);
begin
WriteCxGrid('单位名称' + Trim(FCoType), TV1, '自定义数据');
end;
procedure TfrmGeMeiOutputSel.ToolButton1Click(Sender: TObject);
var
MBCIONO: string;
begin
//Application.MessageBox('保存成功!', '提示', 0);
ModalResult:=1;
end;
function TfrmGeMeiOutputSel.SaveData(): Boolean;
var
Maxno, MBCIOID: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not eof do
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(CDS_1.fieldbyname('BCIOID').AsString) + '''');
open;
end;
MBCIOID := Trim(ADOQueryTemp.fieldbyname('BCIOID').AsString);
if Trim(MBCIOID) = '' then
begin
if not GetLSNo(ADOQueryCmd, Maxno, 'MR', 'BS_Cloth_IO', 4, 1) then
raise Exception.Create('取染色坯布入库编号失败！');
end
else
begin
Maxno := Trim(MBCIOID);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(Maxno) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(MBCIOID) = '' then
begin
Append;
FieldByName('Fillid').Value := Trim(Dcode);
FieldByName('Filler').Value := Trim(DName);
FieldByName('BCIONO').Value := Trim(Maxno);
FieldByName('BCIOID').Value := Trim(Maxno);
FieldByName('BCIONO').Value := Trim(Maxno);
FieldByName('STKID').Value := Trim(Maxno);
FieldByName('CIID').Value := Trim(Maxno);
end
else
begin
Edit;
FieldByName('Editid').Value := Trim(Dcode);
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
end;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'BS_Cloth_IO', 0);
FieldByName('FromCoNo').Value := CDS_1.fieldbyname('FromCoNo').Value;
FieldByName('StkCoNo').Value := CDS_1.fieldbyname('StkCoNo').Value;
FieldByName('FromMainId').Value := CDS_1.fieldbyname('FromMainId').Value;
FieldByName('FromSubId').Value := CDS_1.fieldbyname('FromSubId').Value;
FieldByName('FromConMId').Value := CDS_1.fieldbyname('FromConMId').Value;
FieldByName('FromConSId').Value := CDS_1.fieldbyname('FromConSId').Value;
FieldByName('FromPurMId').Value := CDS_1.fieldbyname('FromPurMId').Value;
FieldByName('FromPurSId').Value := CDS_1.fieldbyname('FromPurSId').Value;
FieldByName('FromTPNID').Value := CDS_1.fieldbyname('FromTPNID').Value;
//FieldByName('STKName').Value := FSTKName;
FieldByName('IOFlag').Value := '入库';
FieldByName('IOQtyFlag').Value := 1;
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update BS_Cloth_IO Set StkPiece=(select Sum(isnull(Piece,0)*IOQtyFlag) from BS_Cloth_IO A where A.STKID=BS_Cloth_IO.BCIOID )');
sql.Add(',StkQty=(select Sum(isnull(Qty,0)*IOQtyFlag) from BS_Cloth_IO A where A.STKID=BS_Cloth_IO.BCIOID )');
sql.Add(' where BCIOID=''' + Trim(Maxno) + '''');
ExecSQL;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select stkQty,StkPiece from BS_Cloth_IO where BCIOID=''' + Trim(Maxno) + '''');
Open;
end;
if ADOQueryTemp.FieldByName('stkQty').Value < 0 then
raise Exception.Create('入库数量小于出库数量不能保存!');
if ADOQueryTemp.FieldByName('StkPiece').Value < 0 then
raise Exception.Create('入库匹数小于出库匹数不能保存!');
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
sql.Add('values(''贸易待检布入库'' ');
sql.Add(',' + quotedstr(Maxno));
sql.Add(',''保存'' ');
sql.Add(',' + quotedstr(DName));
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(Maxno));
sql.Add(') ');
ExecSQL;
end;
Edit;
FieldByName('BCIOID').Value := Trim(Maxno);
Post;
Next;
end;
end;
CDS_1.EnableControls;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmGeMeiOutputSel.TV1DblClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmGeMeiOutputSel.FormDestroy(Sender: TObject);
begin
inherited;
frmGeMeiOutputSel := nil;
end;
end.

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

@ -85,8 +85,9 @@ begin
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '¹ÜÀí'; Parameters1 := '¹ÜÀí';
Parameters2 := '贸易布匹'; // Parameters2 := '贸易布匹';
Parameters4 := '新余'; Parameters2 := '格美门店';
//Parameters4 := '新余';
DName := 'ADMIN'; DName := 'ADMIN';
DCode := 'ADMIN'; DCode := 'ADMIN';
end end

55
T02贸易汇总仓库/U_TradeClothTotalInInput.dfm
View File

@ -2,7 +2,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
Left = 67 Left = 67
Top = 126 Top = 126
Caption = #38754#26009#20837#24211#30331#35760 Caption = #38754#26009#20837#24211#30331#35760
ClientHeight = 634 ClientHeight = 762
ClientWidth = 1453 ClientWidth = 1453
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -16 Font.Height = -16
@ -10,7 +10,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
WindowState = wsMaximized WindowState = wsMaximized
OnClose = FormClose OnClose = FormClose
ExplicitWidth = 1469 ExplicitWidth = 1469
ExplicitHeight = 673 ExplicitHeight = 801
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object cxGrid1: TcxGrid [0] object cxGrid1: TcxGrid [0]
@ -18,7 +18,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1453 Width = 1453
Height = 604 Height = 732
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -420,7 +420,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 107
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -492,59 +492,70 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
Visible = False Visible = False
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object GeMeiOutputSel: TToolButton
Left = 537
Top = 0
AutoSize = True
Caption = #26684#32654#20986#24211#25968#25454
ImageIndex = 17
OnClick = GeMeiOutputSelClick
end
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 231 Left = 576
Top = 158 Top = 299
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 230 Left = 644
Top = 100 Top = 299
end end
inherited ImageList_new32: TImageList inherited ImageList_new32: TImageList
Left = 104 Left = 848
Top = 144 Top = 367
end end
inherited cxImageList_bar: TcxImageList inherited cxImageList_bar: TcxImageList
FormatVersion = 1 FormatVersion = 1
Left = 712
Top = 367
DesignInfo = 24052424
end end
object DS_1: TDataSource object DS_1: TDataSource
DataSet = CDS_Sub DataSet = CDS_Sub
Left = 737 Left = 780
Top = 97 Top = 367
end end
object CDS_Sub: TClientDataSet object CDS_Sub: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 687 Left = 576
Top = 96 Top = 367
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
Parameters = <> Parameters = <>
Left = 223 Left = 712
Top = 213 Top = 299
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 364 Left = 780
Top = 203 Top = 299
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 464 Left = 848
Top = 200 Top = 299
end end
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 633 Left = 644
Top = 98 Top = 367
end end
end end

31
T02贸易汇总仓库/U_TradeClothTotalInInput.pas
View File

@ -68,6 +68,7 @@ type
Tv1Column20: TcxGridDBColumn; Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn; Tv1Column21: TcxGridDBColumn;
Tv1Column22: TcxGridDBColumn; Tv1Column22: TcxGridDBColumn;
GeMeiOutputSel: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -85,6 +86,7 @@ type
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure GeMeiOutputSelClick(Sender: TObject);
private private
{ Private declarations } { Private declarations }
function SaveData(MSaveType: string): Boolean; function SaveData(MSaveType: string): Boolean;
@ -101,7 +103,7 @@ implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_TradePlanSel, U_ClothInfoSel, U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_TradePlanSel, U_ClothInfoSel,
U_PurchaseContractSel, U_TradeSalesContractSel; U_PurchaseContractSel, U_TradeSalesContractSel, U_GeMeiOutputSel;
{$R *.dfm} {$R *.dfm}
@ -346,6 +348,33 @@ begin
SInitCDSData(ADOQueryTemp, CDS_Sub); SInitCDSData(ADOQueryTemp, CDS_Sub);
end; end;
procedure TfrmTradeClothTotalInInput.GeMeiOutputSelClick(Sender: TObject);
begin
try
frmGeMeiOutputSel := TfrmGeMeiOutputSel.Create(Application);
with frmGeMeiOutputSel do
begin
FSTKName := Self.FSTKName;
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
First;
while frmGeMeiOutputSel.CDS_1.Locate('SSel', True, []) do
begin
Append;
Self.CDS_Sub.FieldByName('BCIONO').AsString := CDS_1.FieldByName('BCIONO').AsString;
Post;
end;
end;
end;
end;
finally
frmGeMeiOutputSel.Free;
end;
end;
procedure TfrmTradeClothTotalInInput.TBDelClick(Sender: TObject); procedure TfrmTradeClothTotalInInput.TBDelClick(Sender: TObject);
begin begin
if CDS_Sub.IsEmpty then if CDS_Sub.IsEmpty then

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

@ -2,21 +2,21 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Left = 165 Left = 165
Top = 111 Top = 111
Caption = #38754#26009#20837#24211#21015#34920 Caption = #38754#26009#20837#24211#21015#34920
ClientHeight = 606 ClientHeight = 666
ClientWidth = 1295 ClientWidth = 1234
Color = clBtnFace Color = clBtnFace
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitWidth = 1311 ExplicitWidth = 1250
ExplicitHeight = 645 ExplicitHeight = 705
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1295 Width = 1234
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -28,6 +28,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 2 TabOrder = 2
ExplicitWidth = 1295
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -122,7 +123,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1295 Width = 1234
Height = 119 Height = 119
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -130,6 +131,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
ParentBackground = False ParentBackground = False
ParentColor = True ParentColor = True
TabOrder = 3 TabOrder = 3
ExplicitWidth = 1295
object Label3: TLabel object Label3: TLabel
Left = 254 Left = 254
Top = 47 Top = 47
@ -257,7 +259,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
inline frmFrameDateSel1: TfrmFrameDateSel inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 1291 Width = 1230
Height = 37 Height = 37
Align = alTop Align = alTop
Color = clWhite Color = clWhite
@ -341,28 +343,34 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
object cxPageControl1: TcxPageControl [4] object cxPageControl1: TcxPageControl [4]
Left = 0 Left = 0
Top = 149 Top = 149
Width = 1295 Width = 1234
Height = 457 Height = 517
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 5 Properties.Style = 5
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ClientRectBottom = 457 ExplicitWidth = 1295
ClientRectRight = 1295 ExplicitHeight = 514
ClientRectBottom = 517
ClientRectRight = 1234
ClientRectTop = 32 ClientRectTop = 32
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = ' '#20135#21697#27719#24635' ' Caption = ' '#20135#21697#27719#24635' '
ImageIndex = 0 ImageIndex = 0
ExplicitWidth = 1295
ExplicitHeight = 482
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1295 Width = 1234
Height = 425 Height = 485
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1295
ExplicitHeight = 482
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
OnDblClick = TV2DblClick OnDblClick = TV2DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -515,14 +523,18 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
object cxTabSheet2: TcxTabSheet object cxTabSheet2: TcxTabSheet
Caption = #20135#21697#26126#32454 Caption = #20135#21697#26126#32454
ImageIndex = 1 ImageIndex = 1
ExplicitWidth = 1295
ExplicitHeight = 482
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1295 Width = 1234
Height = 425 Height = 485
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1295
ExplicitHeight = 482
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -1019,54 +1031,54 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 105 Left = 497
Top = 224 Top = 249
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 241 Left = 565
Top = 233 Top = 249
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
Parameters = <> Parameters = <>
Left = 960 Left = 633
Top = 192 Top = 249
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 784 Left = 701
Top = 200 Top = 249
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 1008 Left = 769
Top = 256 Top = 249
end end
object DS_1: TDataSource object DS_1: TDataSource
DataSet = CDS_1 DataSet = CDS_1
Left = 656 Left = 497
Top = 248 Top = 385
end end
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 504 Left = 701
Top = 256 Top = 317
end end
object CDS_1: TClientDataSet object CDS_1: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 576 Left = 565
Top = 256 Top = 317
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
Left = 352 Left = 633
Top = 248 Top = 385
object N1: TMenuItem object N1: TMenuItem
Caption = #20840#36873 Caption = #20840#36873
OnClick = N1Click OnClick = N1Click
@ -1079,25 +1091,25 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
object GPM_2: TcxGridPopupMenu object GPM_2: TcxGridPopupMenu
Grid = cxGrid2 Grid = cxGrid2
PopupMenus = <> PopupMenus = <>
Left = 512 Left = 769
Top = 320 Top = 317
end end
object CDS_2: TClientDataSet object CDS_2: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 576 Left = 633
Top = 320 Top = 317
end end
object DS_2: TDataSource object DS_2: TDataSource
DataSet = CDS_2 DataSet = CDS_2
Left = 640 Left = 565
Top = 320 Top = 385
end end
object ADO_2: TADOQuery object ADO_2: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 720 Left = 497
Top = 317 Top = 317
end end
end end

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

@ -229,8 +229,8 @@ end;
procedure TfrmTradeClothTotalInList.InitGrid2(); procedure TfrmTradeClothTotalInList.InitGrid2();
var var
SqlStr: string; SqlStr: string;
begin begin // Á½¸öQtyUnit£¬what¡¯s meanings?
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),QtyUnit '; 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 := 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)) + '''';
@ -240,7 +240,7 @@ begin
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + ''''; 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'; 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'); InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code');
end; end;

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

@ -2,7 +2,7 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
Left = 65 Left = 65
Top = 98 Top = 98
Caption = #36152#26131#24067#21305#20986#24211#21015#34920 Caption = #36152#26131#24067#21305#20986#24211#21015#34920
ClientHeight = 490 ClientHeight = 736
ClientWidth = 1281 ClientWidth = 1281
Color = clBtnFace Color = clBtnFace
Font.Height = -16 Font.Height = -16
@ -10,7 +10,7 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitWidth = 1297 ExplicitWidth = 1297
ExplicitHeight = 529 ExplicitHeight = 775
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -317,18 +317,19 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
end end
object cxPageControl1: TcxPageControl [4] object cxPageControl1: TcxPageControl [4]
Left = 0 Left = 0
Top = 148 Top = 177
Width = 1281 Width = 1281
Height = 342 Height = 559
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
Properties.TabPosition = tpBottom
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ClientRectBottom = 342 ClientRectBottom = 527
ClientRectRight = 1281 ClientRectRight = 1281
ClientRectTop = 32 ClientRectTop = 0
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = ' '#20135#21697#27719#24635' ' Caption = ' '#20135#21697#27719#24635' '
ImageIndex = 0 ImageIndex = 0
@ -336,7 +337,7 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1281 Width = 1281
Height = 310 Height = 527
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
@ -511,7 +512,7 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1281 Width = 1281
Height = 310 Height = 527
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
@ -1050,6 +1051,23 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
end end
end end
end end
object cxTabControl1: TcxTabControl [5]
Left = 0
Top = 148
Width = 1281
Height = 29
Align = alTop
TabOrder = 5
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26032#20313#26410#20837#24211
#26032#20313#24050#20837#24211
#20840#37096)
ClientRectRight = 0
ClientRectTop = 0
end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 504 Left = 504

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

@ -140,6 +140,7 @@ type
TV2Column3: TcxGridDBColumn; TV2Column3: TcxGridDBColumn;
Tv1Column36: TcxGridDBColumn; Tv1Column36: TcxGridDBColumn;
ToolButton5: TToolButton; ToolButton5: TToolButton;
cxTabControl1: TcxTabControl;
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);

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

@ -2,14 +2,14 @@ inherited frmTradeTotallClothOutinput: TfrmTradeTotallClothOutinput
Left = 65 Left = 65
Top = 113 Top = 113
Caption = #24067#21305#20986#24211#30331#35760 Caption = #24067#21305#20986#24211#30331#35760
ClientHeight = 517 ClientHeight = 529
ClientWidth = 1525 ClientWidth = 1525
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -16 Font.Height = -16
Position = poMainFormCenter Position = poMainFormCenter
OnClose = FormClose OnClose = FormClose
ExplicitWidth = 1533 ExplicitWidth = 1541
ExplicitHeight = 548 ExplicitHeight = 568
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -63,9 +63,10 @@ inherited frmTradeTotallClothOutinput: TfrmTradeTotallClothOutinput
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1525 Width = 1525
Height = 390 Height = 402
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitHeight = 390
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>

59
T05贸易门市管理/TradeMarket.skincfg
View File

@ -1,5 +1,62 @@
[ExpressSkins] [ExpressSkins]
Default=1 Default=0
ShowNotifications=1 ShowNotifications=1
Enabled=1 Enabled=1
dxSkinsDefaultPainters=1 dxSkinsDefaultPainters=1
dxSkinBasic=1
dxSkinBlack=1
dxSkinBlue=1
dxSkinBlueprint=1
dxSkinCaramel=1
dxSkinCoffee=1
dxSkinDarkroom=1
dxSkinDarkSide=1
dxSkinDevExpressDarkStyle=1
dxSkinDevExpressStyle=1
dxSkinFoggy=1
dxSkinGlassOceans=1
dxSkinHighContrast=1
dxSkiniMaginary=1
dxSkinLilian=1
dxSkinLiquidSky=1
dxSkinLondonLiquidSky=1
dxSkinMcSkin=1
dxSkinMetropolis=1
dxSkinMetropolisDark=1
dxSkinMoneyTwins=1
dxSkinOffice2007Black=1
dxSkinOffice2007Blue=1
dxSkinOffice2007Green=1
dxSkinOffice2007Pink=1
dxSkinOffice2007Silver=1
dxSkinOffice2010Black=1
dxSkinOffice2010Blue=1
dxSkinOffice2010Silver=1
dxSkinOffice2013DarkGray=1
dxSkinOffice2013LightGray=1
dxSkinOffice2013White=1
dxSkinOffice2016Colorful=1
dxSkinOffice2016Dark=1
dxSkinOffice2019Black=1
dxSkinOffice2019Colorful=1
dxSkinOffice2019DarkGray=1
dxSkinOffice2019White=1
dxSkinPumpkin=1
dxSkinSeven=1
dxSkinSevenClassic=1
dxSkinSharp=1
dxSkinSharpPlus=1
dxSkinSilver=1
dxSkinSpringtime=1
dxSkinStardust=1
dxSkinSummer2008=1
dxSkinTheAsphaltWorld=1
dxSkinTheBezier=1
dxSkinValentine=1
dxSkinVisualStudio2013Blue=1
dxSkinVisualStudio2013Dark=1
dxSkinVisualStudio2013Light=1
dxSkinVS2010=1
dxSkinWhiteprint=1
dxSkinWXI=1
dxSkinXmas2008Blue=1

18
T05贸易门市管理/U_DataLink.pas
View File

@ -7,7 +7,23 @@ uses
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
System.ImageList, U_BaseDataLink, dxCore, System.ImageList, U_BaseDataLink, dxCore,
cxLocalization, dxLayoutLookAndFeels, cxImageList, cxGraphics, cxContainer, cxLocalization, dxLayoutLookAndFeels, cxImageList, cxGraphics, cxContainer,
cxEdit, dxSkinsForm, dxSkinsCore, dxSkinsDefaultPainters; cxEdit, dxSkinsForm, dxSkinsCore, dxSkinsDefaultPainters, dxSkinBasic,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue;
type type
TMyThread = class(TThread) TMyThread = class(TThread)

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

@ -17,10 +17,10 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1913 Width = 1913
Height = 30 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 38
ButtonWidth = 99 ButtonWidth = 105
Caption = 'ToolBar1' Caption = 'ToolBar1'
EdgeInner = esNone EdgeInner = esNone
EdgeOuter = esNone EdgeOuter = esNone
@ -33,11 +33,13 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384 Caption = #20445#23384
DropdownMenu = PopupMenu1
ImageIndex = 16 ImageIndex = 16
Style = tbsDropDown
OnClick = TBSaveClick OnClick = TBSaveClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 71 Left = 94
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -45,7 +47,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 174 Left = 197
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -56,7 +58,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
object ToolBar2: TToolBar [1] object ToolBar2: TToolBar [1]
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 185 Top = 193
Width = 1913 Width = 1913
Height = 24 Height = 24
ButtonHeight = 30 ButtonHeight = 30
@ -87,9 +89,9 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
end end
object Panel2: TPanel [2] object Panel2: TPanel [2]
Left = 0 Left = 0
Top = 209 Top = 217
Width = 1913 Width = 1913
Height = 490 Height = 482
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 2 TabOrder = 2
@ -97,7 +99,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1625 Width = 1625
Height = 488 Height = 480
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 0 TabOrder = 0
@ -105,7 +107,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1623 Width = 1623
Height = 486 Height = 478
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -368,7 +370,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Left = 1626 Left = 1626
Top = 1 Top = 1
Width = 286 Width = 286
Height = 488 Height = 480
Align = alRight Align = alRight
Caption = 'Panel4' Caption = 'Panel4'
TabOrder = 1 TabOrder = 1
@ -405,7 +407,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Left = 1 Left = 1
Top = 42 Top = 42
Width = 284 Width = 284
Height = 445 Height = 437
Align = alClient Align = alClient
Caption = #21452#20987#21024#38500#26126#32454#20449#24687 Caption = #21452#20987#21024#38500#26126#32454#20449#24687
TabOrder = 1 TabOrder = 1
@ -413,7 +415,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Left = 2 Left = 2
Top = 23 Top = 23
Width = 280 Width = 280
Height = 420 Height = 412
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object TvMX: TcxGridDBTableView object TvMX: TcxGridDBTableView
@ -477,7 +479,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
end end
object ScrollBox1: TScrollBox [3] object ScrollBox1: TScrollBox [3]
Left = 0 Left = 0
Top = 30 Top = 38
Width = 1913 Width = 1913
Height = 155 Height = 155
Align = alTop Align = alTop
@ -867,4 +869,24 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Left = 860 Left = 860
Top = 219 Top = 219
end end
object PopupMenu1: TPopupMenu
Left = 425
Top = 370
object N1: TMenuItem
Caption = #20445#23384#21518#31435#21363#23457#26680
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20445#23384#21518#31435#21363#25171#21360
OnClick = N2Click
end
object N3: TMenuItem
Caption = #20445#23384#21518#31435#21363#26032#22686
OnClick = N3Click
end
object N4: TMenuItem
Caption = #20445#23384#21518#25171#21360#24182#36864#20986
OnClick = N4Click
end
end
end end

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

@ -16,7 +16,23 @@ uses
U_BaseInput, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI,
dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
cxDBLookupComboBox, cxMRUEdit; cxDBLookupComboBox, cxMRUEdit, dxSkinBasic, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinXmas2008Blue;
type type
TfrmTradeMarketInPut = class(TfrmBaseInput) TfrmTradeMarketInPut = class(TfrmBaseInput)
@ -108,6 +124,11 @@ type
GPM_2: TcxGridPopupMenu; GPM_2: TcxGridPopupMenu;
DS_DanWei: TDataSource; DS_DanWei: TDataSource;
ADO_DanWei: TADOQuery; ADO_DanWei: TADOQuery;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -141,6 +162,10 @@ type
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure StkPositionPropertiesButtonClick(Sender: TObject); procedure StkPositionPropertiesButtonClick(Sender: TObject);
procedure CustNamePropertiesChange(Sender: TObject); procedure CustNamePropertiesChange(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private private
FSCXDH: string; FSCXDH: string;
procedure InitData(); procedure InitData();
@ -157,6 +182,7 @@ type
PState, CopyInt, PriceFlag: Integer; PState, CopyInt, PriceFlag: Integer;
FTMMID, FFTMMID, FTMMNo, MTMSId: string; FTMMID, FFTMMID, FTMMNo, MTMSId: string;
FXS: Integer; FXS: Integer;
btnFlag: Integer;
canshu1, canshu4: string; canshu1, canshu4: string;
fFlileFlag: string; fFlileFlag: string;
fordtype: string; fordtype: string;
@ -171,7 +197,8 @@ implementation
uses uses
U_DataLink, U_ZDYHelp, U_ZDYHelpSel, U_RTFun, U_CompanySel, U_PictureUpload, U_DataLink, U_ZDYHelp, U_ZDYHelpSel, U_RTFun, U_CompanySel, U_PictureUpload,
U_ProgressUpdate, U_ClothInfoSel, U_ComContactSel; U_ProgressUpdate, U_ClothInfoSel, U_ComContactSel, U_TradeMarketList,
U_LabelPrint;
{$R *.dfm} {$R *.dfm}
@ -388,10 +415,10 @@ begin
if CDS_1.IsEmpty then if CDS_1.IsEmpty then
begin begin
AddLine(); AddLine();
AddLine(); // AddLine();
AddLine(); // AddLine();
AddLine(); // AddLine();
AddLine(); // AddLine();
end; end;
with ADO_PM do with ADO_PM do
@ -425,6 +452,7 @@ begin
sql.Add(' where 2=1 '); sql.Add(' where 2=1 ');
Open; Open;
end; end;
// frmTradeMarketlist := TfrmTradeMarketlist.Create(Application);
end; end;
function TfrmTradeMarketInPut.SaveData(): Boolean; function TfrmTradeMarketInPut.SaveData(): Boolean;
@ -433,7 +461,9 @@ var
begin begin
try try
ADOCmd.Connection.BeginTrans; ADOCmd.Connection.BeginTrans;
///±£´æÖ÷±í
///////////////////// 保存主表 ///////////////////////////
if Trim(FTMMID) = '' then if Trim(FTMMID) = '' then
begin begin
if GetLSNo(ADOCmd, maxno, 'JM', 'Trade_Market_Main', 3, 1) = False then if GetLSNo(ADOCmd, maxno, 'JM', 'Trade_Market_Main', 3, 1) = False then
@ -467,6 +497,8 @@ begin
Append; Append;
FieldByName('FillId').Value := Trim(DCode); FieldByName('FillId').Value := Trim(DCode);
FieldByName('Filler').Value := Trim(DName); FieldByName('Filler').Value := Trim(DName);
if btnFlag = 1 then //保存后立即审核
FieldByName('status').Value := Trim('9');
end end
else else
begin begin
@ -484,6 +516,9 @@ begin
Post; Post;
end; end;
///////////////////// 保存主表 ///////////////////////////
///////////////////// 保存子表 /////////////////////////// ///////////////////// 保存子表 ///////////////////////////
with CDS_1 do with CDS_1 do
begin begin
@ -561,7 +596,38 @@ begin
end; end;
SCreateCDS(ADO_1, CDS_1); SCreateCDS(ADO_1, CDS_1);
SInitCDSData(ADO_1, CDS_1); SInitCDSData(ADO_1, CDS_1);
Result := True; Result := True; //保存后立即打印
if (btnFlag = 2) or (btnFlag = 4) then
begin
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
if canshu4 = '新余' then
FLMType := 'TradePlanPrintxy'
else
FLMType := 'TradePlanPrint';
FFiltration1 := Trim(maxno);
if ShowModal = 1 then
begin
// Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
end;
if btnFlag = 3 then //保存后立即新增
begin
CDS_1.Close;
InitData();
SClearData(ScrollBox1, 2); //清空容器中控件的内容
CustName.Text := '';
if CDS_1.IsEmpty then
begin
AddLine();
end;
end;
except except
Result := False; Result := False;
ADOCmd.Connection.RollbackTrans; ADOCmd.Connection.RollbackTrans;
@ -624,8 +690,10 @@ begin
if SaveData() then if SaveData() then
begin begin
Application.MessageBox('保存成功！', '提示', 0); Application.MessageBox('保存成功！', '提示', 0);
// ModalResult := 1; if btnFlag = 4 then //保存后打印并退出
ModalResult := 1;
end; end;
end; end;
@ -909,6 +977,30 @@ begin
ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL); ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
end; end;
procedure TfrmTradeMarketInPut.N1Click(Sender: TObject);
begin
btnFlag := 1;
TBSaveClick(Sender);
end;
procedure TfrmTradeMarketInPut.N2Click(Sender: TObject);
begin
btnFlag := 2;
TBSaveClick(Sender);
end;
procedure TfrmTradeMarketInPut.N3Click(Sender: TObject);
begin
btnFlag := 3;
TBSaveClick(Sender);
end;
procedure TfrmTradeMarketInPut.N4Click(Sender: TObject);
begin
btnFlag := 4;
TBSaveClick(Sender);
end;
procedure TfrmTradeMarketInPut.OurCoNameDblClick(Sender: TObject); procedure TfrmTradeMarketInPut.OurCoNameDblClick(Sender: TObject);
begin begin
TcxButtonEdit(Sender).Text := ''; TcxButtonEdit(Sender).Text := '';

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

@ -636,6 +636,14 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Caption = #22797#21046 Caption = #22797#21046
OnClick = N1Click OnClick = N1Click
end end
object N5: TMenuItem
Caption = #20840#36873
OnClick = N5Click
end
object N6: TMenuItem
Caption = #20840#24323
OnClick = N6Click
end
end end
object GPM_3: TcxGridPopupMenu object GPM_3: TcxGridPopupMenu
PopupMenus = <> PopupMenus = <>

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

@ -16,7 +16,23 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd,
dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore, dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore,
dxSkinsDefaultPainters, Vcl.DBCtrls; dxSkinsDefaultPainters, Vcl.DBCtrls, dxSkinBasic, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinXmas2008Blue;
type type
TfrmTradeMarketList = class(TfrmBaseList) TfrmTradeMarketList = class(TfrmBaseList)
@ -97,6 +113,8 @@ type
Tv1Column19: TcxGridDBColumn; Tv1Column19: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn; Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn; Tv1Column21: TcxGridDBColumn;
N5: TMenuItem;
N6: TMenuItem;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -134,6 +152,8 @@ type
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
private private
DQdate: TDateTime; DQdate: TDateTime;
procedure InitGrid(); procedure InitGrid();
@ -152,6 +172,9 @@ type
{ Public declarations } { Public declarations }
end; end;
var
frmTradeMarketList: TfrmTradeMarketList;
implementation implementation
uses uses
@ -965,6 +988,18 @@ begin
SelOKNoFiler(Tv1, False); //È«Æú SelOKNoFiler(Tv1, False); //È«Æú
end; end;
procedure TfrmTradeMarketList.N5Click(Sender: TObject);
begin
SelOKNo(Order_Main, True);
end;
procedure TfrmTradeMarketList.N6Click(Sender: TObject);
begin
SelOKNo(Order_Main, False);
end;
procedure TfrmTradeMarketList.ComboBox1Change(Sender: TObject); procedure TfrmTradeMarketList.ComboBox1Change(Sender: TObject);
begin begin
InitGrid(); InitGrid();