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-12-02 13:38:06 +08:00
parent 1f7b10316a
commit b3aa181c2d
8 changed files with 4697 additions and 440 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4654
A00通用窗体/U_MachineManageSel.dfm
View File

File diff suppressed because it is too large Load Diff

325
A00通用窗体/U_MachineManageSel.pas
View File

@ -4,66 +4,86 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseHelp, cxGridCustomTableView,
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, System.ImageList, U_BaseInput, cxContainer, cxImageList,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, dxSkinBasic,
cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxBarBuiltInMenu, U_BaseList, RM_BarCode, dxScrollbarAnnotations, cxContainer, dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
Vcl.ImgList, cxImageList; 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
TfrmMachineManageSel = class(TfrmBaseList) TfrmMachineManageSel = class(TfrmBaseHelp)
TV1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
ToolBar1: TToolBar; ToolBar1: TToolBar;
TBRafresh: TToolButton; ADOQueryMain: TADOQuery;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery; ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery; ADOQueryCmd: TADOQuery;
ToolButton2: TToolButton; DS_1: TDataSource;
ADOQueryMain: TADOQuery; CDS_1: TClientDataSet;
cxGrid2: TcxGrid; TBSave: TToolButton;
Tv2: TcxGridDBTableView; TBClose: TToolButton;
cxGridLevel1: TcxGridLevel; ToolButton1: TToolButton;
GPM_1: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Panel1: TPanel;
v2Column8: TcxGridDBColumn;
Label1: TLabel;
v2Column12: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
VNO: TcxTextEdit;
ADOConnection1: TADOConnection; ADOConnection1: TADOConnection;
Panel1: TPanel;
Label1: TLabel;
GPM_1: TcxGridPopupMenu;
ImageList1: TImageList;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
SkyBlue: TcxStyle;
Default: TcxStyle;
QHuangSe: TcxStyle;
Red: TcxStyle;
FontBlue: TcxStyle;
TextSHuangSe: TcxStyle;
FonePurple: TcxStyle;
FoneClMaroon: TcxStyle;
FoneRed: TcxStyle;
RowColor: TcxStyle;
handBlack: TcxStyle;
cxBlue: TcxStyle;
SHuangSeCu: TcxStyle;
VNO: TcxTextEdit;
cxImageList_bar: TcxImageList; cxImageList_bar: TcxImageList;
procedure FormDestroy(Sender: TObject); Label2: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction); VType: TcxTextEdit;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure CustomerChange(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Tv2Column1PropertiesChange(Sender: TObject); procedure FormShow(Sender: TObject);
procedure MCNOPropertiesChange(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure TV1DblClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure CoNamePropertiesChange(Sender: TObject);
private private
{ Private declarations }
procedure InitGrid(); procedure InitGrid();
{ Private declarations }
public public
fFlag: integer; FCoType, FAuthority, FStores: string;
{ Public declarations } { Public declarations }
RKFlag, FCYID, fmanage: string;
end; end;
var var
@ -72,41 +92,96 @@ var
implementation implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint; U_DataLink, U_RTFun;
{$R *.dfm} {$R *.dfm}
procedure TfrmMachineManageSel.FormCreate(Sender: TObject);
begin
inherited;
try
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
ADOQueryBaseCmd.Connection := ADOConnection1;
ADOQueryBaseTemp.Connection := ADOConnection1;
except
application.MessageBox('网络连接失败！', '提示信息');
end;
end;
procedure TfrmMachineManageSel.CoNamePropertiesChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
end;
procedure TfrmMachineManageSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
VNO.SetFocus;
Action := cahide;
end;
procedure TfrmMachineManageSel.InitGrid(); procedure TfrmMachineManageSel.InitGrid();
begin begin
ToolBar1.SetFocus;
try try
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
begin begin
Close; Close;
SQL.Clear; sql.Clear;
sql.Add(' select A.* from Bs_Vehicle A order by VNO '); sql.Add(' select A.* from Bs_Vehicle A order by VNO ');
Open; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_HZ);
SInitCDSData(ADOQueryMain, CDS_HZ); SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally finally
ADOQueryMain.EnableControls; ADOQueryMain.EnableControls;
ToolButton2.Click;
end; end;
end; end;
procedure TfrmMachineManageSel.MCNOPropertiesChange(Sender: TObject); procedure TfrmMachineManageSel.FormShow(Sender: TObject);
var
sql: string;
begin begin
if ADOQueryMain.Active then inherited;
begin
sql := SGetFilters(Panel1, 1, 2); InitGrid();
SDofilter(ADOQueryMain, sql);
SCreateCDS(ADOQueryMain, CDS_HZ); ReadCxGrid('车辆名称' + Trim(FCoType), TV1, '自定义数据');
SInitCDSData(ADOQueryMain, CDS_HZ);
end; end;
procedure TfrmMachineManageSel.TBCloseClick(Sender: TObject);
begin
inherited;
Close;
end;
procedure TfrmMachineManageSel.TBSaveClick(Sender: TObject);
begin
WriteCxGrid('车辆名称' + Trim(FCoType), TV1, '自定义数据');
end;
procedure TfrmMachineManageSel.ToolButton1Click(Sender: TObject);
begin
VNO.SetFocus;
ModalResult := 1;
end;
procedure TfrmMachineManageSel.TV1DblClick(Sender: TObject);
begin
ModalResult := 1;
end; end;
procedure TfrmMachineManageSel.FormDestroy(Sender: TObject); procedure TfrmMachineManageSel.FormDestroy(Sender: TObject);
@ -115,127 +190,5 @@ begin
frmMachineManageSel := nil; frmMachineManageSel := nil;
end; end;
procedure TfrmMachineManageSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmMachineManageSel.TBCloseClick(Sender: TObject);
begin
WriteCxGrid(Trim(Self.Caption), Tv2, '车辆管理');
Close;
end;
procedure TfrmMachineManageSel.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(Trim(Self.Caption), Tv2, '车辆管理');
// Enddate.DateTime:=SGetServerDate(ADOQueryTemp);
// begdate.DateTime:=Enddate.DateTime-30;
InitGrid();
end;
procedure TfrmMachineManageSel.TBRafreshClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmMachineManageSel.cxTabControl1Change(Sender: TObject);
begin
InitGrid;
end;
procedure TfrmMachineManageSel.N1Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
exit;
SelOKNo(CDS_HZ, True);
end;
procedure TfrmMachineManageSel.N2Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
exit;
SelOKNo(CDS_HZ, False);
end;
procedure TfrmMachineManageSel.CustomerChange(Sender: TObject);
begin
ToolButton2.Click;
end;
procedure TfrmMachineManageSel.FormCreate(Sender: TObject);
begin
inherited;
fmanage := Trim(DParameters1);
end;
procedure TfrmMachineManageSel.ToolButton3Click(Sender: TObject);
var
RTValues: TArray<string>;
begin
if CDS_HZ.IsEmpty then
Exit;
if CDS_HZ.Locate('SSel', True, []) = False then
begin
Application.MessageBox('请先选择数据！', '提示', 0);
Exit;
end;
RTValues := SelCDSKey(CDS_HZ, ['VID']);
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'Machine';
FFiltration1 := RTValues[0];
if ShowModal = 1 then
begin
// Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmMachineManageSel.Tv2Column1PropertiesChange(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
try
ADOQueryCmd.Connection.BeginTrans;
with CDS_HZ do
begin
Edit;
FieldByName(FFieldName).Value := Trim(mvalue);
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate Bs_Vehicle ');
sql.Add(' Set ' + FFieldName + '=''' + Trim(mvalue) + '''');
sql.Add(' , Editer=''' + Trim(DName) + '''');
sql.Add(' , Edittime=getdate()');
sql.Add(' where VID=' + quotedstr(CDS_HZ.fieldbyname('VID').AsString));
// ShowMessage(sql.text);
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
tv2.Controller.EditingController.ShowEdit();
except
tv2.Controller.EditingController.ShowEdit();
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！', '提示', 0);
end
end;
end. end.

2
T02贸易汇总仓库/TradeTotalClothStk.dpr
View File

@ -28,7 +28,6 @@ uses
U_PurchaseContractSel in '..\T00贸易通用窗体\U_PurchaseContractSel.pas' {frmPurchaseContractSel}, U_PurchaseContractSel in '..\T00贸易通用窗体\U_PurchaseContractSel.pas' {frmPurchaseContractSel},
U_TradeClothOutInspList in 'U_TradeClothOutInspList.pas' {frmTradeClothOutInspList}, U_TradeClothOutInspList in 'U_TradeClothOutInspList.pas' {frmTradeClothOutInspList},
U_PictureList in '..\A00通用窗体\U_PictureList.pas' {frmPictureList}, U_PictureList in '..\A00通用窗体\U_PictureList.pas' {frmPictureList},
U_MachineManageSel in '..\A00通用窗体\U_MachineManageSel.pas' {frmMachineManageSel},
U_TradeGreyClothInEdit in 'U_TradeGreyClothInEdit.pas' {frmTradeGreyClothInEdit}, U_TradeGreyClothInEdit in 'U_TradeGreyClothInEdit.pas' {frmTradeGreyClothInEdit},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_TradeGreyClothInList in 'U_TradeGreyClothInList.pas' {frmTradeGreyClothInList}, U_TradeGreyClothInList in 'U_TradeGreyClothInList.pas' {frmTradeGreyClothInList},
@ -78,6 +77,7 @@ uses
U_TradeRRInPut in 'U_TradeRRInPut.pas' {frmTradeRRInPut}, U_TradeRRInPut in 'U_TradeRRInPut.pas' {frmTradeRRInPut},
U_RPFun in '..\..\..\public10\ThreeFun\Fun\U_RPFun.pas', U_RPFun in '..\..\..\public10\ThreeFun\Fun\U_RPFun.pas',
U_InputReceiptType in 'U_InputReceiptType.pas' {frmInputReceiptType}, U_InputReceiptType in 'U_InputReceiptType.pas' {frmInputReceiptType},
U_MachineManageSel in '..\A00通用窗体\U_MachineManageSel.pas' {frmMachineManageSel},
U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel}; U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel};
{$R *.res} {$R *.res}

8
T02贸易汇总仓库/TradeTotalClothStk.dproj
View File

@ -196,10 +196,6 @@
<Form>frmPictureList</Form> <Form>frmPictureList</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\A00通用窗体\U_MachineManageSel.pas">
<Form>frmMachineManageSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TradeGreyClothInEdit.pas"> <DCCReference Include="U_TradeGreyClothInEdit.pas">
<Form>frmTradeGreyClothInEdit</Form> <Form>frmTradeGreyClothInEdit</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
@ -364,6 +360,10 @@
<DCCReference Include="U_InputReceiptType.pas"> <DCCReference Include="U_InputReceiptType.pas">
<Form>frmInputReceiptType</Form> <Form>frmInputReceiptType</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\A00通用窗体\U_MachineManageSel.pas">
<Form>frmMachineManageSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_CompanySel.pas"> <DCCReference Include="..\A00通用窗体\U_CompanySel.pas">
<Form>frmCompanySel</Form> <Form>frmCompanySel</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>

61
T02贸易汇总仓库/U_PlanScanInEdit.dfm
View File

@ -16,7 +16,6 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 2 TabOrder = 2
ExplicitWidth = 1350
object Panel3: TPanel object Panel3: TPanel
Left = 2 Left = 2
Top = 2 Top = 2
@ -24,7 +23,6 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
Height = 141 Height = 141
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1346
object Label6: TLabel object Label6: TLabel
Left = 13 Left = 13
Top = 68 Top = 68
@ -110,7 +108,6 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1344
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -125,6 +122,7 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
AutoSize = True AutoSize = True
Caption = #24211#20301#36873#25321 Caption = #24211#20301#36873#25321
ImageIndex = 8 ImageIndex = 8
Visible = False
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
@ -155,7 +153,7 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
end end
object edtScan: TEdit object edtScan: TEdit
Left = 85 Left = 85
Top = 37 Top = 44
Width = 379 Width = 379
Height = 72 Height = 72
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -212,18 +210,24 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
object carPlate: TBtnEditA object carPlate: TBtnEditA
Tag = 1 Tag = 1
Left = 742 Left = 742
Top = 69 Top = 70
Width = 121 Width = 121
Height = 26 Height = 26
TabOrder = 6 TabOrder = 6
OnBtnClick = carPlateBtnClick OnBtnClick = carPlateBtnClick
end end
object Tqueren: TButton object Tqueren: TButton
Left = 896 Left = 869
Top = 69 Top = 37
Width = 75 Width = 153
Height = 25 Height = 70
Caption = #30830#23450#32465#23450 Caption = #30830#23450#32465#23450
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 7 TabOrder = 7
OnClick = TquerenClick OnClick = TquerenClick
end end
@ -237,8 +241,6 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 3 TabOrder = 3
ExplicitWidth = 1350
ExplicitHeight = 487
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
@ -246,8 +248,6 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
Height = 326 Height = 326
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1348
ExplicitHeight = 485
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -277,45 +277,18 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
object cxGridDBColumn4: TcxGridDBColumn object cxGridDBColumn4: TcxGridDBColumn
Caption = #20986#24211#21333 Caption = #21333#25454#32534#21495
DataBinding.FieldName = 'BCIONO' DataBinding.FieldName = 'TMMNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
FooterAlignmentHorz = taCenter FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 90 Width = 232
end end
object Tv3Column1: TcxGridDBColumn object Tv3Column1: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'ToCoName' DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 90
end
object Tv3Column2: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 90
end
object Tv3Column3: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Pieceint'
DataBinding.IsNullValueType = True
FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 90
end
object Tv3Column4: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
FooterAlignmentHorz = taCenter FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter

77
T02贸易汇总仓库/U_PlanScanInEdit.pas
View File

@ -70,9 +70,6 @@ type
CRType: TComboBox; CRType: TComboBox;
carPlate: TBtnEditA; carPlate: TBtnEditA;
Tv3Column1: TcxGridDBColumn; Tv3Column1: TcxGridDBColumn;
Tv3Column2: TcxGridDBColumn;
Tv3Column3: TcxGridDBColumn;
Tv3Column4: TcxGridDBColumn;
Tqueren: TButton; Tqueren: TButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
@ -88,11 +85,12 @@ type
procedure TquerenClick(Sender: TObject); procedure TquerenClick(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FScan, FSubIds,FZCID: string; FScan, FSubIds, FZCID: string;
procedure PlayWav(MWav: string); procedure PlayWav(MWav: string);
procedure InitKC(); procedure InitKC();
procedure ScanKW(); procedure ScanKW();
procedure ScanCIID(); procedure ScanCIID();
function SaveData(): Boolean;
public public
{ Public declarations } { Public declarations }
@ -124,9 +122,10 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select A.* from Trade_Cloth_IO A '); sql.Add('select * from Trade_Market_Main A ');
sql.Add('where A.ioFlag=''³ö¿â'' '); sql.add(' left join Trade_Market_CarTransportSub B on A.TmMid=B.TmMid ');
sql.add('and VNO =' + QuotedStr(TRIm(FScan))); sql.Add('where isnull(A.Status,''0'')=''2'' ');
sql.add('and A.TMMId =' + QuotedStr(TRIm(FScan)));
Open; Open;
end; end;
SCreateCDS(ADOQueryTemp, CDS_3); SCreateCDS(ADOQueryTemp, CDS_3);
@ -233,14 +232,14 @@ begin
begin begin
FScan := TRIM(edtScan.Text); FScan := TRIM(edtScan.Text);
edtScan.Text := ''; edtScan.Text := '';
if Copy(FScan, 1, 2) = 'KW' then // if Copy(FScan, 1, 2) = 'KW' then
begin // begin
ScanKW(); // ScanKW();
end // end
else // else
begin // begin
ScanCIID(); // ScanCIID();
end; // end;
InitKC(); InitKC();
end; end;
end; end;
@ -297,7 +296,7 @@ begin
flagname := 'ÇøÓò'; flagname := 'ÇøÓò';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
IOPosition.text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); wlCompany.text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end; end;
end; end;
finally finally
@ -349,6 +348,17 @@ begin
end; end;
procedure TfrmPlanScanInEdit.TquerenClick(Sender: TObject); procedure TfrmPlanScanInEdit.TquerenClick(Sender: TObject);
begin
if SaveData() then
begin
Application.MessageBox('±£´æ³É¹¦!', 'Ìáʾ', 0);
//ModalResult:=1;
Exit;
end;
end;
//procedure TfrmPlanScanInEdit.TquerenClick(Sender: TObject);
function TfrmPlanScanInEdit.SaveData(): Boolean;
var var
MaxMid, MaxSid: string; MaxMid, MaxSid: string;
begin begin
@ -376,21 +386,20 @@ begin
if Trim(FZCID) = '' then if Trim(FZCID) = '' then
begin begin
Append; Append;
FieldByName('FillID').Value := Trim(DCode); // FieldByName('FillID').Value := Trim(DCode);
FieldByName('Filler').Value := Trim(DName); FieldByName('Filler').Value := Trim(DName);
end end
else else
begin begin
Edit; Edit;
FieldByName('EditID').Value := Trim(DCode); // FieldByName('EditID').Value := Trim(DCode);
FieldByName('Editer').Value := Trim(DName); FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOQuerytemp); FieldByName('EditTime').Value := SGetServerDateTime(ADOQuerytemp);
end; end;
RTSetsavedata(ADOQueryCmd, 'Trade_Market_CarTransport', panel3, 1); RTSetsavedata(ADOQueryCmd, 'Trade_Market_CarTransport', panel3, 1);
FieldByName('ZCID').Value := Trim(MaxMid);
FieldByName('wlCompany').Value := Trim(wlCompany.text);
FieldByName('DRMID').Value := Trim(MaxMid); FieldByName('carPlate').Value := Trim(carPlate.text);
Post; Post;
end; end;
///////////////// ±£´æÖ÷±í ///////////////// ///////////////// ±£´æÖ÷±í /////////////////
@ -409,7 +418,7 @@ begin
end end
else else
begin begin
MaxSid := Trim(CDS_3.fieldbyname('DRSID').AsString); MaxSid := Trim(CDS_3.fieldbyname('ZCMXID').AsString);
end; end;
with ADOQueryCmd do with ADOQueryCmd do
@ -417,8 +426,8 @@ begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('select * from Trade_Market_CarTransportSub '); sql.Add('select * from Trade_Market_CarTransportSub ');
sql.Add(' where DRMID=''' + Trim(MaxMid) + ''''); sql.Add(' where ZCID=''' + Trim(MaxMid) + '''');
sql.Add(' and DRSID=''' + Trim(MaxSid) + ''''); sql.Add(' and ZCMXID=''' + Trim(MaxSid) + '''');
Open; Open;
if ADOQueryCmd.IsEmpty then if ADOQueryCmd.IsEmpty then
begin begin
@ -428,23 +437,17 @@ begin
begin begin
Edit; Edit;
end; end;
RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_3, 'Trade_Market_CarTransportSub', 0); // RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_3, 'Trade_Market_CarTransportSub', 0);
FieldByName('DRMID').Value := Trim(MaxMid); FieldByName('ZCID').Value := Trim(MaxMid);
FieldByName('DRSID').Value := Trim(MaxSid); FieldByName('ZCMXID').Value := Trim(MaxSid);
// FieldByName('QtyUnit').Value := QtyUnit.Text;
FieldByName('MainId').Value := CDS_3.fieldbyname('MainId').Value;
FieldByName('SubId').Value := CDS_3.fieldbyname('SubId').Value;
FieldByName('ConMId').Value := CDS_3.fieldbyname('ConMId').Value;
FieldByName('ConSId').Value := CDS_3.fieldbyname('ConSId').Value;
FieldByName('ToConNo').Value := CDS_3.fieldbyname('ToConNo').Value; FieldByName('TmMno').Value := CDS_3.fieldbyname('TMMNo').Value;
FieldByName('ToConMId').Value := CDS_3.fieldbyname('ToConMId').Value; FieldByName('TmMid').Value := CDS_3.fieldbyname('TMMId').Value;
FieldByName('ToConSId').Value := CDS_3.fieldbyname('ToConSId').Value;
Post; Post;
end; end;
CDS_3.Edit; CDS_3.Edit;
CDS_3.FieldByName('DRSID').Value := Trim(MaxSid); CDS_3.FieldByName('ZCMXID').Value := Trim(MaxSid);
Next; Next;
end; end;
end; end;

8
T02贸易汇总仓库/U_TradeClothTotalStkList.dfm
View File

@ -187,15 +187,12 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 5 Properties.Style = 5
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ExplicitTop = 89
ExplicitHeight = 426
ClientRectBottom = 389 ClientRectBottom = 389
ClientRectRight = 1404 ClientRectRight = 1404
ClientRectTop = 32 ClientRectTop = 32
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = ' '#20135#21697#27719#24635' ' Caption = ' '#20135#21697#27719#24635' '
ImageIndex = 0 ImageIndex = 0
ExplicitHeight = 394
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
@ -204,7 +201,6 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
ExplicitHeight = 394
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
OnDblClick = TV2DblClick OnDblClick = TV2DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -356,7 +352,6 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
object cxTabSheet2: TcxTabSheet object cxTabSheet2: TcxTabSheet
Caption = #20135#21697#26126#32454 Caption = #20135#21697#26126#32454
ImageIndex = 1 ImageIndex = 1
ExplicitHeight = 394
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
@ -365,7 +360,6 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
ExplicitHeight = 394
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -813,8 +807,6 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
BevelInner = bvLowered BevelInner = bvLowered
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 5 TabOrder = 5
ExplicitTop = 149
ExplicitWidth = 1234
DesignSize = ( DesignSize = (
1400 1400
33) 33)

2
T02贸易汇总仓库/U_TradeClothTotalStkList.pas
View File

@ -348,7 +348,7 @@ begin
case cxPageControl1.ActivePageIndex of case cxPageControl1.ActivePageIndex of
0: 0:
begin begin
CDSDataFilter(ADO_2, CDS_2, Tv2, '{"FilterStr":"' + CommonFiltersByContainer(Panel1, ' {"EquTag": 1,"LikeTag": 2,"Fields": "C_name|C_Color|C_ColorNo"}') + '" }'); CDSDataFilter(ADO_2, CDS_2, Tv2, '{"FilterStr":"' + CommonFiltersByContainer(Panel1, ' {"EquTag": 1,"LikeTag": 2,"Fields": "C_name|C_Color|C_ColorNo|StkPosition|FromCoName"}') + '" }');
end; end;
1: 1:
begin begin