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,
Vcl.ComCtrls, dxCore, cxDateUtils, cxTextEdit, cxMaskEdit, cxDropDownEdit,
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
TfrmFrameDateSel = class(TFrame)

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

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

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

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

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

@ -16,7 +16,22 @@ uses
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList,
Vcl.ImgList, cxContainer, cxMemo, dxScrollbarAnnotations, dxSkinsCore,
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
TfrmCustInput = class(TfrmBaseInput)

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

@ -637,8 +637,8 @@ inherited frmCustomer: TfrmCustomer
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 540
Top = 184
Left = 180
Top = 216
end
object DS_1: TDataSource
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.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, cxContainer,
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
TfrmCustomer = class(TfrmBaseList)

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

@ -8,7 +8,22 @@ uses
Vcl.ExtCtrls, SyncObjs, U_BaseDataLink, cxImageList, cxGraphics, cxEdit,
cxContainer, dxSkinsForm, cxLocalization, dxCore, dxLayoutLookAndFeels,
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
TMyThread = class(TThread)

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

@ -80,6 +80,7 @@ begin
Parameters1 := '管理';
// DCode := 'L01';
// DCode := 'L02';
// Parameters4 := 'ÐÂÓà';
end
else
begin
@ -127,7 +128,7 @@ begin
100: //提示窗口
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
fFormID := FormID;
WindowState := mstate;
@ -137,7 +138,7 @@ begin
111: //客户管理
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
fFormID := FormID;
WindowState := mstate;
@ -147,7 +148,7 @@ begin
121: //供应商管理
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
fFormID := FormID;
WindowState := mstate;
@ -157,7 +158,7 @@ begin
131: //公司管理
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
fFormID := FormID;
WindowState := mstate;
@ -167,7 +168,7 @@ begin
141: //公司账户管理
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
fFormID := FormID;
WindowState := mstate;
@ -177,7 +178,7 @@ begin
211: //组织机构
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
fFormID := FormID;
WindowState := mstate;
@ -187,7 +188,7 @@ begin
212: //员工档案管理
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
fFormID := FormID;
WindowState := mstate;

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

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

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

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

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

@ -1,62 +1,62 @@
[ExpressSkins]
Default=1
Default=0
ShowNotifications=1
Enabled=1
dxSkinBasic=0
dxSkinBlack=0
dxSkinBlue=0
dxSkinBlueprint=0
dxSkinCaramel=0
dxSkinCoffee=0
dxSkinDarkroom=0
dxSkinDarkSide=0
dxSkinDevExpressDarkStyle=0
dxSkinDevExpressStyle=0
dxSkinFoggy=0
dxSkinGlassOceans=0
dxSkinHighContrast=0
dxSkiniMaginary=0
dxSkinLilian=0
dxSkinLiquidSky=0
dxSkinLondonLiquidSky=0
dxSkinMcSkin=0
dxSkinMetropolis=0
dxSkinMetropolisDark=0
dxSkinMoneyTwins=0
dxSkinOffice2007Black=0
dxSkinOffice2007Blue=0
dxSkinOffice2007Green=0
dxSkinOffice2007Pink=0
dxSkinOffice2007Silver=0
dxSkinOffice2010Black=0
dxSkinOffice2010Blue=0
dxSkinOffice2010Silver=0
dxSkinOffice2013DarkGray=0
dxSkinOffice2013LightGray=0
dxSkinOffice2013White=0
dxSkinOffice2016Colorful=0
dxSkinOffice2016Dark=0
dxSkinOffice2019Black=0
dxSkinOffice2019Colorful=0
dxSkinOffice2019DarkGray=0
dxSkinOffice2019White=0
dxSkinPumpkin=0
dxSkinSeven=0
dxSkinSevenClassic=0
dxSkinSharp=0
dxSkinSharpPlus=0
dxSkinSilver=0
dxSkinSpringtime=0
dxSkinStardust=0
dxSkinSummer2008=0
dxSkinTheAsphaltWorld=0
dxSkinTheBezier=0
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
dxSkinsDefaultPainters=1
dxSkinValentine=0
dxSkinVisualStudio2013Blue=0
dxSkinVisualStudio2013Dark=0
dxSkinVisualStudio2013Light=0
dxSkinVS2010=0
dxSkinWhiteprint=0
dxSkinValentine=1
dxSkinVisualStudio2013Blue=1
dxSkinVisualStudio2013Dark=1
dxSkinVisualStudio2013Light=1
dxSkinVS2010=1
dxSkinWhiteprint=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
Width = 482
inherited cxEditStyleController1: TcxEditStyleController
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
PixelsPerInch = 96
end
inherited cxImageList_bar: TcxImageList

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

@ -7,7 +7,23 @@ uses
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
System.ImageList, U_BaseDataLink, cxLocalization, cxImageList, cxGraphics,
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
TMyThread = class(TThread)

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

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

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

@ -16,7 +16,23 @@ uses
dxBarBuiltInMenu, cxPC, System.ImageList, Vcl.ImgList, U_BaseInput, dxCore,
cxDateUtils, dxScrollbarAnnotations, IdBaseComponent, IdComponent,
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
TfrmTradePlanColorInPut = class(TfrmBaseInput)

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

@ -292,7 +292,9 @@ inherited frmTradePlanColorList: TfrmTradePlanColorList
Width = 1920
Height = 37
Align = alTop
Color = clWhite
ParentBackground = False
ParentColor = False
TabOrder = 4
ExplicitLeft = 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,
U_BaseList, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
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
TfrmTradePlanColorList = class(TfrmBaseList)
type TfrmTradePlanColorList = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBAdd: TToolButton;

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

@ -96,8 +96,8 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
ParentCtl3D = False
TabOrder = 1
object Label3: TLabel
Left = 1356
Top = 26
Left = 1410
Top = -1
Width = 64
Height = 21
Caption = #21046#21333#26085#26399
@ -370,8 +370,8 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
end
object OrdDate: TcxDateEdit
Tag = 1
Left = 1440
Top = 20
Left = 1480
Top = 0
Enabled = False
ParentFont = 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,
cxDateUtils, dxScrollbarAnnotations, IdBaseComponent, IdComponent,
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
TfrmTradePlanInPut = class(TfrmBaseInput)

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

@ -325,7 +325,9 @@ inherited frmTradePlanList: TfrmTradePlanList
Width = 1920
Height = 37
Align = alTop
Color = clWhite
ParentBackground = False
ParentColor = False
TabOrder = 4
ExplicitLeft = 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,
U_BaseList, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
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
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;
Parameters1 := '¹ÜÀí';
Parameters2 := '贸易布匹';
Parameters4 := '新余';
// Parameters2 := '贸易布匹';
Parameters2 := '格美门店';
//Parameters4 := '新余';
DName := 'ADMIN';
DCode := 'ADMIN';
end

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

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

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

@ -68,6 +68,7 @@ type
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
Tv1Column22: TcxGridDBColumn;
GeMeiOutputSel: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -85,6 +86,7 @@ type
procedure ToolButton3Click(Sender: TObject);
procedure Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure GeMeiOutputSelClick(Sender: TObject);
private
{ Private declarations }
function SaveData(MSaveType: string): Boolean;
@ -101,7 +103,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_TradePlanSel, U_ClothInfoSel,
U_PurchaseContractSel, U_TradeSalesContractSel;
U_PurchaseContractSel, U_TradeSalesContractSel, U_GeMeiOutputSel;
{$R *.dfm}
@ -346,6 +348,33 @@ begin
SInitCDSData(ADOQueryTemp, CDS_Sub);
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);
begin
if CDS_Sub.IsEmpty then

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

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

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

@ -229,8 +229,8 @@ end;
procedure TfrmTradeClothTotalInList.InitGrid2();
var
SqlStr: string;
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),QtyUnit ';
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) ';
SqlStr := SqlStr + ' from BS_Cloth_IO A ';
SqlStr := SqlStr + ' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''';
SqlStr := SqlStr + ' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
@ -240,7 +240,7 @@ begin
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;

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

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

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

@ -140,6 +140,7 @@ type
TV2Column3: TcxGridDBColumn;
Tv1Column36: TcxGridDBColumn;
ToolButton5: TToolButton;
cxTabControl1: TcxTabControl;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);

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

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

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

@ -1,5 +1,62 @@
[ExpressSkins]
Default=1
Default=0
ShowNotifications=1
Enabled=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,
System.ImageList, U_BaseDataLink, dxCore,
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
TMyThread = class(TThread)

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

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

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

@ -16,7 +16,23 @@ uses
U_BaseInput, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI,
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
TfrmTradeMarketInPut = class(TfrmBaseInput)
@ -108,6 +124,11 @@ type
GPM_2: TcxGridPopupMenu;
DS_DanWei: TDataSource;
ADO_DanWei: TADOQuery;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -141,6 +162,10 @@ type
procedure FormCreate(Sender: TObject);
procedure StkPositionPropertiesButtonClick(Sender: TObject);
procedure CustNamePropertiesChange(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private
FSCXDH: string;
procedure InitData();
@ -157,6 +182,7 @@ type
PState, CopyInt, PriceFlag: Integer;
FTMMID, FFTMMID, FTMMNo, MTMSId: string;
FXS: Integer;
btnFlag: Integer;
canshu1, canshu4: string;
fFlileFlag: string;
fordtype: string;
@ -171,7 +197,8 @@ implementation
uses
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}
@ -388,10 +415,10 @@ begin
if CDS_1.IsEmpty then
begin
AddLine();
AddLine();
AddLine();
AddLine();
AddLine();
// AddLine();
// AddLine();
// AddLine();
// AddLine();
end;
with ADO_PM do
@ -425,6 +452,7 @@ begin
sql.Add(' where 2=1 ');
Open;
end;
// frmTradeMarketlist := TfrmTradeMarketlist.Create(Application);
end;
function TfrmTradeMarketInPut.SaveData(): Boolean;
@ -433,7 +461,9 @@ var
begin
try
ADOCmd.Connection.BeginTrans;
///±£´æÖ÷±í
///////////////////// 保存主表 ///////////////////////////
if Trim(FTMMID) = '' then
begin
if GetLSNo(ADOCmd, maxno, 'JM', 'Trade_Market_Main', 3, 1) = False then
@ -467,6 +497,8 @@ begin
Append;
FieldByName('FillId').Value := Trim(DCode);
FieldByName('Filler').Value := Trim(DName);
if btnFlag = 1 then //保存后立即审核
FieldByName('status').Value := Trim('9');
end
else
begin
@ -484,6 +516,9 @@ begin
Post;
end;
///////////////////// 保存主表 ///////////////////////////
///////////////////// 保存子表 ///////////////////////////
with CDS_1 do
begin
@ -561,7 +596,38 @@ begin
end;
SCreateCDS(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
Result := False;
ADOCmd.Connection.RollbackTrans;
@ -624,8 +690,10 @@ begin
if SaveData() then
begin
Application.MessageBox('保存成功！', '提示', 0);
// ModalResult := 1;
if btnFlag = 4 then //保存后打印并退出
ModalResult := 1;
end;
end;
@ -909,6 +977,30 @@ begin
ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
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);
begin
TcxButtonEdit(Sender).Text := '';

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

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

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

@ -16,7 +16,23 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd,
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
TfrmTradeMarketList = class(TfrmBaseList)
@ -97,6 +113,8 @@ type
Tv1Column19: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
N5: TMenuItem;
N6: TMenuItem;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -134,6 +152,8 @@ type
procedure ToolButton2Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
private
DQdate: TDateTime;
procedure InitGrid();
@ -152,6 +172,9 @@ type
{ Public declarations }
end;
var
frmTradeMarketList: TfrmTradeMarketList;
implementation
uses
@ -965,6 +988,18 @@ begin
SelOKNoFiler(Tv1, False); //È«Æú
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);
begin
InitGrid();