未完成版本
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
6c3b105e07
commit
f3de0a3270
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
[ExpressSkins]
|
||||
Default=1
|
||||
Default=0
|
||||
ShowNotifications=1
|
||||
Enabled=1
|
||||
dxSkinsDefaultPainters=1
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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,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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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,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
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
10569
T02贸易汇总仓库/U_GeMeiOutputSel.dfm
Normal file
File diff suppressed because it is too large
Load Diff
352
T02贸易汇总仓库/U_GeMeiOutputSel.pas
Normal file
352
T02贸易汇总仓库/U_GeMeiOutputSel.pas
Normal 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.
|
||||
|
||||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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);
|
||||
|
|
|
|||
|
|
@ -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 = <>
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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 := '';
|
||||
|
|
|
|||
|
|
@ -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 = <>
|
||||
|
|
|
|||
|
|
@ -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();
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user