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

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

File diff suppressed because it is too large Load Diff

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

@ -4,66 +4,86 @@ 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, RM_BarCode, dxScrollbarAnnotations, cxContainer,
cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, System.ImageList,
Vcl.ImgList, cxImageList;
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseHelp, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxContainer, cxImageList,
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, 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
TfrmMachineManageSel = class(TfrmBaseList)
TfrmMachineManageSel = class(TfrmBaseHelp)
TV1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ToolButton2: TToolButton;
ADOQueryMain: TADOQuery;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
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;
DS_1: TDataSource;
CDS_1: TClientDataSet;
TBSave: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
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;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
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);
Label2: TLabel;
VType: TcxTextEdit;
procedure FormCreate(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure Tv2Column1PropertiesChange(Sender: TObject);
procedure MCNOPropertiesChange(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(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 declarations }
procedure InitGrid();
{ Private declarations }
public
fFlag: integer;
FCoType, FAuthority, FStores: string;
{ Public declarations }
RKFlag, FCYID, fmanage: string;
end;
var
@ -72,41 +92,96 @@ var
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint;
U_DataLink, U_RTFun;
{$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();
begin
ToolBar1.SetFocus;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Clear;
sql.Add(' select A.* from Bs_Vehicle A order by VNO ');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_HZ);
SInitCDSData(ADOQueryMain, CDS_HZ);
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
ToolButton2.Click;
end;
end;
procedure TfrmMachineManageSel.MCNOPropertiesChange(Sender: TObject);
var
sql: string;
procedure TfrmMachineManageSel.FormShow(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
sql := SGetFilters(Panel1, 1, 2);
SDofilter(ADOQueryMain, sql);
SCreateCDS(ADOQueryMain, CDS_HZ);
SInitCDSData(ADOQueryMain, CDS_HZ);
inherited;
InitGrid();
ReadCxGrid('车辆名称' + Trim(FCoType), TV1, '自定义数据');
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;
procedure TfrmMachineManageSel.FormDestroy(Sender: TObject);
@ -115,127 +190,5 @@ begin
frmMachineManageSel := nil;
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.

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

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

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

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

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

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

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

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

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

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

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

@ -348,7 +348,7 @@ begin
case cxPageControl1.ActivePageIndex of
0:
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;
1:
begin