Group_99/D10xhGemei
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

诸多问题

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-08 10:53:41 +08:00
parent 8619a17600
commit ca0be7bcfe
42 changed files with 4245 additions and 1283 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
A00通用窗体/U_UserSel.dfm
View File

@ -10,8 +10,8 @@ inherited frmUserSel: TfrmUserSel
Font.Name = #24494#36719#38597#40657
Position = poMainFormCenter
OnClose = FormClose
ExplicitWidth = 612
ExplicitHeight = 553
ExplicitWidth = 620
ExplicitHeight = 561
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
@ -38,13 +38,13 @@ inherited frmUserSel: TfrmUserSel
ImageIndex = 1
OnClick = TBRafreshClick
end
object ToolButton2: TToolButton
object TBFind: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
OnClick = ToolButton2Click
OnClick = TBFindClick
end
object btnOK: TToolButton
Left = 142
@ -87,22 +87,24 @@ inherited frmUserSel: TfrmUserSel
Height = 21
Caption = #32534#21495
end
object UserName: TcxTextEdit
object EEName: TcxTextEdit
Tag = 2
Left = 218
Top = 5
ParentFont = False
Properties.OnChange = UserIDPropertiesChange
Properties.OnChange = EENamePropertiesChange
TabOrder = 1
OnKeyPress = EENameKeyPress
Width = 120
end
object UserID: TcxTextEdit
object EECode: TcxTextEdit
Tag = 2
Left = 58
Top = 5
ParentFont = False
Properties.OnChange = UserIDPropertiesChange
Properties.OnChange = EENamePropertiesChange
TabOrder = 0
OnKeyPress = EENameKeyPress
Width = 120
end
end
@ -138,7 +140,7 @@ inherited frmUserSel: TfrmUserSel
end
object v2Column1: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'UserID'
DataBinding.FieldName = 'EECode'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -146,7 +148,7 @@ inherited frmUserSel: TfrmUserSel
end
object v2Column2: TcxGridDBColumn
Caption = #21517#31216
DataBinding.FieldName = 'UserName'
DataBinding.FieldName = 'EEName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -154,7 +156,7 @@ inherited frmUserSel: TfrmUserSel
end
object v2Column3: TcxGridDBColumn
Caption = #37096#38376
DataBinding.FieldName = 'Udept'
DataBinding.FieldName = 'Dept'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False

74
A00通用窗体/U_UserSel.pas
View File

@ -13,9 +13,8 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDBLookupComboBox, ComObj, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, U_BaseHelp,
dxBarBuiltInMenu, System.ImageList, Vcl.ImgList,
dxScrollbarAnnotations, cxImageList, cxContainer, dxSkinsCore,
cxNavigator, dxDateRanges, U_BaseHelp, dxBarBuiltInMenu, System.ImageList,
Vcl.ImgList, dxScrollbarAnnotations, cxImageList, cxContainer, dxSkinsCore,
dxSkinsDefaultPainters;
type
@ -32,10 +31,10 @@ type
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
ToolButton2: TToolButton;
TBFind: TToolButton;
ADOQueryMain: TADOQuery;
Label3: TLabel;
UserName: TcxTextEdit;
EEName: TcxTextEdit;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
@ -43,7 +42,7 @@ type
DS_1: TDataSource;
CDS_1: TClientDataSet;
Label1: TLabel;
UserID: TcxTextEdit;
EECode: TcxTextEdit;
btnOK: TToolButton;
v2Column1: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
@ -57,18 +56,19 @@ type
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
procedure UserIDPropertiesChange(Sender: TObject);
procedure EENamePropertiesChange(Sender: TObject);
procedure EENameKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
procedure InitGrid();
procedure CheckGrid();
public
Fdept: string;
Fdept, FPost: string;
FMultiple: Boolean;
FRTUserID, FRTUserName: string;
end;
@ -99,7 +99,7 @@ begin
First;
while not eof do
begin
if FStrs.IndexOf(Trim(FieldByName('UserID').AsString)) >= 0 then
if FStrs.IndexOf(Trim(FieldByName('EECode').AsString)) >= 0 then
begin
Edit;
FieldByName('SSel').Value := true;
@ -121,11 +121,18 @@ begin
Filtered := False;
Close;
SQL.Clear;
sql.Add(' select * from SY_User where 1=1 ');
// sql.Add(' select * from SY_User where 1=1 ');
sql.Add(' select * from SY_Employee where 1=1 ');
if Trim(FPost) <> '' then
begin
// sql.Add('and Udept=' + QuotedStr(Trim(Fdept)));
sql.Add('and Post=' + QuotedStr(Trim(FPost)));
end;
if Trim(Fdept) <> '' then
begin
sql.Add('and Udept=' + QuotedStr(Trim(Fdept)));
sql.Add('and dept=' + QuotedStr(Trim(Fdept)));
end;
Open;
end;
@ -177,16 +184,16 @@ procedure TfrmUserSel.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption), Tv1, '账户选择');
if FMultiple then
begin
VC_SSel.Visible := True;
VC_SSel.Hidden := False;
end
else
begin
VC_SSel.Visible := False;
VC_SSel.Hidden := True;
end;
// if FMultiple then
// begin
// VC_SSel.Visible := True;
// VC_SSel.Hidden := False;
// end
// else
// begin
// VC_SSel.Visible := False;
// VC_SSel.Hidden := True;
// end;
InitGrid();
end;
@ -195,7 +202,7 @@ begin
InitGrid();
end;
procedure TfrmUserSel.ToolButton2Click(Sender: TObject);
procedure TfrmUserSel.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
@ -210,24 +217,33 @@ begin
btnOK.Click;
end;
procedure TfrmUserSel.UserIDPropertiesChange(Sender: TObject);
procedure TfrmUserSel.EENamePropertiesChange(Sender: TObject);
begin
ToolButton2.Click;
TBFind.Click;
end;
procedure TfrmUserSel.EENameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmUserSel.btnOKClick(Sender: TObject);
var
RTValues: TArray<string>;
begin
if FMultiple then
begin
// if FMultiple then
// begin
if not CDS_1.Locate('SSel', true, []) then
begin
Application.MessageBox('请选择数据!', '提示', 0);
Exit;
end;
end;
RTValues := SelCDSKey(CDS_1, ['UserID', 'UserName']);
// end;
RTValues := SelCDSKey(CDS_1, ['EECode', 'EEName']);
FRTUserID := RTValues[0];
FRTUserName := RTValues[1];
ModalResult := 1;

3
A01基础公司管理/Company.dpr
View File

@ -43,7 +43,8 @@ uses
FramePagingSel in '..\A00通用组件\FramePagingSel.pas' {frmFramePagingSel: TFrame},
U_VehicleSel in '..\A00通用窗体\U_VehicleSel.pas' {frmVehicleSel},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_UserSel in '..\A00通用窗体\U_UserSel.pas' {frmUserSel};
U_UserSel in '..\A00通用窗体\U_UserSel.pas' {frmUserSel},
U_SelectStore in 'U_SelectStore.pas' {frmSelectStore};
{$R *.res}
procedure DllEnterPoint(dwReason: DWORD); far; stdcall;

4
A01基础公司管理/Company.dproj
View File

@ -248,6 +248,10 @@
<Form>frmUserSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_SelectStore.pas">
<Form>frmSelectStore</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

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

@ -1,62 +1,62 @@
[ExpressSkins]
Default=0
Default=1
ShowNotifications=1
Enabled=1
Enabled=0
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
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
dxSkinWXI=0
dxSkinXmas2008Blue=0

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

@ -104,8 +104,8 @@ inherited frmCustInput: TfrmCustInput
Visible = False
end
object Label8: TLabel
Left = 1277
Top = 180
Left = 1413
Top = 181
Width = 32
Height = 21
Caption = #22269#23478
@ -133,8 +133,8 @@ inherited frmCustInput: TfrmCustInput
Caption = #21697#29260#21830
end
object Label9: TLabel
Left = 1243
Top = 196
Left = 1241
Top = 204
Width = 16
Height = 21
Caption = #27954
@ -191,12 +191,26 @@ inherited frmCustInput: TfrmCustInput
Caption = #38656#35201#30422#31456
end
object Label16: TLabel
Left = 878
Left = 909
Top = 164
Width = 32
Height = 21
Caption = #38376#24215
end
object Label17: TLabel
Left = 1182
Top = 164
Width = 32
Height = 21
Caption = #21547#31246
end
object Label18: TLabel
Left = 1303
Top = 164
Width = 14
Height = 21
Caption = '%'
end
object CoName: TcxTextEdit
Tag = 2
Left = 86
@ -238,8 +252,8 @@ inherited frmCustInput: TfrmCustInput
end
object cocountry: TcxButtonEdit
Tag = 2
Left = 1315
Top = 173
Left = 1469
Top = 174
Hint = 'CoCountry/'#22269#23478
Properties.Buttons = <
item
@ -415,8 +429,8 @@ inherited frmCustInput: TfrmCustInput
end
object Stores: TcxComboBox
Tag = 2
Left = 950
Top = 160
Left = 951
Top = 164
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#26684#32654
@ -425,6 +439,14 @@ inherited frmCustInput: TfrmCustInput
TabOrder = 17
Width = 200
end
object IncludeTax: TcxTextEdit
Tag = 2
Left = 1228
Top = 160
TabOrder = 18
Text = '0'
Width = 69
end
end
object Panel1: TPanel [2]
Left = 0

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

@ -110,6 +110,9 @@ type
SealFlag: TcxComboBox;
Label16: TLabel;
Stores: TcxComboBox;
Label17: TLabel;
IncludeTax: TcxTextEdit;
Label18: TLabel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -281,12 +284,13 @@ begin
frmUserSel := TfrmUserSel.Create(Application);
with frmUserSel do
begin
Fdept := 'ÒµÎñ';
Fdept := '业务部';
if ShowModal = 1 then
begin
self.SalesId.Text := Trim(CDS_1.fieldbyname('UserID').AsString);
self.Saleser.Text := Trim(CDS_1.fieldbyname('UserName').AsString);
self.SalesId.Text := Trim(CDS_1.fieldbyname('EECode').AsString);
self.Saleser.Text := Trim(CDS_1.fieldbyname('EEName').AsString);
end;
end;
finally
@ -623,6 +627,11 @@ begin
Application.MessageBox('全称不能为空!', '提示', 0);
Exit;
end;
if Trim(Saleser.Text) = '' then
begin
Application.MessageBox('业务员不能为空!', '提示', 0);
Exit;
end;
with CDS_LXR do
begin

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

@ -2,22 +2,22 @@ inherited frmCustomer: TfrmCustomer
Left = 347
Top = 169
Caption = #23458#25143#36164#26009#31649#29702
ClientHeight = 537
ClientWidth = 1540
ClientHeight = 737
ClientWidth = 1589
Color = clBtnFace
Font.Height = -16
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitWidth = 1556
ExplicitHeight = 576
ExplicitWidth = 1605
ExplicitHeight = 776
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Width = 1589
Height = 30
AutoSize = True
ButtonHeight = 30
@ -30,7 +30,7 @@ inherited frmCustomer: TfrmCustomer
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 5
TabOrder = 4
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -139,14 +139,14 @@ inherited frmCustomer: TfrmCustomer
object Panel1: TPanel [1]
Left = 0
Top = 30
Width = 1540
Width = 1589
Height = 62
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
ParentBackground = False
ParentColor = True
TabOrder = 6
TabOrder = 5
object Label3: TLabel
Left = 182
Top = 20
@ -228,14 +228,207 @@ inherited frmCustomer: TfrmCustomer
Width = 120
end
end
object cxGrid1: TcxGrid [2]
object Panel2: TPanel [2]
Left = 0
Top = 534
Width = 1589
Height = 203
Align = alBottom
Caption = 'Panel2'
TabOrder = 2
object cxGrid2: TcxGrid
Left = 1
Top = 1
Width = 1020
Height = 201
Align = alClient
TabOrder = 0
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False
object v3Column3: TcxGridDBColumn
Caption = #40664#35748
DataBinding.FieldName = 'IsDefault'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object Tv2Column2: TcxGridDBColumn
Caption = #22320#22336
DataBinding.FieldName = 'mxaddress'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 111
end
object Tv2Column3: TcxGridDBColumn
Caption = #21306#22495
DataBinding.FieldName = 'mxarea'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 112
end
object cxGridDBColumn1: TcxGridDBColumn
Caption = #32852#31995#20154
DataBinding.FieldName = 'Contacts'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #32844#20301
DataBinding.FieldName = 'position'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #32852#31995#30005#35805
DataBinding.FieldName = 'Telephone'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #25163#26426#21495
DataBinding.FieldName = 'PhoneNumber'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 102
end
object Tv2Column1: TcxGridDBColumn
Caption = 'EMAIL'
DataBinding.FieldName = 'Email'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 108
end
object v3Column2: TcxGridDBColumn
Caption = #24494#20449#21495
DataBinding.FieldName = 'WeChat'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 169
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv2
end
end
object cxGrid3: TcxGrid
Left = 1021
Top = 1
Width = 567
Height = 201
Align = alRight
TabOrder = 1
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False
object cxGridDBColumn6: TcxGridDBColumn
Caption = #36134#25143
DataBinding.FieldName = 'BankName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 358
end
end
object cxGridLevel3: TcxGridLevel
GridView = Tv3
end
end
end
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 92
Width = 1589
Height = 28
Align = alTop
TabOrder = 3
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#23457#26680
#24050#23457#26680
#20840#37096)
LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change
ClientRectRight = 0
ClientRectTop = 0
end
inherited cxProgressBar2: TcxProgressBar
Left = 363
Top = 227
ExplicitLeft = 363
ExplicitTop = 227
ExplicitHeight = 29
end
object cxGrid1: TcxGrid [6]
Left = 0
Top = 120
Width = 1540
Height = 214
Width = 1589
Height = 414
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
TabOrder = 6
object Tv1: TcxGridDBTableView
PopupMenu = PopupMenu1
Navigator.Buttons.CustomButtons = <>
@ -419,199 +612,6 @@ inherited frmCustomer: TfrmCustomer
GridView = Tv1
end
end
object Panel2: TPanel [3]
Left = 0
Top = 334
Width = 1540
Height = 203
Align = alBottom
Caption = 'Panel2'
TabOrder = 3
object cxGrid2: TcxGrid
Left = 1
Top = 1
Width = 971
Height = 201
Align = alClient
TabOrder = 0
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False
object v3Column3: TcxGridDBColumn
Caption = #40664#35748
DataBinding.FieldName = 'IsDefault'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object Tv2Column2: TcxGridDBColumn
Caption = #22320#22336
DataBinding.FieldName = 'mxaddress'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 111
end
object Tv2Column3: TcxGridDBColumn
Caption = #21306#22495
DataBinding.FieldName = 'mxarea'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 112
end
object cxGridDBColumn1: TcxGridDBColumn
Caption = #32852#31995#20154
DataBinding.FieldName = 'Contacts'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #32844#20301
DataBinding.FieldName = 'position'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #32852#31995#30005#35805
DataBinding.FieldName = 'Telephone'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #25163#26426#21495
DataBinding.FieldName = 'PhoneNumber'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 102
end
object Tv2Column1: TcxGridDBColumn
Caption = 'EMAIL'
DataBinding.FieldName = 'Email'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 108
end
object v3Column2: TcxGridDBColumn
Caption = #24494#20449#21495
DataBinding.FieldName = 'WeChat'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 169
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv2
end
end
object cxGrid3: TcxGrid
Left = 972
Top = 1
Width = 567
Height = 201
Align = alRight
TabOrder = 1
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False
object cxGridDBColumn6: TcxGridDBColumn
Caption = #36134#25143
DataBinding.FieldName = 'BankName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 358
end
end
object cxGridLevel3: TcxGridLevel
GridView = Tv3
end
end
end
object cxTabControl1: TcxTabControl [4]
Left = 0
Top = 92
Width = 1540
Height = 28
Align = alTop
TabOrder = 4
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#23457#26680
#24050#23457#26680
#20840#37096)
LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change
ClientRectRight = 0
ClientRectTop = 0
end
inherited cxProgressBar2: TcxProgressBar
Left = 363
Top = 227
ExplicitLeft = 363
ExplicitTop = 227
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Company.ADOLink
Left = 297
@ -643,7 +643,6 @@ inherited frmCustomer: TfrmCustomer
Top = 187
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 180
Top = 216

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

@ -17,24 +17,7 @@ uses
FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error,
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, 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;
dxScrollbarAnnotations, Vcl.Menus, cxProgressBar;
type
TfrmCustomer = class(TfrmBaseList)
@ -48,33 +31,21 @@ type
ADOQueryMain: TADOQuery;
Label3: TLabel;
CoName: TcxTextEdit;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
GPM_1: TcxGridPopupMenu;
DS_1: TDataSource;
CDS_1: TClientDataSet;
btnAdd: TToolButton;
v2Column6: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
v2Column7: TcxGridDBColumn;
Label1: TLabel;
CoCode: TcxTextEdit;
v2Column10: TcxGridDBColumn;
btnEdit: TToolButton;
Label2: TLabel;
Saleser: TcxTextEdit;
area: TcxTextEdit;
Label4: TLabel;
v2Column15: TcxGridDBColumn;
CDS_2: TClientDataSet;
DS_2: TDataSource;
btnSaleser: TToolButton;
OpenDialog1: TOpenDialog;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Panel2: TPanel;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
@ -90,22 +61,15 @@ type
btnChk: TToolButton;
btnReChk: TToolButton;
btnTallyer: TToolButton;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
ToolButton1: TToolButton;
GPM_2: TcxGridPopupMenu;
ToolButton3: TToolButton;
Tv1Column7: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
ToolButton2: TToolButton;
Tv1Column8: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Label5: TLabel;
CoAbbrName: TcxTextEdit;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Tv1Column11: TcxGridDBColumn;
DS_3: TDataSource;
CDS_3: TClientDataSet;
cxGrid3: TcxGrid;
@ -114,10 +78,29 @@ type
cxGridLevel3: TcxGridLevel;
Tv2Column2: TcxGridDBColumn;
Tv2Column3: TcxGridDBColumn;
SetupStore: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
Tv1Column11: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v2Column15: TcxGridDBColumn;
v2Column10: TcxGridDBColumn;
v2Column7: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
SetupStore: TToolButton;
cxGridLevel1: TcxGridLevel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -142,6 +125,7 @@ type
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure SetupStoreClick(Sender: TObject);
//procedure btnStoreOKClick(Sender: TObject);
private
fFlileFlag: string;
{ Private declarations }
@ -159,7 +143,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CustomerInput, U_CustInput, U_UserSel,
U_AttachmentUpload, U_CustImport;
U_AttachmentUpload, U_CustImport, U_SelectStore;
{$R *.dfm}
procedure TfrmCustomer.SetStatus();
@ -218,7 +202,7 @@ begin
end;
if Trim(canshu4) = 'ÐÂÓà' then
begin
SetupStore.Visible:=False;
SetupStore.Visible := False;
end;
end;
@ -528,6 +512,8 @@ end;
procedure TfrmCustomer.SetupStoreClick(Sender: TObject);
var
RTValues: TArray<string>;
StoreName: string;
frmSelectStore: TfrmSelectStore;
begin
if CDS_1.IsEmpty then
exit;
@ -537,20 +523,27 @@ begin
Application.MessageBox('ÇëÑ¡ÔñÊý¾Ý!', 'Ìáʾ', 0);
Exit;
end;
frmSelectStore := TfrmSelectStore.Create(nil);
try
with ADOQueryCmd do
if frmSelectStore.ShowModal = mrOk then
begin
close;
sql.Clear;
sql.Add('update BS_Company SET Stores=''新余'' ');
sql.Add('where EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(RTValues[0]) + ','','') X where BS_Company.CoID=X.RTValue ) ');
execsql;
end;
application.MessageBox('设置门店成功！', '提示信息');
StoreName := frmSelectStore.SelectedStore;
if StoreName = '' then
Exit;
ADOQueryCmd.Close;
ADOQueryCmd.SQL.Text := 'UPDATE BS_Company SET Stores = :StoreName ' + 'WHERE EXISTS(SELECT X.RTValue ' + ' FROM [dbo].[F_Tool_SplitString](:COIDList,'','') X ' + ' WHERE BS_Company.CoID = X.RTValue)';
ADOQueryCmd.Parameters.ParamByName('StoreName').Value := StoreName;
ADOQueryCmd.Parameters.ParamByName('COIDList').Value := RTValues[0];
ADOQueryCmd.ExecSQL;
Application.MessageBox('设置门店成功！', '提示');
TBRafresh.Click;
except
application.MessageBox('设置门店失败！', '提示信息', 0);
end;
finally
frmSelectStore.Free;
end;
end;
procedure TfrmCustomer.btnAddClick(Sender: TObject);
@ -620,11 +613,12 @@ begin
frmUserSel := TfrmUserSel.Create(Application);
with frmUserSel do
begin
Fdept := '业务';
//Fdept := '业务部';
FPost := '业务员';
if ShowModal = 1 then
begin
MSalesId := Trim(CDS_1.fieldbyname('UserID').AsString);
MSaleser := Trim(CDS_1.fieldbyname('UserName').AsString);
MSalesId := Trim(CDS_1.fieldbyname('EECode').AsString);
MSaleser := Trim(CDS_1.fieldbyname('EEName').AsString);
end;
end;
finally
@ -647,6 +641,32 @@ begin
initgrid();
end;
//procedure TfrmCustomer.btnStoreOKClick(Sender: TObject);
//var
// StoreName: string;
//begin
// StoreName := Trim(cbStore.Text);
// if StoreName = '' then
// Exit;
//
// try
// ADOQueryCmd.Close;
// ADOQueryCmd.SQL.Text := 'UPDATE BS_Company SET Stores = :StoreName ' + 'WHERE EXISTS(SELECT X.RTValue ' + ' FROM [dbo].[F_Tool_SplitString](:COIDList,'','') X ' + ' WHERE BS_Company.CoID = X.RTValue)';
// ADOQueryCmd.Parameters.ParamByName('StoreName').Value := StoreName;
// ADOQueryCmd.Parameters.ParamByName('COIDList').Value := SelCDSKey(CDS_1, ['COID'])[0];
// ADOQueryCmd.ExecSQL;
//
// Application.MessageBox('设置门店成功！', '提示');
// TBRafresh.Click;
// except
// Application.MessageBox('设置门店失败！', '提示', 0);
// end;
//
// // 隐藏控件
// cbStore.Visible := False;
// btnStoreOK.Visible := False;
//end;
procedure TfrmCustomer.FormCreate(Sender: TObject);
begin
inherited;

6
A01基础公司管理/U_EmployeeList.dfm
View File

@ -6,9 +6,8 @@ inherited frmEmployeeList: TfrmEmployeeList
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
ExplicitLeft = -217
ExplicitWidth = 1531
ExplicitHeight = 540
ExplicitWidth = 1539
ExplicitHeight = 548
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
@ -340,7 +339,6 @@ inherited frmEmployeeList: TfrmEmployeeList
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 1
ExplicitLeft = 6
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

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

@ -14,7 +14,7 @@ implementation
uses
U_DataLink, U_Customer, U_Factory, U_Company, U_EmployeeList, U_SYDept,
U_BankList, U_ModulePromptList;
U_BankList, U_ModulePromptList,U_LargeScreenDisplay;
/////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 //
@ -80,7 +80,7 @@ begin
Parameters1 := '管理';
// DCode := 'L01';
// DCode := 'L02';
Parameters4 := '新余';
//Parameters4 := '新余';
end
else
begin
@ -126,6 +126,16 @@ begin
//调用子模块窗口
case FormID of
123: //大屏显示
begin
with TfrmLargeScreenDisplay.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
begin
fFormID := FormID;
WindowState := mstate;
mnewHandle := Handle;
end;
end;
100: //提示窗口
begin
with TfrmModulePromptList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //

465
A01基础公司管理/U_LargeScreenDisplay.dfm Normal file
View File

@ -0,0 +1,465 @@
inherited frmLargeScreenDisplay: TfrmLargeScreenDisplay
Left = 297
Top = 109
Caption = #22823#23631#26174#31034
ClientHeight = 1149
ClientWidth = 1724
Color = clBtnFace
Font.Height = -16
FormStyle = fsMDIChild
KeyPreview = True
Visible = True
OnResize = FormResize
ExplicitWidth = 1740
ExplicitHeight = 1188
PixelsPerInch = 96
TextHeight = 21
inherited cxProgressBar2: TcxProgressBar
ExplicitHeight = 29
end
object Panel1: TPanel [2]
Left = 0
Top = 0
Width = 1724
Height = 1149
Align = alClient
TabOrder = 2
object Panel10: TPanel
Left = 1
Top = 1
Width = 792
Height = 1147
Align = alLeft
TabOrder = 0
object Panel2: TPanel
Left = 1
Top = 1
Width = 790
Height = 560
Align = alClient
TabOrder = 0
ExplicitHeight = 570
object Panel6: TPanel
Left = 1
Top = 1
Width = 788
Height = 41
Align = alTop
Caption = 'M'#29287#23679#32447
TabOrder = 0
end
object cxGrid1: TcxGrid
Left = 1
Top = 42
Width = 788
Height = 517
Align = alClient
TabOrder = 1
ExplicitLeft = 3
ExplicitTop = 48
ExplicitHeight = 527
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsView.GroupByBox = False
object TV1Column1: TcxGridDBColumn
Caption = #26159#21542#21152#24613
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1Column2: TcxGridDBColumn
Caption = #21333#25454#32534#21495
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1Column3: TcxGridDBColumn
Caption = #24320#21333#26085#26399
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1Column4: TcxGridDBColumn
Caption = #24320#21333#26102#38388
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1Column5: TcxGridDBColumn
Caption = #23458#25143#21517#31216
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1Column6: TcxGridDBColumn
Caption = #37197#36135#20154
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1Column7: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1Column8: TcxGridDBColumn
Caption = #22791#27880
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = TV1
end
end
end
object Panel4: TPanel
Left = 1
Top = 561
Width = 790
Height = 585
Align = alBottom
TabOrder = 1
object Panel8: TPanel
Left = 1
Top = 1
Width = 788
Height = 41
Align = alTop
Caption = #28201#23725#32447
TabOrder = 0
end
object cxGrid3: TcxGrid
Left = 1
Top = 42
Width = 788
Height = 542
Align = alClient
TabOrder = 1
object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsView.GroupByBox = False
object TV3Column1: TcxGridDBColumn
Caption = #26159#21542#21152#24613
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV3Column2: TcxGridDBColumn
Caption = #21333#25454#32534#21495
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV3Column3: TcxGridDBColumn
Caption = #24320#21333#26085#26399
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV3Column4: TcxGridDBColumn
Caption = #24320#21333#26102#38388
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV3Column5: TcxGridDBColumn
Caption = #23458#25143#21517#31216
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV3Column6: TcxGridDBColumn
Caption = #37197#36135#20154
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV3Column7: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV3Column8: TcxGridDBColumn
Caption = #22791#27880
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV3
end
end
end
end
object Panel11: TPanel
Left = 799
Top = 1
Width = 924
Height = 1147
Align = alRight
TabOrder = 1
object Panel3: TPanel
Left = 1
Top = 1
Width = 922
Height = 560
Align = alClient
TabOrder = 0
ExplicitHeight = 569
object Panel7: TPanel
Left = 1
Top = 1
Width = 920
Height = 41
Align = alTop
Caption = 'D'#19996#22836#24037#19994#32447
TabOrder = 0
end
object cxGrid2: TcxGrid
Left = 1
Top = 42
Width = 920
Height = 517
Align = alClient
TabOrder = 1
ExplicitHeight = 526
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsView.GroupByBox = False
object TV2Column1: TcxGridDBColumn
Caption = #26159#21542#21152#24613
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2Column2: TcxGridDBColumn
Caption = #21333#25454#32534#21495
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2Column3: TcxGridDBColumn
Caption = #24320#21333#26085#26399
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2Column4: TcxGridDBColumn
Caption = #24320#21333#26102#38388
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2Column5: TcxGridDBColumn
Caption = #23458#25143#21517#31216
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2Column6: TcxGridDBColumn
Caption = #37197#36135#20154
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2Column7: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2Column8: TcxGridDBColumn
Caption = #22791#27880
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
end
object Panel5: TPanel
Left = 1
Top = 561
Width = 922
Height = 585
Align = alBottom
TabOrder = 1
object Panel9: TPanel
Left = 1
Top = 1
Width = 920
Height = 42
Align = alTop
Caption = #26410#22238#36710#26126#32454
TabOrder = 0
end
object cxGrid4: TcxGrid
Left = 1
Top = 43
Width = 920
Height = 541
Align = alClient
TabOrder = 1
object TV4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_4
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsView.GroupByBox = False
object TV4Column1: TcxGridDBColumn
Caption = #26159#21542#21152#24613
DataBinding.IsNullValueType = True
HeaderGlyphAlignmentHorz = taCenter
Width = 80
end
object TV4Column2: TcxGridDBColumn
Caption = #21333#25454#32534#21495
DataBinding.IsNullValueType = True
HeaderGlyphAlignmentHorz = taCenter
Width = 80
end
object TV4Column3: TcxGridDBColumn
Caption = #24320#21333#26085#26399
DataBinding.IsNullValueType = True
HeaderGlyphAlignmentHorz = taCenter
Width = 80
end
object TV4Column4: TcxGridDBColumn
Caption = #24320#21333#26102#38388
DataBinding.IsNullValueType = True
HeaderGlyphAlignmentHorz = taCenter
Width = 80
end
object TV4Column5: TcxGridDBColumn
Caption = #23458#25143#21517#31216
DataBinding.IsNullValueType = True
HeaderGlyphAlignmentHorz = taCenter
Width = 80
end
object TV4Column6: TcxGridDBColumn
Caption = #37197#36135#20154
DataBinding.IsNullValueType = True
HeaderGlyphAlignmentHorz = taCenter
Width = 80
end
object TV4Column7: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.IsNullValueType = True
HeaderGlyphAlignmentHorz = taCenter
Width = 80
end
object TV4Column8: TcxGridDBColumn
Caption = #22791#27880
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 80
end
end
object cxGridLevel3: TcxGridLevel
GridView = TV4
end
end
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Company.ADOLink
Left = 233
Top = 208
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Company.ADOLink
Left = 81
Top = 209
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Company.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 347
Top = 385
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Company.ADOLink
Parameters = <>
Left = 245
Top = 385
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Company.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 149
Top = 385
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 467
Top = 211
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 360
Top = 208
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 400
Top = 296
end
object CDS_4: TClientDataSet
Aggregates = <>
Params = <>
Left = 544
Top = 368
end
object CDS_3: TClientDataSet
Aggregates = <>
Params = <>
Left = 432
Top = 400
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 563
Top = 235
end
object DS_3: TDataSource
DataSet = CDS_3
Left = 619
Top = 267
end
object DS_4: TDataSource
DataSet = CDS_4
Left = 675
Top = 339
end
end

211
A01基础公司管理/U_LargeScreenDisplay.pas Normal file
View File

@ -0,0 +1,211 @@
unit U_LargeScreenDisplay;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxSkinsCore,
dxSkinsDefaultPainters, cxProgressBar, 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
TfrmLargeScreenDisplay = class(TfrmBaseList)
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
Panel1: TPanel;
Panel10: TPanel;
Panel2: TPanel;
Panel6: TPanel;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
TV1Column4: TcxGridDBColumn;
TV1Column5: TcxGridDBColumn;
TV1Column6: TcxGridDBColumn;
TV1Column7: TcxGridDBColumn;
TV1Column8: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Panel4: TPanel;
Panel8: TPanel;
cxGrid3: TcxGrid;
TV3: TcxGridDBTableView;
TV3Column1: TcxGridDBColumn;
TV3Column2: TcxGridDBColumn;
TV3Column3: TcxGridDBColumn;
TV3Column4: TcxGridDBColumn;
TV3Column5: TcxGridDBColumn;
TV3Column6: TcxGridDBColumn;
TV3Column7: TcxGridDBColumn;
TV3Column8: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
Panel11: TPanel;
Panel3: TPanel;
Panel7: TPanel;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
TV2Column5: TcxGridDBColumn;
TV2Column6: TcxGridDBColumn;
TV2Column7: TcxGridDBColumn;
TV2Column8: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Panel5: TPanel;
Panel9: TPanel;
cxGrid4: TcxGrid;
TV4: TcxGridDBTableView;
TV4Column1: TcxGridDBColumn;
TV4Column2: TcxGridDBColumn;
TV4Column3: TcxGridDBColumn;
TV4Column4: TcxGridDBColumn;
TV4Column5: TcxGridDBColumn;
TV4Column6: TcxGridDBColumn;
TV4Column7: TcxGridDBColumn;
TV4Column8: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
CDS_2: TClientDataSet;
CDS_4: TClientDataSet;
CDS_3: TClientDataSet;
DS_2: TDataSource;
DS_3: TDataSource;
DS_4: TDataSource;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormResize(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
public
fFlag: integer;
{ Public declarations }
RKFlag, FCYID, fmanage: string;
end;
var
frmLargeScreenDisplay: TfrmLargeScreenDisplay;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp;
{$R *.dfm}
procedure TfrmLargeScreenDisplay.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add(' select * from BS_Bank order by SerialNo ');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmLargeScreenDisplay.FormDestroy(Sender: TObject);
begin
inherited;
frmLargeScreenDisplay := nil;
end;
procedure TfrmLargeScreenDisplay.FormResize(Sender: TObject);
begin
inherited;
Panel10.Width := ClientWidth div 2;
Panel11.Width := ClientWidth div 2;
Panel2.Height := ClientHeight div 2;
Panel4.Height := ClientHeight div 2;
Panel3.Height := ClientHeight div 2;
Panel5.Height := ClientHeight div 2;
end;
procedure TfrmLargeScreenDisplay.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmLargeScreenDisplay.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmLargeScreenDisplay.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(Trim(Self.Caption), Tv1, '');
ReadCxGrid(Trim(Self.Caption), Tv2, '');
ReadCxGrid(Trim(Self.Caption), Tv3, '');
ReadCxGrid(Trim(Self.Caption), Tv4, '');
InitGrid();
end;
end.

42
A01基础公司管理/U_SelectStore.dfm Normal file
View File

@ -0,0 +1,42 @@
inherited frmSelectStore: TfrmSelectStore
Caption = #36873#25321#38376#24215
ClientHeight = 121
ClientWidth = 509
Position = poScreenCenter
ExplicitWidth = 525
ExplicitHeight = 160
PixelsPerInch = 96
TextHeight = 17
object btnOK: TButton [0]
Left = 308
Top = 42
Width = 75
Height = 25
Caption = #30830#23450
ModalResult = 1
TabOrder = 0
end
object cbStore: TComboBox [1]
Left = 47
Top = 42
Width = 216
Height = 25
TabOrder = 1
Items.Strings = (
#26684#32654
#26032#20313
#32654#25289)
end
object btnCancel: TButton [2]
Left = 389
Top = 42
Width = 75
Height = 25
Caption = #21462#28040
ModalResult = 2
TabOrder = 2
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
end
end

40
A01基础公司管理/U_SelectStore.pas Normal file
View File

@ -0,0 +1,40 @@
unit U_SelectStore;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, U_BaseInput, cxImageList, cxGraphics,
System.ImageList, Vcl.ImgList, Data.DB, Data.Win.ADODB, Vcl.StdCtrls;
type
TfrmSelectStore = class(TfrmBaseInput)
btnOK: TButton;
cbStore: TComboBox;
btnCancel: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function SelectedStore: string;
end;
var
frmSelectStore: TfrmSelectStore;
implementation
{$R *.dfm}
procedure TfrmSelectStore.FormCreate(Sender: TObject);
begin
inherited;
cbStore.ItemIndex := 0;
end;
function TfrmSelectStore.SelectedStore: string;
begin
Result := Trim(cbStore.Text);
end;
end.

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

@ -1,7 +1,7 @@
[ExpressSkins]
Default=0
ShowNotifications=1
Enabled=1
Enabled=0
dxSkinsDefaultPainters=1
dxSkinBasic=1
dxSkinBlack=1

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

@ -506,6 +506,13 @@ inherited frmClothInfo: TfrmClothInfo
Options.Editing = False
Width = 112
end
object Tv1Column13: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'CostPrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1Column3: TcxGridDBColumn
Caption = #26377#25928#38376#24133
DataBinding.FieldName = 'C_Width'
@ -664,18 +671,21 @@ inherited frmClothInfo: TfrmClothInfo
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object Tv1Column20: TcxGridDBColumn
Caption = #23454#27979#36879#28287
DataBinding.FieldName = 'Test_Soggy'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column21: TcxGridDBColumn
Caption = #23454#27979#27700#21387
DataBinding.FieldName = 'Test_WaterPressure'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
end
object cxGrid1Level1: TcxGridLevel

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

@ -16,24 +16,7 @@ uses
dxBarBuiltInMenu, cxPC, Math, RM_BarCode, dxDateRanges,
IdExplicitTLSClientServerBase, U_BaseList, cxContainer, dxDBBarCode, dxBarCode,
Vcl.Clipbrd, cxTextEdit, BtnEdit, StrUtils, Vcl.Buttons,
dxScrollbarAnnotations, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters,
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,
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
dxScrollbarAnnotations, cxProgressBar;
type
FdDy = record
@ -153,6 +136,7 @@ type
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
Tv1Column13: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
@ -348,11 +332,9 @@ end;
// cxDBTreeList1.Items[0].Expand(false);
// end;
//
//end;
procedure TfrmClothInfo.InitTree();
begin
try
cxDBTreeList1.BeginUpdate;
@ -362,7 +344,7 @@ begin
begin
SQL.Clear;
if canshu4= '¶þ´Î¼Ó¹¤' then
if canshu4 = '¶þ´Î¼Ó¹¤' then
begin
SQL.Add('SELECT * FROM dbo.F_BS_CloType(''CT2505100001'') A ORDER BY CTName ');
end

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

@ -173,7 +173,6 @@ type
procedure C_FromName4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure C_FromName5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure CostPriceClick(Sender: TObject);
private
canshu1: string;
Fint: Integer;
@ -372,11 +371,40 @@ procedure TfrmClothInfoInput.InitGrid1();
var
SqlStr: string;
begin
SqlStr := 'select A.* from BS_Cloth_Info_Sub A ';
SqlStr := SqlStr + ' where A.BCIID=''' + Trim(FBCIID) + '''';
SqlStr := SqlStr + ' ORDER BY CASE WHEN C_COLORNO NOT LIKE ''%[^0-9]%'' THEN dbo.getNum(C_Colorno) ELSE 9999999999 ';
SqlStr := SqlStr + ' END ,C_ColorNo';
// SqlStr := 'select A.* from BS_Cloth_Info_Sub A ';
// SqlStr := SqlStr + ' where A.BCIID=''' + Trim(FBCIID) + '''';
// SqlStr := SqlStr + ' ORDER BY CASE WHEN C_COLORNO NOT LIKE ''%[^0-9]%'' THEN dbo.getNum(C_Colorno) ELSE 9999999999 ';
// SqlStr := SqlStr + ' END ,C_ColorNo';
SqlStr := 'SELECT A.* FROM BS_Cloth_Info_Sub A ';
SqlStr := SqlStr + 'WHERE A.BCIID = ''' + Trim(FBCIID) + ''' ';
SqlStr := SqlStr + 'ORDER BY ';
SqlStr := SqlStr + ' CASE ';
SqlStr := SqlStr + ' WHEN C_ColorNo NOT LIKE ''%[^0-9]%'' THEN 0 ';
SqlStr := SqlStr + ' ELSE 1 ';
SqlStr := SqlStr + ' END, ';
SqlStr := SqlStr + ' CASE ';
SqlStr := SqlStr + ' WHEN C_ColorNo NOT LIKE ''%[^0-9]%'' THEN CAST(C_ColorNo AS INT) ';
SqlStr := SqlStr + ' ELSE 999999999 ';
SqlStr := SqlStr + ' END, ';
SqlStr := SqlStr + ' CASE ';
SqlStr := SqlStr + ' WHEN C_ColorNo LIKE ''[A-Za-z]%'' THEN ';
SqlStr := SqlStr + ' LEFT(C_ColorNo, PATINDEX(''%[0-9]%'', C_ColorNo + ''0'') - 1) ';
SqlStr := SqlStr + ' ELSE ';
SqlStr := SqlStr + ' '''' ';
SqlStr := SqlStr + ' END, ';
SqlStr := SqlStr + ' CASE ';
SqlStr := SqlStr + ' WHEN PATINDEX(''%[0-9]%'', C_ColorNo) > 0 THEN ';
SqlStr := SqlStr + ' CASE ';
SqlStr := SqlStr + ' WHEN ISNUMERIC(SUBSTRING(C_ColorNo, PATINDEX(''%[0-9]%'', C_ColorNo), LEN(C_ColorNo))) = 1 ';
SqlStr := SqlStr + ' THEN CAST(SUBSTRING(C_ColorNo, PATINDEX(''%[0-9]%'', C_ColorNo), LEN(C_ColorNo)) AS INT) ';
SqlStr := SqlStr + ' ELSE 0 ';
SqlStr := SqlStr + ' END ';
SqlStr := SqlStr + ' ELSE ';
SqlStr := SqlStr + ' 0 ';
SqlStr := SqlStr + ' END, ';
SqlStr := SqlStr + ' C_ColorNo';
// ShowMessage(sqlstr);
InitCDSData(ADO_1, CDS_1, Tv1, SqlStr, '', '');
SqlStr := 'select A.* from BS_Cloth_Info_GYSCP A ';
@ -755,7 +783,7 @@ begin
C_Name.Enabled := True;
C_FromName.Enabled := False;
C_FromName2.Enabled := False;
Panel6.Visible:=False;
Panel6.Visible := False;
end;
with ADOQueryTemp do
begin
@ -894,7 +922,7 @@ begin
if FCTID = 'CT2412300005' then
begin
RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', panel2, 2);
RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', panel6, 2) ;
RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', panel6, 2);
end
else
begin
@ -1318,7 +1346,7 @@ begin
begin
if Trim(C_FromName.Text) = '' then
begin
Application.MessageBox('请输入中文品名!', '提示', 0);
Application.MessageBox('请输入色布名称!', '提示', 0);
Exit;
end;
@ -1329,11 +1357,21 @@ begin
begin
if Trim(C_Name.Text) = '' then
begin
Application.MessageBox('请输入中文品名!', '提示', 0);
Application.MessageBox('请输入色布名称!', '提示', 0);
Exit;
end;
end;
if Trim(StkPosition.Text) = '' then
begin
Application.MessageBox('请输入库位!', '提示', 0);
Exit;
end;
if Trim(qtyunit.Text) = '' then
begin
Application.MessageBox('请输入计价单位!', '提示', 0);
Exit;
end;
// if CDS_1.Locate('C_Color', null, []) = True then
// begin
@ -1464,11 +1502,9 @@ begin
// Panel6.Visible := False;
end;
procedure TfrmClothInfoInput.CostPriceClick(Sender: TObject);
begin
CostPrice.text:='';
CostPrice.text := '';
end;
procedure TfrmClothInfoInput.CostPricePropertiesEditValueChanged(Sender: TObject);

116
A09财务通用管理/Financial.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
Enabled=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
A09财务通用管理/U_FinTradePlanSel.dfm
View File

@ -265,6 +265,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
DataBinding.FieldName = 'Technics'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column2: TcxGridDBColumn
Caption = #21152#24037#21378

4
A09财务通用管理/U_FinTradeSalesContractSel.dfm
View File

@ -226,7 +226,7 @@ inherited frmFinTradeSalesContractSel: TfrmFinTradeSalesContractSel
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
Width = 118
end
object VC_SCSCode: TcxGridDBColumn
Caption = #20135#21697#32534#21495
@ -249,7 +249,7 @@ inherited frmFinTradeSalesContractSel: TfrmFinTradeSalesContractSel
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
Width = 104
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #20135#21697#33521#25991#21517

544
A09财务通用管理/U_ReceivableInput.dfm
View File

@ -2,8 +2,8 @@ object frmReceivableInput: TfrmReceivableInput
Left = 261
Top = 149
Caption = #24212#25910#27454#30331#35760
ClientHeight = 488
ClientWidth = 1324
ClientHeight = 757
ClientWidth = 1353
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -21,7 +21,7 @@ object frmReceivableInput: TfrmReceivableInput
Tag = 1
Left = 0
Top = 0
Width = 1324
Width = 1353
Height = 30
AutoSize = True
ButtonHeight = 30
@ -51,11 +51,232 @@ object frmReceivableInput: TfrmReceivableInput
OnClick = TBCloseClick
end
end
object cxGroupBox1: TcxGroupBox
Left = 0
Top = 310
Align = alBottom
Caption = #20986#20179#26126#32454
TabOrder = 1
Height = 447
Width = 1353
object cxGrid1: TcxGrid
Left = 4
Top = 23
Width = 1345
Height = 408
Align = alClient
TabOrder = 0
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 50
OnCustomDrawIndicatorCell = Tv1CustomDrawIndicatorCell
object Tv1Column1: TcxGridDBColumn
Caption = #33394#24067#21517#31216
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 94
end
object Tv1Column2: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'F_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column3: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'F_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column6: TcxGridDBColumn
Caption = #35745#20215#21333#20301
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'CNY'
'USD'
'EUR')
HeaderAlignmentHorz = taCenter
Width = 105
end
object v1Qty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column16: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'Kg'
'M'
'Y'
#20010
#20214)
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column11: TcxGridDBColumn
Caption = #20214#25968
DataBinding.FieldName = 'TMSQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column12: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column13: TcxGridDBColumn
Caption = #21442#32771#23450#20215
DataBinding.FieldName = 'referencePrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 106
end
object Tv1Column15: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column17: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column21: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'F_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column22: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'F_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column23: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'F_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column24: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'F_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 70
end
object Tv1Column25: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 70
end
object Tv1Column26: TcxGridDBColumn
Caption = #20943#20813
DataBinding.FieldName = 'Deduction'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 70
end
object Tv1Column27: TcxGridDBColumn
Caption = #23567#32568#36153
DataBinding.FieldName = 'OtherFee1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 70
end
object Tv1Column28: TcxGridDBColumn
Caption = #20854#20182#36153
DataBinding.FieldName = 'OtherFee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 70
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
end
object ToolBar2: TToolBar
Tag = 1
Left = 0
Top = 280
Width = 1353
Height = 30
Align = alBottom
AutoSize = True
ButtonHeight = 30
ButtonWidth = 67
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_Financial.ImageList_new32
Images = DataLink_Financial.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 2
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton2Click
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 30
Width = 1324
Height = 458
Width = 1353
Height = 250
Align = alClient
BevelInner = bvNone
BevelOuter = bvNone
@ -64,8 +285,7 @@ object frmReceivableInput: TfrmReceivableInput
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 1
OnClick = ScrollBox1Click
TabOrder = 3
object Label2: TLabel
Left = 262
Top = 15
@ -81,19 +301,12 @@ object frmReceivableInput: TfrmReceivableInput
Caption = #32534' '#21495
end
object Label7: TLabel
Left = 28
Top = 264
Left = 27
Top = 143
Width = 62
Height = 21
Caption = #22791' '#27880
end
object Label1: TLabel
Left = 262
Top = 100
Width = 62
Height = 21
Caption = #21697' '#21517
end
object Label8: TLabel
Left = 762
Top = 57
@ -115,76 +328,6 @@ object frmReceivableInput: TfrmReceivableInput
Height = 21
Caption = #19978#32423#21333#20301
end
object Label3: TLabel
Left = 262
Top = 228
Width = 62
Height = 21
Caption = #37329' '#39069
end
object Label10: TLabel
Left = 28
Top = 185
Width = 62
Height = 21
Caption = #21305' '#25968
end
object Label11: TLabel
Left = 262
Top = 185
Width = 62
Height = 21
Caption = #25968' '#37327
end
object Label12: TLabel
Left = 504
Top = 185
Width = 62
Height = 21
Caption = #21333' '#20215
end
object Label13: TLabel
Left = 28
Top = 143
Width = 62
Height = 21
Caption = #38376' '#24133
end
object Label14: TLabel
Left = 262
Top = 143
Width = 62
Height = 21
Caption = #20811' '#37325
end
object Label15: TLabel
Left = 504
Top = 143
Width = 62
Height = 21
Caption = #33457' '#22411
end
object Label16: TLabel
Left = 504
Top = 100
Width = 62
Height = 21
Caption = #39068' '#33394
end
object Label17: TLabel
Left = 762
Top = 100
Width = 62
Height = 21
Caption = #33394' '#21495
end
object Label4: TLabel
Left = 762
Top = 185
Width = 68
Height = 21
Caption = #20854' '#20182' '#36153
end
object Label20: TLabel
Left = 762
Top = 15
@ -192,13 +335,6 @@ object frmReceivableInput: TfrmReceivableInput
Height = 21
Caption = #26085' '#26399
end
object Label21: TLabel
Left = 28
Top = 228
Width = 62
Height = 21
Caption = #20943' '#20813
end
object Label22: TLabel
Left = 262
Top = 57
@ -221,26 +357,12 @@ object frmReceivableInput: TfrmReceivableInput
Caption = #25688' '#35201
end
object Label18: TLabel
Left = 504
Top = 228
Left = 263
Top = 99
Width = 64
Height = 21
Caption = #26159#21542#21547#31246
end
object Label19: TLabel
Left = 762
Top = 228
Width = 48
Height = 21
Caption = #23567#32568#36153
end
object Label25: TLabel
Left = 762
Top = 143
Width = 62
Height = 21
Caption = #27454' '#21495
end
object Label26: TLabel
Left = 1006
Top = 15
@ -255,89 +377,6 @@ object frmReceivableInput: TfrmReceivableInput
Height = 21
Caption = #27719' '#29575
end
object F_Name: TcxTextEdit
Left = 337
Top = 96
TabOrder = 0
Width = 159
end
object Amount: TcxCurrencyEdit
Left = 337
Top = 224
Properties.AssignedValues.DisplayFormat = True
TabOrder = 1
OnExit = QtyExit
Width = 84
end
object Price: TcxCurrencyEdit
Left = 578
Top = 182
Properties.AssignedValues.DisplayFormat = True
TabOrder = 2
OnExit = QtyExit
Width = 150
end
object Qty: TcxCurrencyEdit
Left = 337
Top = 182
Properties.AssignedValues.DisplayFormat = True
TabOrder = 3
OnExit = QtyExit
Width = 101
end
object Piece: TcxCurrencyEdit
Left = 99
Top = 182
Properties.AssignedValues.DisplayFormat = True
TabOrder = 4
Width = 150
end
object F_Width: TcxTextEdit
Left = 99
Top = 139
TabOrder = 5
Width = 150
end
object F_GramWeight: TcxTextEdit
Left = 337
Top = 139
TabOrder = 6
Width = 159
end
object F_Pattern: TcxTextEdit
Left = 578
Top = 139
TabOrder = 7
Width = 150
end
object F_Color: TcxTextEdit
Left = 579
Top = 96
TabOrder = 8
Width = 150
end
object F_ColorNo: TcxTextEdit
Left = 835
Top = 96
TabOrder = 9
Width = 150
end
object OtherFee: TcxCurrencyEdit
Left = 835
Top = 182
Properties.AssignedValues.DisplayFormat = True
TabOrder = 10
OnExit = QtyExit
Width = 150
end
object Deduction: TcxCurrencyEdit
Left = 99
Top = 224
Properties.AssignedValues.DisplayFormat = True
TabOrder = 11
OnExit = QtyExit
Width = 150
end
object OurCoName: TcxButtonEdit
Left = 99
Top = 11
@ -349,7 +388,7 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True
Properties.OnButtonClick = OurCoNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 12
TabOrder = 0
OnDblClick = OurCoNameDblClick
Width = 151
end
@ -364,7 +403,7 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True
Properties.OnButtonClick = OppCoNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 13
TabOrder = 1
OnDblClick = OurCoNameDblClick
Width = 159
end
@ -379,7 +418,7 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True
Properties.OnButtonClick = OppParentCoNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 14
TabOrder = 2
OnDblClick = OurCoNameDblClick
Width = 151
end
@ -387,7 +426,7 @@ object frmReceivableInput: TfrmReceivableInput
Left = 835
Top = 11
Properties.ShowTime = False
TabOrder = 15
TabOrder = 3
Width = 151
end
object ConNo: TcxButtonEdit
@ -400,8 +439,9 @@ object frmReceivableInput: TfrmReceivableInput
end>
Properties.ReadOnly = True
Properties.OnButtonClick = ConNoPropertiesButtonClick
Properties.OnChange = ConNoPropertiesChange
Style.ButtonStyle = btsDefault
TabOrder = 16
TabOrder = 4
OnDblClick = OurCoNameDblClick
Width = 151
end
@ -416,7 +456,7 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True
Properties.OnButtonClick = OrderNoPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 17
TabOrder = 5
OnDblClick = OurCoNameDblClick
Width = 159
end
@ -432,7 +472,7 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True
Properties.OnButtonClick = FFAbstractPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 18
TabOrder = 6
OnDblClick = OurCoNameDblClick
Width = 151
end
@ -448,73 +488,33 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True
Properties.OnButtonClick = FFAbstractPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 19
TabOrder = 7
OnDblClick = OurCoNameDblClick
Width = 151
end
object QtyUnit: TcxComboBox
Left = 440
Top = 182
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y'
#20010
#20214)
TabOrder = 20
Text = 'Kg'
Width = 57
end
object Currency: TcxComboBox
Left = 424
Top = 224
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'CNY'
'USD'
'EUR')
TabOrder = 21
Text = 'CNY'
Width = 73
end
object IsInvoice: TcxComboBox
Left = 578
Top = 224
Left = 337
Top = 95
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
#26159
#21542)
TabOrder = 22
TabOrder = 8
Text = #26159
Width = 151
Width = 159
end
object Note: TcxMemo
Left = 99
Top = 265
TabOrder = 23
Height = 127
Width = 886
end
object OtherFee1: TcxCurrencyEdit
Left = 835
Top = 224
Properties.AssignedValues.DisplayFormat = True
TabOrder = 24
OnExit = QtyExit
Width = 150
end
object F_StyleNo: TcxTextEdit
Left = 835
Top = 139
TabOrder = 25
Width = 150
Left = 95
Top = 146
TabOrder = 9
Height = 79
Width = 1128
end
object ReconciliationDate: TcxDateEdit
Left = 1076
Top = 11
Properties.ShowTime = False
TabOrder = 26
TabOrder = 10
Width = 151
end
object F_Code: TcxButtonEdit
@ -528,7 +528,7 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True
Properties.OnButtonClick = F_CodePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 27
TabOrder = 11
OnDblClick = OurCoNameDblClick
Width = 151
end
@ -536,7 +536,7 @@ object frmReceivableInput: TfrmReceivableInput
Left = 1074
Top = 53
Properties.AssignedValues.DisplayFormat = True
TabOrder = 28
TabOrder = 12
Width = 150
end
end
@ -544,20 +544,48 @@ object frmReceivableInput: TfrmReceivableInput
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 498
Top = 372
Left = 648
Top = 321
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 397
Top = 369
Left = 512
Top = 321
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 549
Top = 313
Left = 580
Top = 321
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 716
Top = 321
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 784
Top = 321
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 992
Top = 462
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 872
Top = 430
end
object ADO2: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 920
Top = 518
end
end

346
A09财务通用管理/U_ReceivableInput.pas
View File

@ -15,7 +15,7 @@ uses
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer,
cxCurrencyEdit, dxCore, cxDateUtils, cxMemo, dxSkinsCore,
dxSkinsDefaultPainters;
dxSkinsDefaultPainters, dxScrollbarAnnotations, cxGroupBox;
type
TfrmReceivableInput = class(TForm)
@ -24,42 +24,49 @@ type
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ToolButton3: TToolButton;
ADOQueryMain: TADOQuery;
cxGroupBox1: TcxGroupBox;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
v1Qty: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
CDS_1: TClientDataSet;
DS_1: TDataSource;
Tv1Column21: TcxGridDBColumn;
Tv1Column22: TcxGridDBColumn;
Tv1Column23: TcxGridDBColumn;
Tv1Column24: TcxGridDBColumn;
Tv1Column25: TcxGridDBColumn;
Tv1Column26: TcxGridDBColumn;
Tv1Column27: TcxGridDBColumn;
Tv1Column28: TcxGridDBColumn;
ScrollBox1: TScrollBox;
Label2: TLabel;
Label6: TLabel;
Label7: TLabel;
Label1: TLabel;
F_Name: TcxTextEdit;
Label8: TLabel;
Label5: TLabel;
Label9: TLabel;
Amount: TcxCurrencyEdit;
Label3: TLabel;
Price: TcxCurrencyEdit;
Qty: TcxCurrencyEdit;
Piece: TcxCurrencyEdit;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
F_Width: TcxTextEdit;
F_GramWeight: TcxTextEdit;
Label15: TLabel;
Label16: TLabel;
F_Pattern: TcxTextEdit;
F_Color: TcxTextEdit;
Label17: TLabel;
F_ColorNo: TcxTextEdit;
OtherFee: TcxCurrencyEdit;
Label4: TLabel;
Label20: TLabel;
Deduction: TcxCurrencyEdit;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label18: TLabel;
Label26: TLabel;
Label27: TLabel;
OurCoName: TcxButtonEdit;
OppCoName: TcxButtonEdit;
OppParentCoName: TcxButtonEdit;
@ -68,20 +75,14 @@ type
OrderNo: TcxButtonEdit;
FFAbstract: TcxButtonEdit;
PayMent: TcxButtonEdit;
QtyUnit: TcxComboBox;
Currency: TcxComboBox;
IsInvoice: TcxComboBox;
Note: TcxMemo;
Label19: TLabel;
OtherFee1: TcxCurrencyEdit;
F_StyleNo: TcxTextEdit;
Label25: TLabel;
Label26: TLabel;
ReconciliationDate: TcxDateEdit;
F_Code: TcxButtonEdit;
ADOQueryMain: TADOQuery;
Label27: TLabel;
ExchangeRate: TcxCurrencyEdit;
CDS_2: TClientDataSet;
DS_2: TDataSource;
ADO2: TADOQuery;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -90,8 +91,8 @@ type
procedure ToolButton3Click(Sender: TObject);
procedure PayMentBtnDnClick(Sender: TObject);
procedure PayMentBtnUpClick(Sender: TObject);
procedure QtyExit(Sender: TObject);
procedure ScrollBox1Click(Sender: TObject);
//procedure QtyExit(Sender: TObject);
//procedure ScrollBox1Click(Sender: TObject);
procedure OrderNoBtnUpClick(Sender: TObject);
procedure ConNoBtnUpClick(Sender: TObject);
procedure OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@ -102,10 +103,16 @@ type
procedure OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure FFAbstractPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure F_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure v1QtyPropertiesEditValueChanged(Sender: TObject);
procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
procedure ConNoPropertiesChange(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
procedure HJJE();
// procedure HJJE();
function SaveData(): Boolean;
public
{ Public declarations }
@ -123,27 +130,27 @@ uses
{$R *.dfm}
procedure TfrmReceivableInput.HJJE();
var
MPrice, MQty, MOtherFee, MOtherFee1, MDeduction, MAmount: double;
begin
MPrice := Strtofloatdef(Price.Text, 0);
MQty := Strtofloatdef(Qty.Text, 0);
MOtherFee := Strtofloatdef(OtherFee.Text, 0);
MOtherFee1 := Strtofloatdef(OtherFee1.Text, 0);
MDeduction := Strtofloatdef(Deduction.Text, 0);
MAmount := Strtofloatdef(Amount.Text, 0);
// if MQty * MPrice >= 0 then
begin
MAmount := RoundFloat((MQty * MPrice + MOtherFee + MOtherFee1 - MDeduction), 2);
end;
// Price.Text := FloatToStr(MPrice);
// Qty.Text := FloatToStr(MQty);
// OtherFee.Text := FloatToStr(MOtherFee);
// Deduction.Text := FloatToStr(MDeduction);
Amount.Text := FloatToStr(MAmount);
end;
//procedure TfrmReceivableInput.HJJE();
//var
// MPrice, MQty, MOtherFee, MOtherFee1, MDeduction, MAmount: double;
//begin
// MPrice := Strtofloatdef(price.Text, 0);
// MQty := Strtofloatdef(Qty.Text, 0);
// MOtherFee := Strtofloatdef(OtherFee.Text, 0);
// MOtherFee1 := Strtofloatdef(OtherFee1.Text, 0);
// MDeduction := Strtofloatdef(Deduction.Text, 0);
// MAmount := Strtofloatdef(Amount.Text, 0);
//
//// if MQty * MPrice >= 0 then
// begin
// MAmount := RoundFloat((MQty * MPrice + MOtherFee + MOtherFee1 - MDeduction), 2);
// end;
//// Price.Text := FloatToStr(MPrice);
//// Qty.Text := FloatToStr(MQty);
//// OtherFee.Text := FloatToStr(MOtherFee);
//// Deduction.Text := FloatToStr(MDeduction);
// Amount.Text := FloatToStr(MAmount);
//end;
procedure TfrmReceivableInput.InitGrid();
begin
@ -158,6 +165,9 @@ begin
sql.Add(' select * from Finance_Flow where FFID=''' + Trim(FFFID) + '''');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
if not ADOQueryMain.IsEmpty then
begin
SCSHData(ADOQueryMain, ScrollBox1, 0);
@ -252,17 +262,40 @@ begin
begin
with frmFinTradePlanSel.CDS_1 do
begin
self.ConNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConNo').AsString);
self.OrderNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString);
self.F_Code.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Code').AsString);
self.F_Name.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Name').AsString);
self.F_Pattern.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Pattern').AsString);
self.F_Color.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Color').AsString);
self.F_ColorNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_ColorNo').AsString);
self.F_Width.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Width').AsString);
self.F_GramWeight.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_GramWeight').AsString);
with ADO2 do
begin
Filtered := False;
Close;
SQL.Clear;
sql.Add(' select * from Finance_Flow where OrderNo=''' + Trim(OrderNo.Text) + '''');
Open;
end;
SCreateCDS(ADO2, CDS_2);
SInitCDSData(ADO2, CDS_2);
if CDS_2.IsEmpty then
begin
with CDS_2 do
begin
while not eof do
begin
CDS_1.Append;
CDS_1.FieldByName('F_Name').AsString := FieldByName('F_Name').AsString;
CDS_1.FieldByName('F_ColorNo').AsString := FieldByName('F_ColorNo').AsString;
CDS_1.FieldByName('F_Color').AsString := FieldByName('F_Color').AsString;
CDS_1.FieldByName('Currency').AsString := FieldByName('Currency').AsString;
CDS_1.FieldByName('Qty').AsString := FieldByName('Qty').AsString;
CDS_1.FieldByName('QtyUnit').AsString := FieldByName('QtyUnit').AsString;
CDS_1.post;
Next;
end;
end;
end;
end;
end;
@ -332,10 +365,10 @@ begin
end;
end;
procedure TfrmReceivableInput.QtyExit(Sender: TObject);
begin
HJJE();
end;
//procedure TfrmReceivableInput.QtyExit(Sender: TObject);
//begin
// HJJE();
//end;
procedure TfrmReceivableInput.ConNoBtnUpClick(Sender: TObject);
begin
@ -364,15 +397,20 @@ begin
if Self.FAuthority = '低权限' then
FAuthority := '拥有者';
if ShowModal = 1 then
begin
with frmFinTradePlanSel.CDS_1 do
begin
self.ConNo.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString);
self.F_Code.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('C_Code').AsString);
self.F_Name.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('C_Name').AsString);
self.F_Pattern.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('C_Pattern').AsString);
self.F_Color.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('C_Color').AsString);
self.F_ColorNo.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('C_ColorNo').AsString);
self.F_Width.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('C_Width').AsString);
self.F_GramWeight.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('C_GramWeight').AsString);
Fieldbyname('F_Name').value := trim(frmFinTradePlanSel.CDS_1.Fieldbyname('F_Name').AsString);
Fieldbyname('F_Pattern').value := trim(frmFinTradePlanSel.CDS_1.Fieldbyname('F_Pattern').AsString);
Fieldbyname('F_ColorNo').value := trim(frmFinTradePlanSel.CDS_1.Fieldbyname('F_ColorNo').AsString);
Fieldbyname('F_Width').value := trim(frmFinTradePlanSel.CDS_1.Fieldbyname('F_Width').AsString);
Fieldbyname('F_GramWeight').value := trim(frmFinTradePlanSel.CDS_1.Fieldbyname('F_GramWeight').AsString);
Fieldbyname('F_Color').value := trim(frmFinTradePlanSel.CDS_1.Fieldbyname('F_Color').AsString);
end;
end;
end;
finally
@ -380,6 +418,39 @@ begin
end;
end;
procedure TfrmReceivableInput.ConNoPropertiesChange(Sender: TObject);
begin
with ADO2 do
begin
Filtered := False;
Close;
SQL.Clear;
sql.Add(' select * from Finance_Flow where ConNo=''' + Trim(ConNo.Text) + '''');
Open;
end;
SCreateCDS(ADO2, CDS_2);
SInitCDSData(ADO2, CDS_2);
if CDS_2.IsEmpty then
begin
with CDS_2 do
begin
while not eof do
begin
CDS_1.Append;
CDS_1.FieldByName('F_Name').AsString := FieldByName('F_Name').AsString;
CDS_1.FieldByName('F_ColorNo').AsString := FieldByName('F_ColorNo').AsString;
CDS_1.FieldByName('F_Color').AsString := FieldByName('F_Color').AsString;
CDS_1.FieldByName('Currency').AsString := FieldByName('Currency').AsString;
CDS_1.FieldByName('Qty').AsString := FieldByName('Qty').AsString;
CDS_1.FieldByName('QtyUnit').AsString := FieldByName('QtyUnit').AsString;
CDS_1.post;
Next;
end;
end;
end;
end;
procedure TfrmReceivableInput.FFAbstractPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
fsj: string;
@ -442,13 +513,20 @@ begin
FCTType := '通用';
if ShowModal = 1 then
begin
self.F_Code.Text := Trim(frmClothInfoSel.CDS_1.fieldbyname('C_Code').AsString);
self.F_Name.Text := Trim(frmClothInfoSel.CDS_1.fieldbyname('C_Name').AsString);
self.F_Pattern.Text := Trim(frmClothInfoSel.CDS_1.fieldbyname('C_Pattern').AsString);
self.F_Color.Text := Trim(frmClothInfoSel.CDS_1.fieldbyname('C_Color').AsString);
self.F_ColorNo.Text := Trim(frmClothInfoSel.CDS_1.fieldbyname('C_ColorNo').AsString);
self.F_Width.Text := Trim(frmClothInfoSel.CDS_1.fieldbyname('C_Width').AsString);
self.F_GramWeight.Text := Trim(frmClothInfoSel.CDS_1.fieldbyname('C_GramWeight').AsString);
with frmFinTradePlanSel.CDS_1 do
begin
self.F_Code.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Code').AsString);
Fieldbyname('F_Name').value := trim(frmFinTradePlanSel.CDS_1.Fieldbyname('F_Name').AsString);
Fieldbyname('F_Pattern').value := trim(frmFinTradePlanSel.CDS_1.Fieldbyname('F_Pattern').AsString);
Fieldbyname('F_ColorNo').value := trim(frmFinTradePlanSel.CDS_1.Fieldbyname('F_ColorNo').AsString);
Fieldbyname('F_Width').value := trim(frmFinTradePlanSel.CDS_1.Fieldbyname('F_Width').AsString);
Fieldbyname('F_GramWeight').value := trim(frmFinTradePlanSel.CDS_1.Fieldbyname('F_GramWeight').AsString);
Fieldbyname('F_Color').value := trim(frmFinTradePlanSel.CDS_1.Fieldbyname('F_Color').AsString);
end;
end;
end;
finally
@ -509,6 +587,8 @@ begin
FieldByName('OppParentCoNo').Value := Trim(OppParentCoName.Properties.LookupItems.Text);
FieldByName('FFID').Value := Trim(MaxId);
RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 0);
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Finance_Flow', 0);
Post;
end;
@ -522,9 +602,41 @@ begin
end;
end;
procedure TfrmReceivableInput.ScrollBox1Click(Sender: TObject);
//procedure TfrmReceivableInput.ScrollBox1Click(Sender: TObject);
//begin
// HJJE();
//end;
procedure TfrmReceivableInput.ToolButton1Click(Sender: TObject);
begin
HJJE();
with CDS_1 do
begin
Append;
FieldByName('QtyUnit').Value := 'Kg';
FieldByName('Amount').Value := 0;
FieldByName('Qty').Value := 0;
FieldByName('Price').Value := 0;
FieldByName('Currency').Value := 'CNY';
Post;
end;
end;
procedure TfrmReceivableInput.ToolButton2Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
exit;
if application.MessageBox('确定要删除吗', '提示', 1) = 2 then
exit;
with ADOQueryTemp do
begin
close;
sql.clear;
sql.add('delete from Finance_Flow where FFID=''' + trim(CDS_1.fieldbyname('FFID').asstring) + ''' ');
execsql;
end;
CDS_1.delete;
end;
procedure TfrmReceivableInput.ToolButton3Click(Sender: TObject);
@ -540,10 +652,11 @@ begin
Application.MessageBox('我方单位不能为空!', '提示', 0);
Exit;
end;
if Trim(Currency.Text) = '' then
if CDS_1.Locate('Currency', null, []) then
begin
Application.MessageBox('±ÒÖÖ²»ÄÜΪ¿Õ!', 'Ìáʾ', 0);
Exit;
application.MessageBox('币种不能为空', '提示');
exit;
end;
if SaveData() then
begin
@ -552,5 +665,66 @@ begin
end;
end;
procedure TfrmReceivableInput.Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
var
FValue: string;
FBounds: TRect;
begin
if not (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
Exit;
// 计算行号（从 1 开始）
FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1);
// 绘制背景和边框
FBounds := AViewInfo.ContentBounds;
ACanvas.FillRect(FBounds);
ACanvas.DrawComplexFrame(FBounds, clBtnHighlight, clBtnShadow, [bLeft, bBottom, bRight], 1);
// 绘制文本
InflateRect(FBounds, -3, -2);
ACanvas.Font.Color := clWhite;
ACanvas.Brush.Style := bsClear;
ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop);
ADone := True;
end;
procedure TfrmReceivableInput.v1QtyPropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
FQty, FPrice, FAmount: double;
begin
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := Trim(mvalue);
Post;
FQty := FieldbyName('Qty').AsFloat;
FPrice := FieldByName('price').AsFloat;
end;
FAmount := strtofloat(format('%.2f', [FQty * FPrice]));
with CDS_1 do
begin
Edit;
FieldByName('Amount').Value := FAmount;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
end.

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

@ -1,7 +1,7 @@
[ExpressSkins]
Default=0
Default=1
ShowNotifications=1
Enabled=1
Enabled=0
dxSkinBasic=1
dxSkinBlack=1
dxSkinBlue=1

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

File diff suppressed because it is too large Load Diff

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

@ -263,6 +263,98 @@ type
ToolButton9: TToolButton;
Label23: TLabel;
C_Code: TcxTextEdit;
cxTextEdit1: TcxTextEdit;
cxTextEdit2: TcxTextEdit;
cxTextEdit3: TcxTextEdit;
cxTextEdit4: TcxTextEdit;
cxTextEdit5: TcxTextEdit;
cxTextEdit6: TcxTextEdit;
cxTextEdit7: TcxTextEdit;
cxDateEdit1: TcxDateEdit;
cxTextEdit8: TcxTextEdit;
cxTextEdit9: TcxTextEdit;
cxTextEdit10: TcxTextEdit;
Label26: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Label49: TLabel;
Panel2: TPanel;
Memo1: TMemo;
Label50: TLabel;
cxDateEdit2: TcxDateEdit;
cxDateEdit3: TcxDateEdit;
cxDateEdit4: TcxDateEdit;
cxTextEdit11: TcxTextEdit;
cxTextEdit12: TcxTextEdit;
cxTextEdit13: TcxTextEdit;
Label71: TLabel;
Label72: TLabel;
Label73: TLabel;
Label74: TLabel;
Label75: TLabel;
Label76: TLabel;
Label77: TLabel;
cxComboBox1: TcxComboBox;
Label78: TLabel;
cxComboBox2: TcxComboBox;
cxTextEdit14: TcxTextEdit;
Label79: TLabel;
Label80: TLabel;
cxTextEdit15: TcxTextEdit;
Label81: TLabel;
cxTextEdit16: TcxTextEdit;
Label82: TLabel;
Label83: TLabel;
cxTextEdit17: TcxTextEdit;
Label84: TLabel;
Label85: TLabel;
cxTextEdit18: TcxTextEdit;
Memo2: TMemo;
Label86: TLabel;
Label87: TLabel;
Label88: TLabel;
cxTextEdit19: TcxTextEdit;
cxTextEdit20: TcxTextEdit;
cxTextEdit21: TcxTextEdit;
cxTextEdit22: TcxTextEdit;
cxTextEdit23: TcxTextEdit;
Label89: TLabel;
Label90: TLabel;
Label91: TLabel;
cxTextEdit24: TcxTextEdit;
Label92: TLabel;
cxTextEdit25: TcxTextEdit;
Label94: TLabel;
Label95: TLabel;
cxComboBox3: TcxComboBox;
Label96: TLabel;
Label97: TLabel;
CheckBox1: TCheckBox;
Label98: TLabel;
cxTextEdit26: TcxTextEdit;
Label99: TLabel;
Label100: TLabel;
Label101: TLabel;
Label103: TLabel;
cxTextEdit28: TcxTextEdit;
cxTextEdit30: TcxTextEdit;
Label93: TLabel;
cxTextEdit27: TcxTextEdit;
Label102: TLabel;
Label104: TLabel;
Label105: TLabel;
Label106: TLabel;
Label107: TLabel;
cxTextEdit29: TcxTextEdit;
cxTextEdit31: TcxTextEdit;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -314,6 +406,7 @@ type
procedure TallyerPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure TallyerDblClick(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
private
FSCXDH: string;
procedure InitData();
@ -1500,6 +1593,8 @@ begin
end;
end;
procedure TfrmTradePlanInPut.cxDBImage1DblClick(Sender: TObject);
begin
if TcxDBImage(Sender).Picture.Height = 0 then

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

@ -15,23 +15,7 @@ uses
IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
U_BaseList, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxScrollbarAnnotations, dxBarBuiltInMenu, IdExplicitTLSClientServerBase,
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;
FrameDateSel, cxProgressBar;
type
TfrmTradePlanList = class(TfrmBaseList)

7
T02贸易汇总仓库/U_ItemizedListInPut.dfm
View File

@ -7,8 +7,8 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Font.Charset = GB2312_CHARSET
Font.Height = -16
Position = poMainFormCenter
ExplicitWidth = 1248
ExplicitHeight = 624
ExplicitWidth = 1256
ExplicitHeight = 632
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
@ -133,6 +133,8 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Align = alClient
PopupMenu = PopupMenu2
TabOrder = 0
ExplicitLeft = 2
ExplicitTop = 5
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
OnMouseDown = Tv1MouseDown
@ -353,7 +355,6 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Ctl3D = False
ParentCtl3D = False
TabOrder = 3
ExplicitTop = 24
object Label3: TLabel
Left = 377
Top = 11

4
T02贸易汇总仓库/U_ItemizedListList.dfm
View File

@ -9,8 +9,8 @@ inherited frmItemizedListList: TfrmItemizedListList
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitWidth = 1548
ExplicitHeight = 767
ExplicitWidth = 1556
ExplicitHeight = 775
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]

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

@ -559,6 +559,15 @@ inherited frmMachRollMain: TfrmMachRollMain
TabOrder = 31
OnClick = Button1Click
end
object ToolButton2: TButton
Left = 309
Top = 388
Width = 150
Height = 68
Caption = #25171#21360#24211#23384#26631#31614
TabOrder = 32
OnClick = ToolButton2Click
end
end
object Panel_right: TPanel [1]
Left = 499
@ -886,7 +895,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 131
ButtonWidth = 83
Caption = 'ToolBar1'
DoubleBuffered = False
EdgeInner = esNone
@ -905,23 +914,15 @@ inherited frmMachRollMain: TfrmMachRollMain
OnClick = ToolButton3Click
end
object Trolldel: TToolButton
Left = 71
Left = 63
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TrolldelClick
end
object ToolButton2: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #25171#21360#24211#23384#26631#31614
ImageIndex = 21
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 277
Left = 126
Top = 0
AutoSize = True
Caption = #25171#21367#35774#32622
@ -929,14 +930,14 @@ inherited frmMachRollMain: TfrmMachRollMain
OnClick = ToolButton1Click
end
object Tlog: TToolButton
Left = 380
Left = 213
Top = 0
AutoSize = True
Caption = #26085#24535
ImageIndex = 30
end
object ToolButton8: TToolButton
Left = 451
Left = 276
Top = 0
AutoSize = True
Caption = #20851#38381
@ -966,14 +967,13 @@ inherited frmMachRollMain: TfrmMachRollMain
TabOrder = 0
ExplicitLeft = 4
ExplicitTop = 23
ExplicitWidth = 311
ExplicitHeight = 206
ExplicitWidth = 319
ExplicitHeight = 246
inherited dxPanel1: TdxPanel
Width = 319
Height = 246
ExplicitTop = -8
ExplicitWidth = 311
ExplicitHeight = 261
ExplicitWidth = 319
ExplicitHeight = 246
inherited SpeedButton1: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton1Click
end

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

@ -152,10 +152,10 @@ type
ToolBar2: TToolBar;
ToolButton3: TToolButton;
Trolldel: TToolButton;
ToolButton2: TToolButton;
ToolButton1: TToolButton;
Tlog: TToolButton;
ToolButton8: TToolButton;
ToolButton2: TButton;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);

5
T05贸易门市管理/TradeMarket.dpr
View File

@ -41,7 +41,10 @@ uses
U_TradeDispatchedList in 'U_TradeDispatchedList.pas' {frmTradeDispatchedList},
U_TradeMarketDisSel in 'U_TradeMarketDisSel.pas' {frmTradeMarketDisSel},
U_ComContactSel in '..\A00通用窗体\U_ComContactSel.pas' {frmComContactSel},
U_ProgressUpdate in '..\A00通用方法\U_ProgressUpdate.pas';
U_ProgressUpdate in '..\A00通用方法\U_ProgressUpdate.pas',
U_RPFun in '..\..\..\public10\ThreeFun\Fun\U_RPFun.pas',
U_TradeMarketQtyInPut in 'U_TradeMarketQtyInPut.pas',
U_ItemizedListQtyInPut in '..\T02贸易汇总仓库\U_ItemizedListQtyInPut.pas' {frmItemizedListQtyInPut};
{$R *.res}

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

@ -233,6 +233,12 @@
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用方法\U_ProgressUpdate.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_RPFun.pas"/>
<DCCReference Include="U_TradeMarketQtyInPut.pas"/>
<DCCReference Include="..\T02贸易汇总仓库\U_ItemizedListQtyInPut.pas">
<Form>frmItemizedListQtyInPut</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

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

@ -1,7 +1,7 @@
[ExpressSkins]
Default=0
Default=1
ShowNotifications=1
Enabled=1
Enabled=0
dxSkinsDefaultPainters=1
dxSkinBasic=1
dxSkinBlack=1

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

@ -75,7 +75,8 @@ begin
pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// DParameters1:='高权限';
Parameters1 := '管理';
//Parameters1 := '管理';
Parameters1 := '查询';
// Parameters2 := '梭织';
Parameters4 := '新余';
DCode := 'ADMIN';

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

@ -8,6 +8,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Font.Height = -16
Position = poMainFormCenter
WindowState = wsMaximized
OnClose = FormClose
ExplicitWidth = 1937
ExplicitHeight = 775
PixelsPerInch = 96
@ -54,15 +55,37 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
ImageIndex = 7
OnClick = TBCloseClick
end
object TBAdd: TToolButton
Left = 268
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 2
OnClick = TBAddClick
end
object ToolButton6: TToolButton
Left = 339
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 6
end
object TBEdit: TToolButton
Left = 410
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
end
end
object ToolBar2: TToolBar [1]
Tag = 1
Left = 0
Top = 193
Width = 1921
Height = 24
Height = 30
ButtonHeight = 30
ButtonWidth = 67
ButtonWidth = 99
Caption = 'ToolBar1'
EdgeInner = esNone
EdgeOuter = esNone
@ -86,12 +109,19 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
ImageIndex = 6
OnClick = ToolButton2Click
end
object ToolButton5: TToolButton
Left = 142
Top = 0
Caption = #19968#38190#26367#25442
ImageIndex = 30
OnClick = ToolButton5Click
end
end
object Panel2: TPanel [2]
Left = 0
Top = 217
Top = 223
Width = 1921
Height = 519
Height = 513
Align = alClient
Caption = 'Panel2'
TabOrder = 2
@ -99,7 +129,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Left = 1
Top = 1
Width = 1633
Height = 517
Height = 511
Align = alClient
Caption = 'Panel2'
TabOrder = 0
@ -107,13 +137,17 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Left = 1
Top = 1
Width = 1631
Height = 515
Height = 509
Align = alClient
TabOrder = 0
ExplicitLeft = -4
ExplicitTop = -1
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
@ -201,7 +235,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Properties.ListSource = DS_PM
Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 77
Width = 149
end
object v1PRTColor: TcxGridDBColumn
Caption = #39068#33394
@ -238,7 +272,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Properties.ListSource = DS_YS
Properties.OnEditValueChanged = Tv1Column12PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 77
Width = 168
end
object Tv1Column9: TcxGridDBColumn
Caption = #35268#26684
@ -290,14 +324,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
HeaderAlignmentHorz = taCenter
Width = 77
end
object Tv1Column8: TcxGridDBColumn
Caption = #24211#23384#21333#20301
DataBinding.FieldName = 'TMSUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1Column4: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
@ -305,6 +331,35 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
HeaderAlignmentHorz = taCenter
Width = 77
end
object Tv1Column21: TcxGridDBColumn
Caption = #21442#32771#20215#26684
DataBinding.FieldName = 'referencePrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 98
end
object Tv1Column22: TcxGridDBColumn
Caption = #21382#21490#20215#26684
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 83
end
object Tv1Column8: TcxGridDBColumn
Caption = #22791#36135#21333#20301
DataBinding.FieldName = 'TMSUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1Column20: TcxGridDBColumn
Tag = 22
Caption = #24403#21069#24211#23384
DataBinding.FieldName = 'StkQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 98
end
object Tv1Column6: TcxGridDBColumn
Caption = #21253#32568#36153
DataBinding.FieldName = 'GangFee'
@ -360,6 +415,15 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
HeaderAlignmentHorz = taCenter
Width = 77
end
object Tv1Column19: TcxGridDBColumn
Tag = 2
Caption = #20986#24211#25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 89
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@ -370,7 +434,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Left = 1634
Top = 1
Width = 286
Height = 517
Height = 511
Align = alRight
Caption = 'Panel4'
TabOrder = 1
@ -407,7 +471,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Left = 1
Top = 42
Width = 284
Height = 474
Height = 468
Align = alClient
Caption = #21452#20987#21024#38500#26126#32454#20449#24687
TabOrder = 1
@ -415,7 +479,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Left = 2
Top = 23
Width = 280
Height = 449
Height = 443
Align = alClient
TabOrder = 0
object TvMX: TcxGridDBTableView
@ -460,7 +524,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
OptionsView.IndicatorWidth = 33
object cxGridDBColumn8: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.FieldName = 'Qty1'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
@ -666,6 +730,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Width = 200
end
object CustName: TcxMRUEdit
Tag = 2
Left = 122
Top = 15
Properties.ImmediatePost = True
@ -876,7 +941,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
OnClick = N5Click
end
object N1: TMenuItem
Caption = #20445#23384#21518#31435#21363#23457#26680
Caption = #20445#23384#21518#31435#21363#23436#25104#13#10
OnClick = N1Click
end
object N2: TMenuItem

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

@ -130,6 +130,14 @@ type
N5: TMenuItem;
Label19: TLabel;
CONTACT: TcxButtonEdit;
Tv1Column19: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
ToolButton5: TToolButton;
Tv1Column21: TcxGridDBColumn;
Tv1Column22: TcxGridDBColumn;
TBAdd: TToolButton;
ToolButton6: TToolButton;
TBEdit: TToolButton;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -170,6 +178,11 @@ type
procedure N5Click(Sender: TObject);
procedure CustNameMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure CustNamePropertiesCloseUp(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure TBAddClick(Sender: TObject);
private
FSCXDH: string;
procedure InitData();
@ -184,12 +197,14 @@ type
{ Private declarations }
public
PState, CopyInt, PriceFlag: Integer;
FTMMID, FFTMMID, FTMMNo, MTMSId: string;
FTMMID, FTMMNo, MTMSId: string;
FXS: Integer;
btnFlag: Integer;
canshu1, canshu4: string;
fFlileFlag: string;
fordtype: string;
FName, FColor, FColorNo: string;
FTIMID: string;
{ Public declarations }
end;
@ -202,7 +217,7 @@ implementation
uses
U_DataLink, U_ZDYHelp, U_ZDYHelpSel, U_RTFun, U_CompanySel, U_PictureUpload,
U_ProgressUpdate, U_ClothInfoSel, U_ComContactSel, U_TradeMarketList,
U_LabelPrint;
U_LabelPrint, U_TradeMarketQtyInPut;
{$R *.dfm}
@ -274,6 +289,19 @@ begin
result := str1;
end;
procedure TfrmTradeMarketInPut.TBAddClick(Sender: TObject);
begin
CDS_1.Close;
InitData();
SClearData(ScrollBox1, 2); //清空容器中控件的内容
CustName.Text := '';
if CDS_1.IsEmpty then
begin
AddLine();
end;
end;
procedure TfrmTradeMarketInPut.TBCloseClick(Sender: TObject);
begin
@ -308,16 +336,20 @@ begin
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Market_Sub where 1=1 ');
sql.Add(' select A.*,StkQty = isnull(B.StkQty,0),C.QTY from Trade_Market_Sub A left join Bs_Cloth_IO B on A.C_Code=B.C_Code ');
SQL.ADD('left join Trade_Market_Sub_Qty C on A.TMSID=C.TMSID');
SQL.adD('where 1=1 ');
if PState = 1 then
begin
sql.Add(' and TMMID=''' + Trim(FTMMID) + '''');
sql.Add(' and C.TMMID=''' + Trim(FTMMID) + '''');
end;
if PState = 0 then
begin
sql.Add(' and 1<>1');
end;
ShowMessage(SQL.TEXT);
Open;
end;
SCreateCDS(ADO_1, CDS_1);
SInitCDSData(ADO_1, CDS_1);
@ -368,6 +400,12 @@ var
begin
end;
procedure TfrmTradeMarketInPut.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := CAFREE;
end;
procedure TfrmTradeMarketInPut.FormCreate(Sender: TObject);
begin
inherited;
@ -429,14 +467,17 @@ begin
begin
Close;
sql.Clear;
sql.Add(' SELECT A.C_Code,A.C_Name,A.qtyunit,B.Price FROM Bs_Cloth_Info A left join Trade_Market_Sub B on A.C_Code=B.C_Code order by HotQty desc ');
sql.Add(' SELECT distinct A.C_Code,A.C_Name,A.qtyunit,A.HotQty,StkQty = SUM(B.StkQty) ');
SQL.ADD(' FROM Bs_Cloth_Info A LEFT JOIN Bs_Cloth_Io B on A.C_Code=B.C_Code');
SQL.add('group by A.C_Code,A.C_Name,A.qtyunit,A.HotQty');
SQL.ADD('order by A.C_Code ');
Open;
end;
with ADO_YS do
begin
Close;
sql.Clear;
sql.Add(' SELECT A.C_Code,B.C_Color,B.C_ColorNo FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID ');
sql.Add(' SELECT distinct A.C_Code,B.C_Color,B.C_ColorNo,B.referencePrice AS Price FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID ');
sql.Add(' where 1=2 ');
Open;
end;
@ -445,14 +486,14 @@ begin
begin
Close;
sql.Clear;
sql.Add(' SELECT C_GYSNAME FROM BS_Cloth_Info_GYSCP ');
sql.Add(' SELECT distinct C_GYSNAME FROM BS_Cloth_Info_GYSCP ');
Open;
end;
with ADO_DanWei do
begin
Close;
sql.Clear;
sql.Add(' SELECT A.C_Code,B.CICUnit FROM Bs_Cloth_Info A inner join Bs_Cloth_Info_Coefficient B on A.BCIID=B.BCIID ');
sql.Add(' SELECT distinct A.C_Code,B.CICUnit FROM Bs_Cloth_Info A inner join Bs_Cloth_Info_Coefficient B on A.BCIID=B.BCIID ');
sql.Add(' where 2=1 ');
Open;
end;
@ -501,8 +542,8 @@ begin
Append;
FieldByName('FillId').Value := Trim(DCode);
FieldByName('Filler').Value := Trim(DName);
if btnFlag = 1 then //±£´æºóÁ¢¼´ÉóºË
FieldByName('status').Value := Trim('9');
if btnFlag = 1 then //保存后立即完成
FieldByName('status').Value := Trim('10');
if btnFlag = 5 then //保存后立即提交
FieldByName('status').Value := Trim('1');
end
@ -554,8 +595,8 @@ begin
else
Edit;
RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Trade_Market_Sub', 0);
RTSetsavedata(ADOCmd, 'Trade_Market_Sub', ScrollBox1, 7);
//RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Trade_Market_Sub_Qty', 2);
//RTSetsavedata(ADOCmd, 'Trade_Market_Sub', ScrollBox1, 7);
FieldByName('TMMID').Value := Trim(maxno);
FieldByName('TMSId').Value := Trim(Smaxno);
Post;
@ -565,6 +606,7 @@ begin
end;
///////////////////// 保存子表 ///////////////////////////
with ADOCmd do
begin
Close;
@ -682,6 +724,21 @@ begin
Application.MessageBox('颜色不能为空!', '提示', 0);
Exit;
end;
if CDS_1.Locate('OrderQty', null, []) then
begin
Application.MessageBox('报单数量不能为空!', '提示', 0);
Exit;
end;
if CDS_1.Locate('OrderUnit', null, []) then
begin
Application.MessageBox('报单单位不能为空!', '提示', 0);
Exit;
end;
if CDS_1.Locate('Price', null, []) then
begin
Application.MessageBox('单价不能为空!', '提示', 0);
Exit;
end;
if not CDS_KH.Locate('CoAbbrName', self.CustName.Text, []) then
begin
Application.MessageBox('客户不存在!', '提示', 0);
@ -854,6 +911,13 @@ begin
end;
procedure TfrmTradeMarketInPut.ToolButton5Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
OneKeyPost(Tv1, CDS_1);
end;
procedure TfrmTradeMarketInPut.edtGYBtnUpClick(Sender: TObject);
var
fsj: string;
@ -935,8 +999,10 @@ begin
begin
Close;
sql.Clear;
sql.Add(' SELECT A.C_Code,B.C_Color,B.C_ColorNo FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID ');
sql.Add(' SELECT DISTINCT A.C_Code,B.C_Color,B.C_ColorNo,B.referencePrice AS Price FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID ');
sql.Add(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
SQL.ADD(' order by B.C_ColorNo');
//ShowMessage(sql.text);
Open;
end;
end;
@ -947,8 +1013,9 @@ begin
begin
Close;
sql.Clear;
sql.Add(' SELECT A.C_Code,B.C_Color,B.C_ColorNo FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID ');
sql.Add(' SELECT DISTINCT A.C_Code,B.C_Color,B.C_ColorNo,B.referencePrice AS Price FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID ');
sql.Add(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
SQL.ADD(' order by B.C_ColorNo');
Open;
end;
end;
@ -1371,6 +1438,45 @@ begin
end;
end;
procedure TfrmTradeMarketInPut.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
var
AColumn: TcxGridColumn;
begin
// 获取被双击的列
AColumn := ACellViewInfo.Item as TcxGridColumn;
// 检查是否双击了 Qty 列（通过列名判断）
if AColumn.Name = 'Tv1Column19' then
begin
if not CDS_1.IsEmpty then
begin
// 获取当前行的相关ID
Self.MTMSId := CDS_1.FieldByName('TMSId').AsString;
Self.FTMMID := CDS_1.FieldByName('TMMId').AsString;
try
frmTradeMarketQtyInPut := TfrmTradeMarketQtyInPut.Create(Application);
with frmTradeMarketQtyInPut do
begin
MTMSId := Self.MTMSId;
FTMMID := Self.FTMMID;
if ShowModal = 1 then
begin
Self.InitMXGrid(Self.MTMSID);
end;
end;
finally
FreeAndNil(frmTradeMarketQtyInPut);
end;
AHandled := True;
end;
end;
end;
procedure TfrmTradeMarketInPut.Tv1Column12PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
@ -1386,6 +1492,7 @@ begin
ADO_YS.Locate('C_ColorNo', mvalue, []);
Edit;
FieldByName('C_Color').Value := ADO_YS.FieldByName('C_Color').Value;
FieldByName('price').Value := ADO_YS.FieldByName('price').Value;
Post;
end;
end;
@ -1470,7 +1577,8 @@ begin
Edit;
FieldByName('C_Code').Value := ADO_PM.FieldByName('C_Code').Value;
FieldByName('TMSUnit').Value := ADO_PM.FieldByName('qtyunit').Value;
FieldByName('price').Value := ADO_PM.FieldByName('price').Value;
FieldByName('StkQty').Value := ADO_PM.FieldByName('StkQty').Value;
Post;
end;
@ -1497,6 +1605,28 @@ begin
end;
procedure TfrmTradeMarketInPut.Tv1DblClick(Sender: TObject);
var
MTMSQID: string;
begin
// try
// frmTradeMarketQtyInPut := TfrmTradeMarketQtyInPut.Create(Application);
// with frmTradeMarketQtyInPut do
// begin
// MTMSId := self.MTMSId;
// FTMMID := Self.FTMMID;
// if ShowModal = 1 then
// begin
//// Self.InitMXGrid(Self.MTMSQID);
// end;
// end;
// finally
// frmTradeMarketQtyInPut.Free;
// end;
end;
procedure TfrmTradeMarketInPut.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
inherited;
@ -1516,8 +1646,10 @@ begin
begin
Close;
sql.Clear;
sql.Add(' SELECT A.C_Code,B.C_Color,B.C_ColorNo FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID ');
sql.Add(' SELECT DISTINCT A.C_Code,B.C_Color,B.C_ColorNo,B.referencePrice AS Price FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID ');
sql.Add(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
SQL.ADD(' order by B.C_ColorNo');
Open;
end;
end;
@ -1528,8 +1660,10 @@ begin
begin
Close;
sql.Clear;
sql.Add(' SELECT A.C_Code,B.C_Color,B.C_ColorNo FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID ');
sql.Add(' SELECT DISTINCT A.C_Code,B.C_Color,B.C_ColorNo,B.referencePrice AS Price FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID ');
sql.Add(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
SQL.ADD(' order by B.C_ColorNo');
Open;
end;
end;

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

@ -103,28 +103,12 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Left = 639
Top = 0
AutoSize = True
Caption = #25552#20132#25764#38144
Caption = #25764#38144#25552#20132
ImageIndex = 11
OnClick = TBTJCXClick
end
object Tchk: TToolButton
Left = 742
Top = 0
AutoSize = True
Caption = #23457#26680
ImageIndex = 12
OnClick = TchkClick
end
object Tnochk: TToolButton
Left = 813
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680
ImageIndex = 11
OnClick = TnochkClick
end
object TWC: TToolButton
Left = 916
Left = 742
Top = 0
AutoSize = True
Caption = #23436#25104
@ -132,7 +116,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TWCClick
end
object TNowc: TToolButton
Left = 987
Left = 813
Top = 0
AutoSize = True
Caption = #25764#38144#23436#25104
@ -140,7 +124,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TNowcClick
end
object ToolButton2: TToolButton
Left = 1090
Left = 916
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -148,7 +132,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 1193
Left = 1019
Top = 0
AutoSize = True
Caption = #23548#20986
@ -156,13 +140,29 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 1264
Left = 1090
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
object TBZF: TToolButton
Left = 1161
Top = 0
AutoSize = True
Caption = #20316#24223
ImageIndex = 31
OnClick = TBZFClick
end
object TBNOZF: TToolButton
Left = 1232
Top = 0
AutoSize = True
Caption = #25764#38144#20316#24223
ImageIndex = 11
OnClick = TBNOZFClick
end
end
object Panel1: TPanel [1]
Left = 0
@ -265,6 +265,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
PopupMenu = PM_1
TabOrder = 3
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick
@ -512,12 +513,12 @@ inherited frmTradeMarketList: TfrmTradeMarketList
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.TabIndex = 2
Properties.Tabs.Strings = (
' '#24453#25552#20132' '
' '#24453#23457#26680' '
' '#24050#23457#26680' '
' '#24050#23436#25104' '
' '#24050#20316#24223' '
' '#20840#37096' ')
OnChange = cxTabControl1Change
ClientRectBottom = 31

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

@ -15,24 +15,7 @@ uses
IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd,
dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore,
dxSkinsDefaultPainters, 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;
dxScrollbarAnnotations, cxProgressBar, FrameDateSel;
type
TfrmTradeMarketList = class(TfrmBaseList)
@ -63,8 +46,6 @@ type
DataSource2: TDataSource;
ToolButton4: TToolButton;
cxTabControl1: TcxTabControl;
Tchk: TToolButton;
Tnochk: TToolButton;
TWC: TToolButton;
TNowc: TToolButton;
ADOQueryImage: TADOQuery;
@ -118,6 +99,8 @@ type
Tv1Column22: TcxGridDBColumn;
Tv1Column23: TcxGridDBColumn;
Tv1Column24: TcxGridDBColumn;
TBZF: TToolButton;
TBNOZF: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -139,8 +122,8 @@ type
procedure TMMNoKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton4Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure TchkClick(Sender: TObject);
procedure TnochkClick(Sender: TObject);
// procedure TchkClick(Sender: TObject);
// procedure TnochkClick(Sender: TObject);
procedure TWCClick(Sender: TObject);
procedure TNowcClick(Sender: TObject);
procedure TBTJClick(Sender: TObject);
@ -157,6 +140,9 @@ type
procedure ToolButton1Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure TBZFClick(Sender: TObject);
procedure TBNOZFClick(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
private
DQdate: TDateTime;
procedure InitGrid();
@ -209,8 +195,8 @@ begin
TBDel.Enabled := False;
TBTJ.Enabled := False;
TBTJCX.Enabled := False;
tchk.Enabled := false;
tnochk.Enabled := false;
// tchk.Enabled := false;
// tnochk.Enabled := false;
TWC.Enabled := False;
TNowc.Enabled := False;
TBDel.Enabled := False;
@ -221,7 +207,6 @@ begin
tbadd.Enabled := True;
TBEdit.Enabled := True;
TBDel.Enabled := True;
TBDel.Enabled := True;
TBTJ.Enabled := True;
btnCopy.Enabled := True;
end;
@ -230,16 +215,17 @@ begin
TBTJCX.Enabled := True;
btnCopy.Enabled := True;
TBDel.Enabled := True;
tchk.Enabled := True;
end;
2:
begin
//tchk.Enabled := True;
TWC.Enabled := True;
btnCopy.Enabled := True;
tnochk.Enabled := True;
end;
3:
// 2:
// begin
//
//
// //tnochk.Enabled := True;
// end;
2:
begin
TNowc.Enabled := True;
btnCopy.Enabled := True;
@ -297,20 +283,21 @@ begin
case cxTabControl1.TabIndex of
0:
begin
SqlStr := SqlStr + ' , @Status=''0'' ';
SqlStr := SqlStr + ' , @Status=''0'' '; //待提交
end;
1:
begin
SqlStr := SqlStr + ' , @Status=''1'' ';
SqlStr := SqlStr + ' , @Status=''1'' '; //待审核
end;
2:
begin
SqlStr := SqlStr + ' , @Status=''9'' ';
SqlStr := SqlStr + ' , @Status=''10'' '; //已完成
end;
3:
begin
SqlStr := SqlStr + ' , @Status=''10'' ';
SqlStr := SqlStr + ' , @Status=''11'' '; //已作废
end;
end;
// ShowMessage(SqlStr);
InitCDSData(ADOQueryMain, Order_Main, Tv1, SqlStr, FilterStr, 'TMMId');
@ -410,6 +397,51 @@ begin
end;
procedure TfrmTradeMarketList.TBNOZFClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
Exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Trade_Market_Main SET status=''10'' ');
sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
sql.Add('values(''贸易布坯出库'' ');
sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add(',''作废'' ');
sql.Add(',' + quotedstr(DName));
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add(') ');
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('计划单撤销作废')));
sql.Add(',' + quotedstr(trim('计划单号：' + trim(Order_Main.FieldByName('TMMNO').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
end;
application.MessageBox('计划单撤销作废成功！', '提示信息');
TBRafresh.Click;
except
application.MessageBox('计划单撤销作废失败！', '提示信息', 0);
end;
end;
procedure TfrmTradeMarketList.TBDelClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
@ -685,6 +717,35 @@ begin
Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTradeMarketList.Tv1DblClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmTradeMarketInPut := TfrmTradeMarketInPut.Create(Application);
with frmTradeMarketInPut do
begin
PState := 1;
FTMMId := Trim(Self.Order_Main.fieldbyname('TMMId').AsString);
ToolBar2.Enabled := False;
TBSave.Enabled := False;
ScrollBox1.Enabled := False;
N2.Visible := False;
frmTradeMarketInPut.fordtype := self.fordtype;
TvMX.OnCellDblClick := nil;
Panel5.Enabled := False;
if ShowModal = 1 then
begin
end;
end;
finally
frmTradeMarketInPut.Free;
end;
end;
procedure TfrmTradeMarketList.ToolButton4Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
@ -713,72 +774,72 @@ begin
InitGrid();
end;
procedure TfrmTradeMarketList.TchkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if cxTabControl1.TabIndex <> 1 then
begin
Application.MessageBox('只能在待审核状态下进行审核操作!', '提示', 0);
Exit;
end;
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
Exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Trade_Market_Main SET status=''9'',chker=''' + trim(DName) + ''',Chktime=getdate() ');
sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('计划单审核')));
sql.Add(',' + quotedstr(trim('计划单号：' + trim(Order_Main.FieldByName('TMMNO').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
end;
//procedure TfrmTradeMarketList.TchkClick(Sender: TObject);
//begin
// if Order_Main.IsEmpty then
// exit;
// if cxTabControl1.TabIndex <> 1 then
// begin
// Application.MessageBox('只能在待审核状态下进行审核操作!', '提示', 0);
// Exit;
// end;
// if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
// Exit;
// try
// with ADOQueryCmd do
// begin
// close;
// sql.Clear;
// sql.Add('update Trade_Market_Main SET status=''9'',chker=''' + trim(DName) + ''',Chktime=getdate() ');
// sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
// sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
// sql.Add(' ' + quotedstr(trim(DName)));
// sql.Add(',getdate() ');
// sql.Add(',' + quotedstr(trim(self.Caption)));
// sql.Add(',' + quotedstr(trim('计划单审核')));
// sql.Add(',' + quotedstr(trim('计划单号：' + trim(Order_Main.FieldByName('TMMNO').AsString))));
// sql.Add(',' + quotedstr(trim('成功')));
// sql.Add(')');
// execsql;
// end;
//
// except
// application.MessageBox('计划单审核失败！', '提示信息', 0);
// end;
// TBRafresh.Click;
//end;
except
application.MessageBox('计划单审核失败！', '提示信息', 0);
end;
TBRafresh.Click;
end;
procedure TfrmTradeMarketList.TnochkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if cxTabControl1.TabIndex <> 2 then
begin
Application.MessageBox('只能在已审核状态下进行审核操作!', '提示', 0);
Exit;
end;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Trade_Market_Main SET status=''1'',chker=null,Chktime=null ');
sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('计划单撤销审核')));
sql.Add(',' + quotedstr(trim('计划单号：' + trim(Order_Main.FieldByName('TMMNO').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
end;
TBRafresh.Click;
except
application.MessageBox('计划单撤销审核失败！', '提示信息', 0);
end;
end;
//procedure TfrmTradeMarketList.TnochkClick(Sender: TObject);
//begin
// if Order_Main.IsEmpty then
// exit;
// if cxTabControl1.TabIndex <> 2 then
// begin
// Application.MessageBox('只能在已审核状态下进行审核操作!', '提示', 0);
// Exit;
// end;
// try
// with ADOQueryCmd do
// begin
// close;
// sql.Clear;
// sql.Add('update Trade_Market_Main SET status=''1'',chker=null,Chktime=null ');
// sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
// sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
// sql.Add(' ' + quotedstr(trim(DName)));
// sql.Add(',getdate() ');
// sql.Add(',' + quotedstr(trim(self.Caption)));
// sql.Add(',' + quotedstr(trim('计划单撤销审核')));
// sql.Add(',' + quotedstr(trim('计划单号：' + trim(Order_Main.FieldByName('TMMNO').AsString))));
// sql.Add(',' + quotedstr(trim('成功')));
// sql.Add(')');
// execsql;
// end;
// TBRafresh.Click;
// except
// application.MessageBox('计划单撤销审核失败！', '提示信息', 0);
// end;
//end;
procedure TfrmTradeMarketList.TWCClick(Sender: TObject);
begin
@ -842,7 +903,7 @@ begin
begin
close;
sql.Clear;
sql.Add('update Trade_Market_Main SET status=''9'' ');
sql.Add('update Trade_Market_Main SET status=''1'' ');
sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
@ -1032,5 +1093,51 @@ begin
WriteCxGrid('指示单列表FF1', Tv1, '生产指示单管理');
end;
procedure TfrmTradeMarketList.TBZFClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
Exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Trade_Market_Main SET status=''11'' ');
sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
sql.Add('values(''贸易布坯出库'' ');
sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add(',''作废'' ');
sql.Add(',' + quotedstr(DName));
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add(') ');
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('计划单作废')));
sql.Add(',' + quotedstr(trim('计划单号：' + trim(Order_Main.FieldByName('TMMNO').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
end;
application.MessageBox('计划单作废成功！', '提示信息');
TBRafresh.Click;
except
application.MessageBox('计划单作废失败！', '提示信息', 0);
end;
end;
end.

261
T05贸易门市管理/U_TradeMarketQtyInPut.dfm Normal file
View File

@ -0,0 +1,261 @@
inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
Left = 67
Top = 126
Caption = #26126#32454#20837#24211#30331#35760
ClientHeight = 676
ClientWidth = 1081
Font.Charset = GB2312_CHARSET
Font.Height = -16
Position = poScreenCenter
OnClose = FormClose
ExplicitWidth = 1097
ExplicitHeight = 715
PixelsPerInch = 96
TextHeight = 21
object pnl1: TPanel [0]
Left = 0
Top = 0
Width = 1081
Height = 676
Align = alClient
Caption = 'pnl1'
TabOrder = 0
object tlb1: TToolBar
Tag = 1
Left = 1
Top = 1
Width = 1079
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeMarket.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = TBSaveClick
end
object btnAdd: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 2
OnClick = btnAddClick
end
object TBClose: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
object btn4: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
end
end
object pnl2: TPanel
Left = 1
Top = 31
Width = 1079
Height = 41
Align = alTop
TabOrder = 1
object Label9: TLabel
Left = 33
Top = 7
Width = 32
Height = 21
Caption = #21305#25968
end
object Label13: TLabel
Left = 193
Top = 7
Width = 32
Height = 21
Caption = #25968#37327
end
object Label1: TLabel
Left = 377
Top = 6
Width = 5
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
end
object inPiece: TcxCurrencyEdit
Left = 71
Top = 3
Properties.AssignedValues.DisplayFormat = True
TabOrder = 0
Width = 98
end
object inQty: TcxCurrencyEdit
Left = 231
Top = 6
Properties.AssignedValues.DisplayFormat = True
TabOrder = 1
OnKeyPress = inQtyKeyPress
Width = 98
end
end
object GroupBox1: TGroupBox
Left = 1
Top = 72
Width = 1079
Height = 603
Align = alClient
Caption = #21452#20987#21024#38500#26126#32454#20449#24687
TabOrder = 2
object cxGrid1: TcxGrid
Left = 2
Top = 23
Width = 1075
Height = 578
Align = alClient
TabOrder = 0
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skCount
Position = spFooter
end
item
Kind = skSum
Position = spFooter
Column = cxGridDBColumn8
end
item
Kind = skCount
end
item
Kind = skSum
Column = cxGridDBColumn8
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = cxGridDBColumn8
end
item
Kind = skCount
Column = cxGridDBColumn8
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 33
object cxGridDBColumn8: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Width = 66
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1
end
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Left = 268
Top = 159
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Left = 368
Top = 119
end
inherited ImageList_new32: TImageList
Left = 376
Top = 303
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 580
Top = 235
DesignInfo = 15401540
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 292
Top = 423
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 340
Top = 415
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Parameters = <>
Left = 512
Top = 135
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 580
Top = 167
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 308
Top = 235
end
object GPM_1: TcxGridPopupMenu
PopupMenus = <>
Left = 512
Top = 235
end
object CDS_LM: TClientDataSet
Aggregates = <>
Params = <>
Left = 536
Top = 435
end
end

348
T05贸易门市管理/U_TradeMarketQtyInPut.pas Normal file
View File

@ -0,0 +1,348 @@
unit U_TradeMarketQtyInPut;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
System.Types, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, ComCtrls,
ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit,
cxTextEdit, StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList,
Vcl.ImgList, ComObj, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils,
cxMaskEdit, cxImageList, cxCurrencyEdit, Vcl.Menus, Clipbrd;
type
TfrmTradeMarketQtyInPut = class(TfrmBaseInput)
DS_1: TDataSource;
CDS_1: TClientDataSet;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
GPM_1: TcxGridPopupMenu;
CDS_LM: TClientDataSet;
pnl1: TPanel;
tlb1: TToolBar;
btn4: TToolButton;
pnl2: TPanel;
inPiece: TcxCurrencyEdit;
Label9: TLabel;
inQty: TcxCurrencyEdit;
Label13: TLabel;
TBSave: TToolButton;
TBClose: TToolButton;
Label1: TLabel;
GroupBox1: TGroupBox;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGridDBColumn8: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
btnAdd: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure FromCoNameDblClick(Sender: TObject);
procedure inQtyKeyPress(Sender: TObject; var Key: Char);
procedure TBCloseClick(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure btnAddClick(Sender: TObject);
procedure Tv1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure Tv1DblClick(Sender: TObject);
private
{ Private declarations }
function SaveData(): Boolean;
function Split(const s: string; Separator: char): TStringDynArray;
public
{ Public declarations }
PMTMSId, PFTMMID: string;
FName, FColor, FColorNo: string;
MTMSId, FTMMID: string;
end;
var
frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut;
implementation
uses
U_DataLink, U_RTFun, U_RPFun;
{$R *.dfm}
// 分割字符串函数
function TfrmTradeMarketQtyInPut.Split(const s: string; Separator: char): TStringDynArray;
var
i, ItemIndex: Integer;
len: Integer;
SeparatorCount: Integer;
Start: Integer;
begin
len := Length(s);
if len = 0 then
begin
Result := nil;
Exit;
end;
// 计算分隔符数量
SeparatorCount := 0;
for i := 1 to len do
if s[i] = Separator then
Inc(SeparatorCount);
SetLength(Result, SeparatorCount + 1);
ItemIndex := 0;
Start := 1;
// 拆分字符串
for i := 1 to len do
begin
if s[i] = Separator then
begin
Result[ItemIndex] := Copy(s, Start, i - Start);
Inc(ItemIndex);
Start := i + 1;
end;
end;
Result[ItemIndex] := Copy(s, Start, len - Start + 1);
end;
procedure TfrmTradeMarketQtyInPut.btnAddClick(Sender: TObject);
begin
if CDS_1.IsEmpty = False then
begin
CopyAddRowCDS(CDS_1);
with CDS_1 do
begin
Edit;
FieldByName('TMSQID').Value := null;
post;
end;
end
else
begin
with CDS_1 do
begin
Append;
//FieldByName('QtyUnit').Value := 'M';
Post;
end;
end;
end;
procedure TfrmTradeMarketQtyInPut.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
function TfrmTradeMarketQtyInPut.SaveData(): Boolean;
var
Maxno, PTMSQID: 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 Trade_Market_Sub_Qty where TMSQID=''' + Trim(CDS_1.fieldbyname('TMSQID').AsString) + '''');
open;
end;
PTMSQID := Trim(ADOQueryTemp.fieldbyname('TMSQID').AsString);
if Trim(PTMSQID) = '' then
begin
if GetLSNo(ADOQueryTemp, Maxno, 'MX', 'Trade_Market_Sub_Qty', 4, 1) = False then
begin
Application.MessageBox('取最大号失败!', '提示', 0);
Exit;
end;
end
else
begin
Maxno := Trim(PTMSQID);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from Trade_Market_Sub_Qty where TMSQID=''' + Trim(Maxno) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(PTMSQID) = '' then
begin
Append;
FieldByName('FillId').Value := Trim(DCode);
FieldByName('Filler').Value := Trim(DName);
FieldByName('TMSQID').Value := Trim(Maxno);
end
else
begin
Edit;
FieldByName('EditId').Value := Trim(DCode);
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
end;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Market_Sub_Qty', 0);
FieldByName('TMSQID').AsString := FieldByName('TMSQID').AsString;
FieldByName('TMSId').AsString := FieldByName('TMSId').AsString;
FieldByName('TMMId').AsString := FieldByName('TMMId').AsString;
FieldByName('Qty').value := StrTofloatDef(inQty.Text, 0);
Post;
end;
Next;
end;
end;
CDS_1.EnableControls;
// with ADOQueryCmd do
// begin
// Close;
// Sql.Clear;
//
// Sql.Add('exec P_BS_Cloth_UpdateByTradeMarket ');
// Sql.Add(' @TIMId=' + quotedstr(Trim(FTMMID)));
// Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
// Sql.Add(',@DName=' + quotedstr(Trim(DName)));
// Open;
// end;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmTradeMarketQtyInPut.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid('大货单', Tv1, '贸易门市管理');
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add(' select A.* from Trade_Market_Sub_Qty A');
sql.Add('where TMSId=''' + Trim(PMTMSId) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_1);
SInitCDSData(ADOQueryTemp, CDS_1);
end;
procedure TfrmTradeMarketQtyInPut.FromCoNameDblClick(Sender: TObject);
begin
TcxButtonEdit(Sender).Text := '';
TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
end;
procedure TfrmTradeMarketQtyInPut.inQtyKeyPress(Sender: TObject; var Key: Char);
var
i: Integer;
MaxNo: string;
begin
if Key = #13 then
begin
with CDS_1 do
begin
DisableControls;
for i := 1 to StrToIntDef(inPiece.Text, 1) do
begin
Append;
FieldByName('Qty').Value := StrTofloatDef(inQty.Text, 0);
// FieldByName('TMSQID').Value := MaxNo;
// FieldByName('TMSId').Value := PMTMSId;
// FieldByName('TMMId').Value := PFTMMId;
Post;
end;
EnableControls;
end;
inPiece.Text := '1';
inQty.Text := '';
end;
end;
procedure TfrmTradeMarketQtyInPut.TBSaveClick(Sender: TObject);
var
Maxno: string;
begin
if CDS_1.Locate('Qty', null, []) = True then
begin
Application.MessageBox('数量不能为空!', '提示', 0);
Exit;
end;
if CDS_1.Locate('Qty', 0, []) = True then
begin
Application.MessageBox('数量不能为0!', '提示', 0);
Exit;
end;
if SaveData() then
begin
Application.MessageBox('保存成功!', '提示', 0);
ModalResult := 1;
end;
end;
procedure TfrmTradeMarketQtyInPut.TBCloseClick(Sender: TObject);
begin
inherited;
Close;
end;
procedure TfrmTradeMarketQtyInPut.Tv1DblClick(Sender: TObject);
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('delete Trade_Market_Sub_Qty where TMSQID=' + quotedstr(Trim(CDS_1.FieldByName('TMSQID').AsString)));
ExecSQL;
end;
CDS_1.Delete;
end;
procedure TfrmTradeMarketQtyInPut.Tv1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
// 检测是否按下 Ctrl+V
if (Key = Ord('V')) and (Shift = [ssCtrl]) then
begin
pasteDatatTocxGrid(Tv1);
end;
end;
end.