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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -2,22 +2,22 @@ inherited frmCustomer: TfrmCustomer
Left = 347 Left = 347
Top = 169 Top = 169
Caption = #23458#25143#36164#26009#31649#29702 Caption = #23458#25143#36164#26009#31649#29702
ClientHeight = 537 ClientHeight = 737
ClientWidth = 1540 ClientWidth = 1589
Color = clBtnFace Color = clBtnFace
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitWidth = 1556 ExplicitWidth = 1605
ExplicitHeight = 576 ExplicitHeight = 776
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1540 Width = 1589
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -30,7 +30,7 @@ inherited frmCustomer: TfrmCustomer
List = True List = True
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 5 TabOrder = 4
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -139,14 +139,14 @@ inherited frmCustomer: TfrmCustomer
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1540 Width = 1589
Height = 62 Height = 62
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
ParentBackground = False ParentBackground = False
ParentColor = True ParentColor = True
TabOrder = 6 TabOrder = 5
object Label3: TLabel object Label3: TLabel
Left = 182 Left = 182
Top = 20 Top = 20
@ -228,14 +228,207 @@ inherited frmCustomer: TfrmCustomer
Width = 120 Width = 120
end end
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 Left = 0
Top = 120 Top = 120
Width = 1540 Width = 1589
Height = 214 Height = 414
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 6
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -419,199 +612,6 @@ inherited frmCustomer: TfrmCustomer
GridView = Tv1 GridView = Tv1
end end
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 inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Company.ADOLink Connection = DataLink_Company.ADOLink
Left = 297 Left = 297
@ -643,7 +643,6 @@ inherited frmCustomer: TfrmCustomer
Top = 187 Top = 187
end end
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 180 Left = 180
Top = 216 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.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error,
FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async,
FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, cxContainer, FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, cxContainer,
dxScrollbarAnnotations, Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, Vcl.Menus, cxProgressBar;
cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI, dxSkinBasic,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
type type
TfrmCustomer = class(TfrmBaseList) TfrmCustomer = class(TfrmBaseList)
@ -48,33 +31,21 @@ type
ADOQueryMain: TADOQuery; ADOQueryMain: TADOQuery;
Label3: TLabel; Label3: TLabel;
CoName: TcxTextEdit; CoName: TcxTextEdit;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
GPM_1: TcxGridPopupMenu; GPM_1: TcxGridPopupMenu;
DS_1: TDataSource; DS_1: TDataSource;
CDS_1: TClientDataSet; CDS_1: TClientDataSet;
btnAdd: TToolButton; btnAdd: TToolButton;
v2Column6: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
v2Column7: TcxGridDBColumn;
Label1: TLabel; Label1: TLabel;
CoCode: TcxTextEdit; CoCode: TcxTextEdit;
v2Column10: TcxGridDBColumn;
btnEdit: TToolButton; btnEdit: TToolButton;
Label2: TLabel; Label2: TLabel;
Saleser: TcxTextEdit; Saleser: TcxTextEdit;
area: TcxTextEdit; area: TcxTextEdit;
Label4: TLabel; Label4: TLabel;
v2Column15: TcxGridDBColumn;
CDS_2: TClientDataSet; CDS_2: TClientDataSet;
DS_2: TDataSource; DS_2: TDataSource;
btnSaleser: TToolButton; btnSaleser: TToolButton;
OpenDialog1: TOpenDialog; OpenDialog1: TOpenDialog;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Panel2: TPanel; Panel2: TPanel;
cxGrid2: TcxGrid; cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView; Tv2: TcxGridDBTableView;
@ -90,22 +61,15 @@ type
btnChk: TToolButton; btnChk: TToolButton;
btnReChk: TToolButton; btnReChk: TToolButton;
btnTallyer: TToolButton; btnTallyer: TToolButton;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
ToolButton1: TToolButton; ToolButton1: TToolButton;
GPM_2: TcxGridPopupMenu; GPM_2: TcxGridPopupMenu;
ToolButton3: TToolButton; ToolButton3: TToolButton;
Tv1Column7: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
ToolButton2: TToolButton; ToolButton2: TToolButton;
Tv1Column8: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Label5: TLabel; Label5: TLabel;
CoAbbrName: TcxTextEdit; CoAbbrName: TcxTextEdit;
PopupMenu1: TPopupMenu; PopupMenu1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
N2: TMenuItem; N2: TMenuItem;
Tv1Column11: TcxGridDBColumn;
DS_3: TDataSource; DS_3: TDataSource;
CDS_3: TClientDataSet; CDS_3: TClientDataSet;
cxGrid3: TcxGrid; cxGrid3: TcxGrid;
@ -114,10 +78,29 @@ type
cxGridLevel3: TcxGridLevel; cxGridLevel3: TcxGridLevel;
Tv2Column2: TcxGridDBColumn; Tv2Column2: TcxGridDBColumn;
Tv2Column3: 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; Tv1Column9: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn;
SetupStore: TToolButton; cxGridLevel1: TcxGridLevel;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -142,6 +125,7 @@ type
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure SetupStoreClick(Sender: TObject); procedure SetupStoreClick(Sender: TObject);
//procedure btnStoreOKClick(Sender: TObject);
private private
fFlileFlag: string; fFlileFlag: string;
{ Private declarations } { Private declarations }
@ -159,7 +143,7 @@ implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CustomerInput, U_CustInput, U_UserSel, U_DataLink, U_RTFun, U_ZDYHelp, U_CustomerInput, U_CustInput, U_UserSel,
U_AttachmentUpload, U_CustImport; U_AttachmentUpload, U_CustImport, U_SelectStore;
{$R *.dfm} {$R *.dfm}
procedure TfrmCustomer.SetStatus(); procedure TfrmCustomer.SetStatus();
@ -218,7 +202,7 @@ begin
end; end;
if Trim(canshu4) = 'ÐÂÓà' then if Trim(canshu4) = 'ÐÂÓà' then
begin begin
SetupStore.Visible:=False; SetupStore.Visible := False;
end; end;
end; end;
@ -528,6 +512,8 @@ end;
procedure TfrmCustomer.SetupStoreClick(Sender: TObject); procedure TfrmCustomer.SetupStoreClick(Sender: TObject);
var var
RTValues: TArray<string>; RTValues: TArray<string>;
StoreName: string;
frmSelectStore: TfrmSelectStore;
begin begin
if CDS_1.IsEmpty then if CDS_1.IsEmpty then
exit; exit;
@ -537,20 +523,27 @@ begin
Application.MessageBox('ÇëÑ¡ÔñÊý¾Ý!', 'Ìáʾ', 0); Application.MessageBox('ÇëÑ¡ÔñÊý¾Ý!', 'Ìáʾ', 0);
Exit; Exit;
end; end;
frmSelectStore := TfrmSelectStore.Create(nil);
try try
with ADOQueryCmd do if frmSelectStore.ShowModal = mrOk then
begin begin
close; StoreName := frmSelectStore.SelectedStore;
sql.Clear; if StoreName = '' then
sql.Add('update BS_Company SET Stores=''新余'' '); Exit;
sql.Add('where EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(RTValues[0]) + ','','') X where BS_Company.CoID=X.RTValue ) ');
execsql; ADOQueryCmd.Close;
end; 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)';
application.MessageBox('设置门店成功！', '提示信息'); ADOQueryCmd.Parameters.ParamByName('StoreName').Value := StoreName;
ADOQueryCmd.Parameters.ParamByName('COIDList').Value := RTValues[0];
ADOQueryCmd.ExecSQL;
Application.MessageBox('设置门店成功！', '提示');
TBRafresh.Click; TBRafresh.Click;
except
application.MessageBox('设置门店失败！', '提示信息', 0);
end; end;
finally
frmSelectStore.Free;
end;
end; end;
procedure TfrmCustomer.btnAddClick(Sender: TObject); procedure TfrmCustomer.btnAddClick(Sender: TObject);
@ -620,11 +613,12 @@ begin
frmUserSel := TfrmUserSel.Create(Application); frmUserSel := TfrmUserSel.Create(Application);
with frmUserSel do with frmUserSel do
begin begin
Fdept := '业务'; //Fdept := '业务部';
FPost := '业务员';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
MSalesId := Trim(CDS_1.fieldbyname('UserID').AsString); MSalesId := Trim(CDS_1.fieldbyname('EECode').AsString);
MSaleser := Trim(CDS_1.fieldbyname('UserName').AsString); MSaleser := Trim(CDS_1.fieldbyname('EEName').AsString);
end; end;
end; end;
finally finally
@ -647,6 +641,32 @@ begin
initgrid(); initgrid();
end; 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); procedure TfrmCustomer.FormCreate(Sender: TObject);
begin begin
inherited; inherited;

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

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

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

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

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] [ExpressSkins]
Default=0 Default=0
ShowNotifications=1 ShowNotifications=1
Enabled=1 Enabled=0
dxSkinsDefaultPainters=1 dxSkinsDefaultPainters=1
dxSkinBasic=1 dxSkinBasic=1
dxSkinBlack=1 dxSkinBlack=1

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

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

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

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

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

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

116
A09财务通用管理/Financial.skincfg
View File

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

1
A09财务通用管理/U_FinTradePlanSel.dfm
View File

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

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

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

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

@ -2,8 +2,8 @@ object frmReceivableInput: TfrmReceivableInput
Left = 261 Left = 261
Top = 149 Top = 149
Caption = #24212#25910#27454#30331#35760 Caption = #24212#25910#27454#30331#35760
ClientHeight = 488 ClientHeight = 757
ClientWidth = 1324 ClientWidth = 1353
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -21,7 +21,7 @@ object frmReceivableInput: TfrmReceivableInput
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1324 Width = 1353
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -51,11 +51,232 @@ object frmReceivableInput: TfrmReceivableInput
OnClick = TBCloseClick OnClick = TBCloseClick
end end
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 object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1324 Width = 1353
Height = 458 Height = 250
Align = alClient Align = alClient
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
@ -64,8 +285,7 @@ object frmReceivableInput: TfrmReceivableInput
Ctl3D = False Ctl3D = False
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 3
OnClick = ScrollBox1Click
object Label2: TLabel object Label2: TLabel
Left = 262 Left = 262
Top = 15 Top = 15
@ -81,19 +301,12 @@ object frmReceivableInput: TfrmReceivableInput
Caption = #32534' '#21495 Caption = #32534' '#21495
end end
object Label7: TLabel object Label7: TLabel
Left = 28 Left = 27
Top = 264 Top = 143
Width = 62 Width = 62
Height = 21 Height = 21
Caption = #22791' '#27880 Caption = #22791' '#27880
end end
object Label1: TLabel
Left = 262
Top = 100
Width = 62
Height = 21
Caption = #21697' '#21517
end
object Label8: TLabel object Label8: TLabel
Left = 762 Left = 762
Top = 57 Top = 57
@ -115,76 +328,6 @@ object frmReceivableInput: TfrmReceivableInput
Height = 21 Height = 21
Caption = #19978#32423#21333#20301 Caption = #19978#32423#21333#20301
end 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 object Label20: TLabel
Left = 762 Left = 762
Top = 15 Top = 15
@ -192,13 +335,6 @@ object frmReceivableInput: TfrmReceivableInput
Height = 21 Height = 21
Caption = #26085' '#26399 Caption = #26085' '#26399
end end
object Label21: TLabel
Left = 28
Top = 228
Width = 62
Height = 21
Caption = #20943' '#20813
end
object Label22: TLabel object Label22: TLabel
Left = 262 Left = 262
Top = 57 Top = 57
@ -221,26 +357,12 @@ object frmReceivableInput: TfrmReceivableInput
Caption = #25688' '#35201 Caption = #25688' '#35201
end end
object Label18: TLabel object Label18: TLabel
Left = 504 Left = 263
Top = 228 Top = 99
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #26159#21542#21547#31246 Caption = #26159#21542#21547#31246
end 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 object Label26: TLabel
Left = 1006 Left = 1006
Top = 15 Top = 15
@ -255,89 +377,6 @@ object frmReceivableInput: TfrmReceivableInput
Height = 21 Height = 21
Caption = #27719' '#29575 Caption = #27719' '#29575
end 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 object OurCoName: TcxButtonEdit
Left = 99 Left = 99
Top = 11 Top = 11
@ -349,7 +388,7 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = OurCoNamePropertiesButtonClick Properties.OnButtonClick = OurCoNamePropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 12 TabOrder = 0
OnDblClick = OurCoNameDblClick OnDblClick = OurCoNameDblClick
Width = 151 Width = 151
end end
@ -364,7 +403,7 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = OppCoNamePropertiesButtonClick Properties.OnButtonClick = OppCoNamePropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 13 TabOrder = 1
OnDblClick = OurCoNameDblClick OnDblClick = OurCoNameDblClick
Width = 159 Width = 159
end end
@ -379,7 +418,7 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = OppParentCoNamePropertiesButtonClick Properties.OnButtonClick = OppParentCoNamePropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 14 TabOrder = 2
OnDblClick = OurCoNameDblClick OnDblClick = OurCoNameDblClick
Width = 151 Width = 151
end end
@ -387,7 +426,7 @@ object frmReceivableInput: TfrmReceivableInput
Left = 835 Left = 835
Top = 11 Top = 11
Properties.ShowTime = False Properties.ShowTime = False
TabOrder = 15 TabOrder = 3
Width = 151 Width = 151
end end
object ConNo: TcxButtonEdit object ConNo: TcxButtonEdit
@ -400,8 +439,9 @@ object frmReceivableInput: TfrmReceivableInput
end> end>
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = ConNoPropertiesButtonClick Properties.OnButtonClick = ConNoPropertiesButtonClick
Properties.OnChange = ConNoPropertiesChange
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 16 TabOrder = 4
OnDblClick = OurCoNameDblClick OnDblClick = OurCoNameDblClick
Width = 151 Width = 151
end end
@ -416,7 +456,7 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = OrderNoPropertiesButtonClick Properties.OnButtonClick = OrderNoPropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 17 TabOrder = 5
OnDblClick = OurCoNameDblClick OnDblClick = OurCoNameDblClick
Width = 159 Width = 159
end end
@ -432,7 +472,7 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = FFAbstractPropertiesButtonClick Properties.OnButtonClick = FFAbstractPropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 18 TabOrder = 6
OnDblClick = OurCoNameDblClick OnDblClick = OurCoNameDblClick
Width = 151 Width = 151
end end
@ -448,73 +488,33 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = FFAbstractPropertiesButtonClick Properties.OnButtonClick = FFAbstractPropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 19 TabOrder = 7
OnDblClick = OurCoNameDblClick OnDblClick = OurCoNameDblClick
Width = 151 Width = 151
end 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 object IsInvoice: TcxComboBox
Left = 578 Left = 337
Top = 224 Top = 95
Properties.DropDownListStyle = lsEditFixedList Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
#26159 #26159
#21542) #21542)
TabOrder = 22 TabOrder = 8
Text = #26159 Text = #26159
Width = 151 Width = 159
end end
object Note: TcxMemo object Note: TcxMemo
Left = 99 Left = 95
Top = 265 Top = 146
TabOrder = 23 TabOrder = 9
Height = 127 Height = 79
Width = 886 Width = 1128
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
end end
object ReconciliationDate: TcxDateEdit object ReconciliationDate: TcxDateEdit
Left = 1076 Left = 1076
Top = 11 Top = 11
Properties.ShowTime = False Properties.ShowTime = False
TabOrder = 26 TabOrder = 10
Width = 151 Width = 151
end end
object F_Code: TcxButtonEdit object F_Code: TcxButtonEdit
@ -528,7 +528,7 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = F_CodePropertiesButtonClick Properties.OnButtonClick = F_CodePropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 27 TabOrder = 11
OnDblClick = OurCoNameDblClick OnDblClick = OurCoNameDblClick
Width = 151 Width = 151
end end
@ -536,7 +536,7 @@ object frmReceivableInput: TfrmReceivableInput
Left = 1074 Left = 1074
Top = 53 Top = 53
Properties.AssignedValues.DisplayFormat = True Properties.AssignedValues.DisplayFormat = True
TabOrder = 28 TabOrder = 12
Width = 150 Width = 150
end end
end end
@ -544,20 +544,48 @@ object frmReceivableInput: TfrmReceivableInput
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 498 Left = 648
Top = 372 Top = 321
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink
Parameters = <> Parameters = <>
Left = 397 Left = 512
Top = 369 Top = 321
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 549 Left = 580
Top = 313 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
end end

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

@ -15,7 +15,7 @@ uses
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer,
cxCurrencyEdit, dxCore, cxDateUtils, cxMemo, dxSkinsCore, cxCurrencyEdit, dxCore, cxDateUtils, cxMemo, dxSkinsCore,
dxSkinsDefaultPainters; dxSkinsDefaultPainters, dxScrollbarAnnotations, cxGroupBox;
type type
TfrmReceivableInput = class(TForm) TfrmReceivableInput = class(TForm)
@ -24,42 +24,49 @@ type
ADOQueryTemp: TADOQuery; ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery; ADOQueryCmd: TADOQuery;
ToolButton3: TToolButton; 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; ScrollBox1: TScrollBox;
Label2: TLabel; Label2: TLabel;
Label6: TLabel; Label6: TLabel;
Label7: TLabel; Label7: TLabel;
Label1: TLabel;
F_Name: TcxTextEdit;
Label8: TLabel; Label8: TLabel;
Label5: TLabel; Label5: TLabel;
Label9: 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; Label20: TLabel;
Deduction: TcxCurrencyEdit;
Label21: TLabel;
Label22: TLabel; Label22: TLabel;
Label23: TLabel; Label23: TLabel;
Label24: TLabel; Label24: TLabel;
Label18: TLabel; Label18: TLabel;
Label26: TLabel;
Label27: TLabel;
OurCoName: TcxButtonEdit; OurCoName: TcxButtonEdit;
OppCoName: TcxButtonEdit; OppCoName: TcxButtonEdit;
OppParentCoName: TcxButtonEdit; OppParentCoName: TcxButtonEdit;
@ -68,20 +75,14 @@ type
OrderNo: TcxButtonEdit; OrderNo: TcxButtonEdit;
FFAbstract: TcxButtonEdit; FFAbstract: TcxButtonEdit;
PayMent: TcxButtonEdit; PayMent: TcxButtonEdit;
QtyUnit: TcxComboBox;
Currency: TcxComboBox;
IsInvoice: TcxComboBox; IsInvoice: TcxComboBox;
Note: TcxMemo; Note: TcxMemo;
Label19: TLabel;
OtherFee1: TcxCurrencyEdit;
F_StyleNo: TcxTextEdit;
Label25: TLabel;
Label26: TLabel;
ReconciliationDate: TcxDateEdit; ReconciliationDate: TcxDateEdit;
F_Code: TcxButtonEdit; F_Code: TcxButtonEdit;
ADOQueryMain: TADOQuery;
Label27: TLabel;
ExchangeRate: TcxCurrencyEdit; ExchangeRate: TcxCurrencyEdit;
CDS_2: TClientDataSet;
DS_2: TDataSource;
ADO2: TADOQuery;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -90,8 +91,8 @@ type
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure PayMentBtnDnClick(Sender: TObject); procedure PayMentBtnDnClick(Sender: TObject);
procedure PayMentBtnUpClick(Sender: TObject); procedure PayMentBtnUpClick(Sender: TObject);
procedure QtyExit(Sender: TObject); //procedure QtyExit(Sender: TObject);
procedure ScrollBox1Click(Sender: TObject); //procedure ScrollBox1Click(Sender: TObject);
procedure OrderNoBtnUpClick(Sender: TObject); procedure OrderNoBtnUpClick(Sender: TObject);
procedure ConNoBtnUpClick(Sender: TObject); procedure ConNoBtnUpClick(Sender: TObject);
procedure OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@ -102,10 +103,16 @@ type
procedure OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure FFAbstractPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure FFAbstractPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure F_CodePropertiesButtonClick(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
{ Private declarations } { Private declarations }
procedure InitGrid(); procedure InitGrid();
procedure HJJE(); // procedure HJJE();
function SaveData(): Boolean; function SaveData(): Boolean;
public public
{ Public declarations } { Public declarations }
@ -123,27 +130,27 @@ uses
{$R *.dfm} {$R *.dfm}
procedure TfrmReceivableInput.HJJE(); //procedure TfrmReceivableInput.HJJE();
var //var
MPrice, MQty, MOtherFee, MOtherFee1, MDeduction, MAmount: double; // MPrice, MQty, MOtherFee, MOtherFee1, MDeduction, MAmount: double;
begin //begin
MPrice := Strtofloatdef(Price.Text, 0); // MPrice := Strtofloatdef(price.Text, 0);
MQty := Strtofloatdef(Qty.Text, 0); // MQty := Strtofloatdef(Qty.Text, 0);
MOtherFee := Strtofloatdef(OtherFee.Text, 0); // MOtherFee := Strtofloatdef(OtherFee.Text, 0);
MOtherFee1 := Strtofloatdef(OtherFee1.Text, 0); // MOtherFee1 := Strtofloatdef(OtherFee1.Text, 0);
MDeduction := Strtofloatdef(Deduction.Text, 0); // MDeduction := Strtofloatdef(Deduction.Text, 0);
MAmount := Strtofloatdef(Amount.Text, 0); // MAmount := Strtofloatdef(Amount.Text, 0);
//
// if MQty * MPrice >= 0 then //// if MQty * MPrice >= 0 then
begin // begin
MAmount := RoundFloat((MQty * MPrice + MOtherFee + MOtherFee1 - MDeduction), 2); // MAmount := RoundFloat((MQty * MPrice + MOtherFee + MOtherFee1 - MDeduction), 2);
end; // end;
// Price.Text := FloatToStr(MPrice); //// Price.Text := FloatToStr(MPrice);
// Qty.Text := FloatToStr(MQty); //// Qty.Text := FloatToStr(MQty);
// OtherFee.Text := FloatToStr(MOtherFee); //// OtherFee.Text := FloatToStr(MOtherFee);
// Deduction.Text := FloatToStr(MDeduction); //// Deduction.Text := FloatToStr(MDeduction);
Amount.Text := FloatToStr(MAmount); // Amount.Text := FloatToStr(MAmount);
end; //end;
procedure TfrmReceivableInput.InitGrid(); procedure TfrmReceivableInput.InitGrid();
begin begin
@ -158,6 +165,9 @@ begin
sql.Add(' select * from Finance_Flow where FFID=''' + Trim(FFFID) + ''''); sql.Add(' select * from Finance_Flow where FFID=''' + Trim(FFFID) + '''');
Open; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
if not ADOQueryMain.IsEmpty then if not ADOQueryMain.IsEmpty then
begin begin
SCSHData(ADOQueryMain, ScrollBox1, 0); SCSHData(ADOQueryMain, ScrollBox1, 0);
@ -252,17 +262,40 @@ begin
begin begin
with frmFinTradePlanSel.CDS_1 do with frmFinTradePlanSel.CDS_1 do
begin begin
self.ConNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConNo').AsString); self.ConNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConNo').AsString);
self.OrderNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('OrderNo').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_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;
end; end;
@ -332,10 +365,10 @@ begin
end; end;
end; end;
procedure TfrmReceivableInput.QtyExit(Sender: TObject); //procedure TfrmReceivableInput.QtyExit(Sender: TObject);
begin //begin
HJJE(); // HJJE();
end; //end;
procedure TfrmReceivableInput.ConNoBtnUpClick(Sender: TObject); procedure TfrmReceivableInput.ConNoBtnUpClick(Sender: TObject);
begin begin
@ -364,15 +397,20 @@ begin
if Self.FAuthority = '低权限' then if Self.FAuthority = '低权限' then
FAuthority := '拥有者'; FAuthority := '拥有者';
if ShowModal = 1 then if ShowModal = 1 then
begin
with frmFinTradePlanSel.CDS_1 do
begin begin
self.ConNo.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString); self.ConNo.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString);
self.F_Code.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('C_Code').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); Fieldbyname('F_Name').value := trim(frmFinTradePlanSel.CDS_1.Fieldbyname('F_Name').AsString);
self.F_Color.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('C_Color').AsString); Fieldbyname('F_Pattern').value := trim(frmFinTradePlanSel.CDS_1.Fieldbyname('F_Pattern').AsString);
self.F_ColorNo.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('C_ColorNo').AsString); Fieldbyname('F_ColorNo').value := trim(frmFinTradePlanSel.CDS_1.Fieldbyname('F_ColorNo').AsString);
self.F_Width.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('C_Width').AsString); Fieldbyname('F_Width').value := trim(frmFinTradePlanSel.CDS_1.Fieldbyname('F_Width').AsString);
self.F_GramWeight.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('C_GramWeight').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;
end; end;
finally finally
@ -380,6 +418,39 @@ begin
end; end;
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); procedure TfrmReceivableInput.FFAbstractPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var var
fsj: string; fsj: string;
@ -442,13 +513,20 @@ begin
FCTType := '通用'; FCTType := '通用';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
self.F_Code.Text := Trim(frmClothInfoSel.CDS_1.fieldbyname('C_Code').AsString); with frmFinTradePlanSel.CDS_1 do
self.F_Name.Text := Trim(frmClothInfoSel.CDS_1.fieldbyname('C_Name').AsString); begin
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_Code.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Code').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); Fieldbyname('F_Name').value := trim(frmFinTradePlanSel.CDS_1.Fieldbyname('F_Name').AsString);
self.F_GramWeight.Text := Trim(frmClothInfoSel.CDS_1.fieldbyname('C_GramWeight').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;
end; end;
finally finally
@ -509,6 +587,8 @@ begin
FieldByName('OppParentCoNo').Value := Trim(OppParentCoName.Properties.LookupItems.Text); FieldByName('OppParentCoNo').Value := Trim(OppParentCoName.Properties.LookupItems.Text);
FieldByName('FFID').Value := Trim(MaxId); FieldByName('FFID').Value := Trim(MaxId);
RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 0); RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 0);
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Finance_Flow', 0);
Post; Post;
end; end;
@ -522,9 +602,41 @@ begin
end; end;
end; end;
procedure TfrmReceivableInput.ScrollBox1Click(Sender: TObject); //procedure TfrmReceivableInput.ScrollBox1Click(Sender: TObject);
//begin
// HJJE();
//end;
procedure TfrmReceivableInput.ToolButton1Click(Sender: TObject);
begin 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; end;
procedure TfrmReceivableInput.ToolButton3Click(Sender: TObject); procedure TfrmReceivableInput.ToolButton3Click(Sender: TObject);
@ -540,10 +652,11 @@ begin
Application.MessageBox('我方单位不能为空!', '提示', 0); Application.MessageBox('我方单位不能为空!', '提示', 0);
Exit; Exit;
end; end;
if Trim(Currency.Text) = '' then
if CDS_1.Locate('Currency', null, []) then
begin begin
Application.MessageBox('±ÒÖÖ²»ÄÜΪ¿Õ!', 'Ìáʾ', 0); application.MessageBox('币种不能为空', '提示');
Exit; exit;
end; end;
if SaveData() then if SaveData() then
begin begin
@ -552,5 +665,66 @@ begin
end; end;
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. end.

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

@ -1,7 +1,7 @@
[ExpressSkins] [ExpressSkins]
Default=0 Default=1
ShowNotifications=1 ShowNotifications=1
Enabled=1 Enabled=0
dxSkinBasic=1 dxSkinBasic=1
dxSkinBlack=1 dxSkinBlack=1
dxSkinBlue=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; ToolButton9: TToolButton;
Label23: TLabel; Label23: TLabel;
C_Code: TcxTextEdit; 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 TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -314,6 +406,7 @@ type
procedure TallyerPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TallyerPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure TallyerDblClick(Sender: TObject); procedure TallyerDblClick(Sender: TObject);
procedure ToolButton9Click(Sender: TObject); procedure ToolButton9Click(Sender: TObject);
private private
FSCXDH: string; FSCXDH: string;
procedure InitData(); procedure InitData();
@ -1500,6 +1593,8 @@ begin
end; end;
end; end;
procedure TfrmTradePlanInPut.cxDBImage1DblClick(Sender: TObject); procedure TfrmTradePlanInPut.cxDBImage1DblClick(Sender: TObject);
begin begin
if TcxDBImage(Sender).Picture.Height = 0 then 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, IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
U_BaseList, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, U_BaseList, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxScrollbarAnnotations, dxBarBuiltInMenu, IdExplicitTLSClientServerBase, dxScrollbarAnnotations, dxBarBuiltInMenu, IdExplicitTLSClientServerBase,
FrameDateSel, cxProgressBar, dxSkinsDefaultPainters, dxSkinsCore, dxSkinBasic, FrameDateSel, cxProgressBar;
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue;
type type
TfrmTradePlanList = class(TfrmBaseList) TfrmTradePlanList = class(TfrmBaseList)

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

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

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

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

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

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

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

@ -152,10 +152,10 @@ type
ToolBar2: TToolBar; ToolBar2: TToolBar;
ToolButton3: TToolButton; ToolButton3: TToolButton;
Trolldel: TToolButton; Trolldel: TToolButton;
ToolButton2: TToolButton;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Tlog: TToolButton; Tlog: TToolButton;
ToolButton8: TToolButton; ToolButton8: TToolButton;
ToolButton2: TButton;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); 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_TradeDispatchedList in 'U_TradeDispatchedList.pas' {frmTradeDispatchedList},
U_TradeMarketDisSel in 'U_TradeMarketDisSel.pas' {frmTradeMarketDisSel}, U_TradeMarketDisSel in 'U_TradeMarketDisSel.pas' {frmTradeMarketDisSel},
U_ComContactSel in '..\A00通用窗体\U_ComContactSel.pas' {frmComContactSel}, 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} {$R *.res}

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

@ -233,6 +233,12 @@
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\A00通用方法\U_ProgressUpdate.pas"/> <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"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

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

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

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

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

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

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

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

@ -130,6 +130,14 @@ type
N5: TMenuItem; N5: TMenuItem;
Label19: TLabel; Label19: TLabel;
CONTACT: TcxButtonEdit; CONTACT: TcxButtonEdit;
Tv1Column19: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
ToolButton5: TToolButton;
Tv1Column21: TcxGridDBColumn;
Tv1Column22: TcxGridDBColumn;
TBAdd: TToolButton;
ToolButton6: TToolButton;
TBEdit: TToolButton;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -170,6 +178,11 @@ type
procedure N5Click(Sender: TObject); procedure N5Click(Sender: TObject);
procedure CustNameMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure CustNameMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure CustNamePropertiesCloseUp(Sender: TObject); 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 private
FSCXDH: string; FSCXDH: string;
procedure InitData(); procedure InitData();
@ -184,12 +197,14 @@ type
{ Private declarations } { Private declarations }
public public
PState, CopyInt, PriceFlag: Integer; PState, CopyInt, PriceFlag: Integer;
FTMMID, FFTMMID, FTMMNo, MTMSId: string; FTMMID, FTMMNo, MTMSId: string;
FXS: Integer; FXS: Integer;
btnFlag: Integer; btnFlag: Integer;
canshu1, canshu4: string; canshu1, canshu4: string;
fFlileFlag: string; fFlileFlag: string;
fordtype: string; fordtype: string;
FName, FColor, FColorNo: string;
FTIMID: string;
{ Public declarations } { Public declarations }
end; end;
@ -202,7 +217,7 @@ implementation
uses uses
U_DataLink, U_ZDYHelp, U_ZDYHelpSel, U_RTFun, U_CompanySel, U_PictureUpload, U_DataLink, U_ZDYHelp, U_ZDYHelpSel, U_RTFun, U_CompanySel, U_PictureUpload,
U_ProgressUpdate, U_ClothInfoSel, U_ComContactSel, U_TradeMarketList, U_ProgressUpdate, U_ClothInfoSel, U_ComContactSel, U_TradeMarketList,
U_LabelPrint; U_LabelPrint, U_TradeMarketQtyInPut;
{$R *.dfm} {$R *.dfm}
@ -274,6 +289,19 @@ begin
result := str1; result := str1;
end; 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); procedure TfrmTradeMarketInPut.TBCloseClick(Sender: TObject);
begin begin
@ -308,16 +336,20 @@ begin
begin begin
Close; Close;
SQL.Clear; 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 if PState = 1 then
begin begin
sql.Add(' and TMMID=''' + Trim(FTMMID) + ''''); sql.Add(' and C.TMMID=''' + Trim(FTMMID) + '''');
end; end;
if PState = 0 then if PState = 0 then
begin begin
sql.Add(' and 1<>1'); sql.Add(' and 1<>1');
end; end;
ShowMessage(SQL.TEXT);
Open; Open;
end; end;
SCreateCDS(ADO_1, CDS_1); SCreateCDS(ADO_1, CDS_1);
SInitCDSData(ADO_1, CDS_1); SInitCDSData(ADO_1, CDS_1);
@ -368,6 +400,12 @@ var
begin begin
end; end;
procedure TfrmTradeMarketInPut.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := CAFREE;
end;
procedure TfrmTradeMarketInPut.FormCreate(Sender: TObject); procedure TfrmTradeMarketInPut.FormCreate(Sender: TObject);
begin begin
inherited; inherited;
@ -429,14 +467,17 @@ begin
begin begin
Close; Close;
sql.Clear; 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; Open;
end; end;
with ADO_YS do with ADO_YS do
begin begin
Close; Close;
sql.Clear; 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 '); sql.Add(' where 1=2 ');
Open; Open;
end; end;
@ -445,14 +486,14 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' SELECT C_GYSNAME FROM BS_Cloth_Info_GYSCP '); sql.Add(' SELECT distinct C_GYSNAME FROM BS_Cloth_Info_GYSCP ');
Open; Open;
end; end;
with ADO_DanWei do with ADO_DanWei do
begin begin
Close; Close;
sql.Clear; 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 '); sql.Add(' where 2=1 ');
Open; Open;
end; end;
@ -501,8 +542,8 @@ begin
Append; Append;
FieldByName('FillId').Value := Trim(DCode); FieldByName('FillId').Value := Trim(DCode);
FieldByName('Filler').Value := Trim(DName); FieldByName('Filler').Value := Trim(DName);
if btnFlag = 1 then //±£´æºóÁ¢¼´ÉóºË if btnFlag = 1 then //保存后立即完成
FieldByName('status').Value := Trim('9'); FieldByName('status').Value := Trim('10');
if btnFlag = 5 then //保存后立即提交 if btnFlag = 5 then //保存后立即提交
FieldByName('status').Value := Trim('1'); FieldByName('status').Value := Trim('1');
end end
@ -554,8 +595,8 @@ begin
else else
Edit; Edit;
RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Trade_Market_Sub', 0); RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Trade_Market_Sub', 0);
//RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Trade_Market_Sub_Qty', 2);
RTSetsavedata(ADOCmd, 'Trade_Market_Sub', ScrollBox1, 7); //RTSetsavedata(ADOCmd, 'Trade_Market_Sub', ScrollBox1, 7);
FieldByName('TMMID').Value := Trim(maxno); FieldByName('TMMID').Value := Trim(maxno);
FieldByName('TMSId').Value := Trim(Smaxno); FieldByName('TMSId').Value := Trim(Smaxno);
Post; Post;
@ -565,6 +606,7 @@ begin
end; end;
///////////////////// 保存子表 /////////////////////////// ///////////////////// 保存子表 ///////////////////////////
with ADOCmd do with ADOCmd do
begin begin
Close; Close;
@ -682,6 +724,21 @@ begin
Application.MessageBox('颜色不能为空!', '提示', 0); Application.MessageBox('颜色不能为空!', '提示', 0);
Exit; Exit;
end; 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 if not CDS_KH.Locate('CoAbbrName', self.CustName.Text, []) then
begin begin
Application.MessageBox('客户不存在!', '提示', 0); Application.MessageBox('客户不存在!', '提示', 0);
@ -854,6 +911,13 @@ begin
end; end;
procedure TfrmTradeMarketInPut.ToolButton5Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
OneKeyPost(Tv1, CDS_1);
end;
procedure TfrmTradeMarketInPut.edtGYBtnUpClick(Sender: TObject); procedure TfrmTradeMarketInPut.edtGYBtnUpClick(Sender: TObject);
var var
fsj: string; fsj: string;
@ -935,8 +999,10 @@ begin
begin begin
Close; Close;
sql.Clear; 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(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
SQL.ADD(' order by B.C_ColorNo');
//ShowMessage(sql.text);
Open; Open;
end; end;
end; end;
@ -947,8 +1013,9 @@ begin
begin begin
Close; Close;
sql.Clear; 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(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
SQL.ADD(' order by B.C_ColorNo');
Open; Open;
end; end;
end; end;
@ -1371,6 +1438,45 @@ begin
end; end;
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); procedure TfrmTradeMarketInPut.Tv1Column12PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
@ -1386,6 +1492,7 @@ begin
ADO_YS.Locate('C_ColorNo', mvalue, []); ADO_YS.Locate('C_ColorNo', mvalue, []);
Edit; Edit;
FieldByName('C_Color').Value := ADO_YS.FieldByName('C_Color').Value; FieldByName('C_Color').Value := ADO_YS.FieldByName('C_Color').Value;
FieldByName('price').Value := ADO_YS.FieldByName('price').Value;
Post; Post;
end; end;
end; end;
@ -1470,7 +1577,8 @@ begin
Edit; Edit;
FieldByName('C_Code').Value := ADO_PM.FieldByName('C_Code').Value; FieldByName('C_Code').Value := ADO_PM.FieldByName('C_Code').Value;
FieldByName('TMSUnit').Value := ADO_PM.FieldByName('qtyunit').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; Post;
end; end;
@ -1497,6 +1605,28 @@ begin
end; 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); procedure TfrmTradeMarketInPut.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin begin
inherited; inherited;
@ -1516,8 +1646,10 @@ begin
begin begin
Close; Close;
sql.Clear; 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(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
SQL.ADD(' order by B.C_ColorNo');
Open; Open;
end; end;
end; end;
@ -1528,8 +1660,10 @@ begin
begin begin
Close; Close;
sql.Clear; 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(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
SQL.ADD(' order by B.C_ColorNo');
Open; Open;
end; end;
end; end;

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

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

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

@ -15,24 +15,7 @@ uses
IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg, IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd,
dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore, dxScrollbarAnnotations, cxProgressBar, FrameDateSel;
dxSkinsDefaultPainters, Vcl.DBCtrls, dxSkinBasic, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinXmas2008Blue;
type type
TfrmTradeMarketList = class(TfrmBaseList) TfrmTradeMarketList = class(TfrmBaseList)
@ -63,8 +46,6 @@ type
DataSource2: TDataSource; DataSource2: TDataSource;
ToolButton4: TToolButton; ToolButton4: TToolButton;
cxTabControl1: TcxTabControl; cxTabControl1: TcxTabControl;
Tchk: TToolButton;
Tnochk: TToolButton;
TWC: TToolButton; TWC: TToolButton;
TNowc: TToolButton; TNowc: TToolButton;
ADOQueryImage: TADOQuery; ADOQueryImage: TADOQuery;
@ -118,6 +99,8 @@ type
Tv1Column22: TcxGridDBColumn; Tv1Column22: TcxGridDBColumn;
Tv1Column23: TcxGridDBColumn; Tv1Column23: TcxGridDBColumn;
Tv1Column24: TcxGridDBColumn; Tv1Column24: TcxGridDBColumn;
TBZF: TToolButton;
TBNOZF: TToolButton;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -139,8 +122,8 @@ type
procedure TMMNoKeyPress(Sender: TObject; var Key: Char); procedure TMMNoKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject); procedure cxTabControl1Change(Sender: TObject);
procedure TchkClick(Sender: TObject); // procedure TchkClick(Sender: TObject);
procedure TnochkClick(Sender: TObject); // procedure TnochkClick(Sender: TObject);
procedure TWCClick(Sender: TObject); procedure TWCClick(Sender: TObject);
procedure TNowcClick(Sender: TObject); procedure TNowcClick(Sender: TObject);
procedure TBTJClick(Sender: TObject); procedure TBTJClick(Sender: TObject);
@ -157,6 +140,9 @@ type
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure N5Click(Sender: TObject); procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject); procedure N6Click(Sender: TObject);
procedure TBZFClick(Sender: TObject);
procedure TBNOZFClick(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
private private
DQdate: TDateTime; DQdate: TDateTime;
procedure InitGrid(); procedure InitGrid();
@ -209,8 +195,8 @@ begin
TBDel.Enabled := False; TBDel.Enabled := False;
TBTJ.Enabled := False; TBTJ.Enabled := False;
TBTJCX.Enabled := False; TBTJCX.Enabled := False;
tchk.Enabled := false; // tchk.Enabled := false;
tnochk.Enabled := false; // tnochk.Enabled := false;
TWC.Enabled := False; TWC.Enabled := False;
TNowc.Enabled := False; TNowc.Enabled := False;
TBDel.Enabled := False; TBDel.Enabled := False;
@ -221,7 +207,6 @@ begin
tbadd.Enabled := True; tbadd.Enabled := True;
TBEdit.Enabled := True; TBEdit.Enabled := True;
TBDel.Enabled := True; TBDel.Enabled := True;
TBDel.Enabled := True;
TBTJ.Enabled := True; TBTJ.Enabled := True;
btnCopy.Enabled := True; btnCopy.Enabled := True;
end; end;
@ -230,16 +215,17 @@ begin
TBTJCX.Enabled := True; TBTJCX.Enabled := True;
btnCopy.Enabled := True; btnCopy.Enabled := True;
TBDel.Enabled := True; TBDel.Enabled := True;
tchk.Enabled := True; //tchk.Enabled := True;
end;
2:
begin
TWC.Enabled := True; TWC.Enabled := True;
btnCopy.Enabled := True; btnCopy.Enabled := True;
tnochk.Enabled := True;
end; end;
3: // 2:
// begin
//
//
// //tnochk.Enabled := True;
// end;
2:
begin begin
TNowc.Enabled := True; TNowc.Enabled := True;
btnCopy.Enabled := True; btnCopy.Enabled := True;
@ -297,20 +283,21 @@ begin
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
SqlStr := SqlStr + ' , @Status=''0'' '; SqlStr := SqlStr + ' , @Status=''0'' '; //待提交
end; end;
1: 1:
begin begin
SqlStr := SqlStr + ' , @Status=''1'' '; SqlStr := SqlStr + ' , @Status=''1'' '; //待审核
end; end;
2: 2:
begin begin
SqlStr := SqlStr + ' , @Status=''9'' '; SqlStr := SqlStr + ' , @Status=''10'' '; //已完成
end; end;
3: 3:
begin begin
SqlStr := SqlStr + ' , @Status=''10'' '; SqlStr := SqlStr + ' , @Status=''11'' '; //已作废
end; end;
end; end;
// ShowMessage(SqlStr); // ShowMessage(SqlStr);
InitCDSData(ADOQueryMain, Order_Main, Tv1, SqlStr, FilterStr, 'TMMId'); InitCDSData(ADOQueryMain, Order_Main, Tv1, SqlStr, FilterStr, 'TMMId');
@ -410,6 +397,51 @@ begin
end; 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); procedure TfrmTradeMarketList.TBDelClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
@ -685,6 +717,35 @@ begin
Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end; 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); procedure TfrmTradeMarketList.ToolButton4Click(Sender: TObject);
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
@ -713,72 +774,72 @@ begin
InitGrid(); InitGrid();
end; end;
procedure TfrmTradeMarketList.TchkClick(Sender: TObject); //procedure TfrmTradeMarketList.TchkClick(Sender: TObject);
begin //begin
if Order_Main.IsEmpty then // if Order_Main.IsEmpty then
exit; // exit;
if cxTabControl1.TabIndex <> 1 then // if cxTabControl1.TabIndex <> 1 then
begin // begin
Application.MessageBox('只能在待审核状态下进行审核操作!', '提示', 0); // Application.MessageBox('只能在待审核状态下进行审核操作!', '提示', 0);
Exit; // Exit;
end; // end;
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then // if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
Exit; // Exit;
try // try
with ADOQueryCmd do // with ADOQueryCmd do
begin // begin
close; // close;
sql.Clear; // sql.Clear;
sql.Add('update Trade_Market_Main SET status=''9'',chker=''' + trim(DName) + ''',Chktime=getdate() '); // 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('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); // sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName))); // sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() '); // sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption))); // sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('计划单审核'))); // sql.Add(',' + quotedstr(trim('计划单审核')));
sql.Add(',' + quotedstr(trim('计划单号：' + trim(Order_Main.FieldByName('TMMNO').AsString)))); // sql.Add(',' + quotedstr(trim('计划单号：' + trim(Order_Main.FieldByName('TMMNO').AsString))));
sql.Add(',' + quotedstr(trim('成功'))); // sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')'); // sql.Add(')');
execsql; // execsql;
end; // end;
//
// except
// application.MessageBox('计划单审核失败！', '提示信息', 0);
// end;
// TBRafresh.Click;
//end;
except //procedure TfrmTradeMarketList.TnochkClick(Sender: TObject);
application.MessageBox('计划单审核失败！', '提示信息', 0); //begin
end; // if Order_Main.IsEmpty then
TBRafresh.Click; // exit;
end; // if cxTabControl1.TabIndex <> 2 then
// begin
procedure TfrmTradeMarketList.TnochkClick(Sender: TObject); // Application.MessageBox('只能在已审核状态下进行审核操作!', '提示', 0);
begin // Exit;
if Order_Main.IsEmpty then // end;
exit; // try
if cxTabControl1.TabIndex <> 2 then // with ADOQueryCmd do
begin // begin
Application.MessageBox('只能在已审核状态下进行审核操作!', '提示', 0); // close;
Exit; // sql.Clear;
end; // sql.Add('update Trade_Market_Main SET status=''1'',chker=null,Chktime=null ');
try // sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
with ADOQueryCmd do // sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
begin // sql.Add(' ' + quotedstr(trim(DName)));
close; // sql.Add(',getdate() ');
sql.Clear; // sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add('update Trade_Market_Main SET status=''1'',chker=null,Chktime=null '); // sql.Add(',' + quotedstr(trim('计划单撤销审核')));
sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); // sql.Add(',' + quotedstr(trim('计划单号：' + trim(Order_Main.FieldByName('TMMNO').AsString))));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); // sql.Add(',' + quotedstr(trim('成功')));
sql.Add(' ' + quotedstr(trim(DName))); // sql.Add(')');
sql.Add(',getdate() '); // execsql;
sql.Add(',' + quotedstr(trim(self.Caption))); // end;
sql.Add(',' + quotedstr(trim('计划单撤销审核'))); // TBRafresh.Click;
sql.Add(',' + quotedstr(trim('计划单号：' + trim(Order_Main.FieldByName('TMMNO').AsString)))); // except
sql.Add(',' + quotedstr(trim('成功'))); // application.MessageBox('计划单撤销审核失败！', '提示信息', 0);
sql.Add(')'); // end;
execsql; //end;
end;
TBRafresh.Click;
except
application.MessageBox('计划单撤销审核失败！', '提示信息', 0);
end;
end;
procedure TfrmTradeMarketList.TWCClick(Sender: TObject); procedure TfrmTradeMarketList.TWCClick(Sender: TObject);
begin begin
@ -842,7 +903,7 @@ begin
begin begin
close; close;
sql.Clear; 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('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
@ -1032,5 +1093,51 @@ begin
WriteCxGrid('指示单列表FF1', Tv1, '生产指示单管理'); WriteCxGrid('指示单列表FF1', Tv1, '生产指示单管理');
end; 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. 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.