调整
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
7bd71c65c5
commit
a66403bfa6
5931
A00通用窗体/U_MachineManageSel.dfm
Normal file
5931
A00通用窗体/U_MachineManageSel.dfm
Normal file
File diff suppressed because it is too large
Load Diff
241
A00通用窗体/U_MachineManageSel.pas
Normal file
241
A00通用窗体/U_MachineManageSel.pas
Normal file
|
|
@ -0,0 +1,241 @@
|
||||||
|
unit U_MachineManageSel;
|
||||||
|
|
||||||
|
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;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmMachineManageSel = class(TfrmBaseList)
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
TBRafresh: TToolButton;
|
||||||
|
TBClose: TToolButton;
|
||||||
|
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;
|
||||||
|
ADOConnection1: TADOConnection;
|
||||||
|
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);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure ToolButton3Click(Sender: TObject);
|
||||||
|
procedure Tv2Column1PropertiesChange(Sender: TObject);
|
||||||
|
procedure MCNOPropertiesChange(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
procedure InitGrid();
|
||||||
|
public
|
||||||
|
fFlag: integer;
|
||||||
|
{ Public declarations }
|
||||||
|
RKFlag, FCYID, fmanage: string;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmMachineManageSel: TfrmMachineManageSel;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmMachineManageSel.InitGrid();
|
||||||
|
begin
|
||||||
|
ToolBar1.SetFocus;
|
||||||
|
try
|
||||||
|
ADOQueryMain.DisableControls;
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
SQL.Clear;
|
||||||
|
sql.Add(' select A.* from Bs_Vehicle A order by VNO ');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS(ADOQueryMain, CDS_HZ);
|
||||||
|
SInitCDSData(ADOQueryMain, CDS_HZ);
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
ToolButton2.Click;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmMachineManageSel.MCNOPropertiesChange(Sender: TObject);
|
||||||
|
var
|
||||||
|
sql: string;
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.Active then
|
||||||
|
begin
|
||||||
|
sql := SGetFilters(Panel1, 1, 2);
|
||||||
|
SDofilter(ADOQueryMain, sql);
|
||||||
|
SCreateCDS(ADOQueryMain, CDS_HZ);
|
||||||
|
SInitCDSData(ADOQueryMain, CDS_HZ);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmMachineManageSel.FormDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
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.
|
||||||
|
|
||||||
|
|
@ -733,6 +733,10 @@ inherited frmClothInfo: TfrmClothInfo
|
||||||
DataController.Summary.FooterSummaryItems = <
|
DataController.Summary.FooterSummaryItems = <
|
||||||
item
|
item
|
||||||
Kind = skSum
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skCount
|
||||||
|
Column = cxGridDBColumn2
|
||||||
end>
|
end>
|
||||||
DataController.Summary.SummaryGroups = <>
|
DataController.Summary.SummaryGroups = <>
|
||||||
OptionsBehavior.FocusCellOnTab = True
|
OptionsBehavior.FocusCellOnTab = True
|
||||||
|
|
|
||||||
|
|
@ -699,6 +699,7 @@ begin
|
||||||
with frmClothInfoInput do
|
with frmClothInfoInput do
|
||||||
begin
|
begin
|
||||||
canshu3 := Self.canshu3;
|
canshu3 := Self.canshu3;
|
||||||
|
canshu4 := Self.canshu4;
|
||||||
TypeInt := 0;
|
TypeInt := 0;
|
||||||
FBCIID := '';
|
FBCIID := '';
|
||||||
FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
|
FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
|
||||||
|
|
|
||||||
|
|
@ -754,7 +754,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
object C_FromName: TcxButtonEdit
|
object C_FromName: TcxButtonEdit
|
||||||
Tag = 7
|
Tag = 7
|
||||||
Left = 115
|
Left = 115
|
||||||
Top = -2
|
Top = 1
|
||||||
Properties.Buttons = <
|
Properties.Buttons = <
|
||||||
item
|
item
|
||||||
Default = True
|
Default = True
|
||||||
|
|
|
||||||
|
|
@ -190,7 +190,7 @@ type
|
||||||
public
|
public
|
||||||
FBCIID, FCTID: string;
|
FBCIID, FCTID: string;
|
||||||
TypeInt: Integer; //0ÐÂÔö_1¸´ÖÆ_2ÐÞ¸Ä
|
TypeInt: Integer; //0ÐÂÔö_1¸´ÖÆ_2ÐÞ¸Ä
|
||||||
fbuzhongedit, canshu3: string;
|
fbuzhongedit, canshu3, canshu4: string;
|
||||||
{ Public declarations }
|
{ Public declarations }
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
@ -775,7 +775,8 @@ procedure TfrmClothInfoInput.FormShow(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
readCxGrid(self.Caption + 'TV1', Tv1, 'ÑùÆ·¹ÜÀí');
|
readCxGrid(self.Caption + 'TV1', Tv1, 'ÑùÆ·¹ÜÀí');
|
||||||
|
|
||||||
if FCTID = 'CT2412300005' then
|
// if FCTID = 'CT2412300005' then
|
||||||
|
if canshu4 = '¶þ´Î¼Ó¹¤' then
|
||||||
begin
|
begin
|
||||||
C_Name.Enabled := False;
|
C_Name.Enabled := False;
|
||||||
C_FromName.Enabled := True;
|
C_FromName.Enabled := True;
|
||||||
|
|
@ -1223,7 +1224,16 @@ var
|
||||||
i, j, k, LX, ExcelRowCount: integer;
|
i, j, k, LX, ExcelRowCount: integer;
|
||||||
maxId, FCPID, FCPName, t1, t2, t3, FFID: string;
|
maxId, FCPID, FCPName, t1, t2, t3, FFID: string;
|
||||||
begin
|
begin
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('insert into BS_Cloth_Info_Sub_Del select * from BS_Cloth_Info_Sub where BCIID=''' + Trim(FBCIID) + '''');
|
||||||
|
sql.Add('delete from BS_Cloth_Info_Sub where BCIID=''' + Trim(FBCIID) + '''');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
CDS_1.EmptyDataSet;
|
||||||
try
|
try
|
||||||
excelApp := CreateOleObject('Excel.Application');
|
excelApp := CreateOleObject('Excel.Application');
|
||||||
openDialog1.Filter := '*.CSV;*.xls';
|
openDialog1.Filter := '*.CSV;*.xls';
|
||||||
|
|
@ -1317,6 +1327,7 @@ begin
|
||||||
begin
|
begin
|
||||||
Close;
|
Close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
|
sql.Add('insert into BS_Cloth_Info_Sub_Del select * from BS_Cloth_Info_Sub where BCIID=''' + Trim(FBCIID) + '''');
|
||||||
sql.Add('delete from BS_Cloth_Info_Sub where BCIID=''' + Trim(FBCIID) + '''');
|
sql.Add('delete from BS_Cloth_Info_Sub where BCIID=''' + Trim(FBCIID) + '''');
|
||||||
ExecSQL;
|
ExecSQL;
|
||||||
end;
|
end;
|
||||||
|
|
@ -1501,6 +1512,7 @@ begin
|
||||||
begin
|
begin
|
||||||
Close;
|
Close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
|
sql.Add('insert into BS_Cloth_Info_Sub_Del select * from BS_Cloth_Info_Sub where BCISID=''' + Trim(CDS_1.fieldbyname('BCISID').AsString) + '''');
|
||||||
sql.Add('delete from BS_Cloth_Info_Sub where BCISID=''' + Trim(CDS_1.fieldbyname('BCISID').AsString) + '''');
|
sql.Add('delete from BS_Cloth_Info_Sub where BCISID=''' + Trim(CDS_1.fieldbyname('BCISID').AsString) + '''');
|
||||||
ExecSQL;
|
ExecSQL;
|
||||||
end;
|
end;
|
||||||
|
|
@ -1703,7 +1715,7 @@ begin
|
||||||
begin
|
begin
|
||||||
Close;
|
Close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.Add('delete from Bs_Cloth_Info_Coefficient where CICID=''' + Trim(CDS_1.fieldbyname('CICID').AsString) + '''');
|
sql.Add('delete from Bs_Cloth_Info_Coefficient where CICID=''' + Trim(CDS_3.fieldbyname('CICID').AsString) + '''');
|
||||||
ExecSQL;
|
ExecSQL;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
|
||||||
|
|
@ -23,7 +23,6 @@ object frmEdit: TfrmEdit
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Caption = 'Panel6'
|
Caption = 'Panel6'
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ExplicitWidth = 625
|
|
||||||
object cxGrid4: TcxGrid
|
object cxGrid4: TcxGrid
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 1
|
Top = 1
|
||||||
|
|
@ -32,7 +31,6 @@ object frmEdit: TfrmEdit
|
||||||
Align = alClient
|
Align = alClient
|
||||||
PopupMenu = PopupMenu1
|
PopupMenu = PopupMenu1
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ExplicitWidth = 623
|
|
||||||
object TV4: TcxGridDBTableView
|
object TV4: TcxGridDBTableView
|
||||||
Navigator.Buttons.CustomButtons = <>
|
Navigator.Buttons.CustomButtons = <>
|
||||||
FindPanel.DisplayMode = fpdmAlways
|
FindPanel.DisplayMode = fpdmAlways
|
||||||
|
|
@ -118,7 +116,6 @@ object frmEdit: TfrmEdit
|
||||||
List = True
|
List = True
|
||||||
ShowCaptions = True
|
ShowCaptions = True
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
ExplicitWidth = 625
|
|
||||||
object ToolButton1: TToolButton
|
object ToolButton1: TToolButton
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 0
|
Left = 0
|
||||||
|
|
|
||||||
|
|
@ -194,7 +194,14 @@ var
|
||||||
i, j, k, LX, ExcelRowCount: integer;
|
i, j, k, LX, ExcelRowCount: integer;
|
||||||
maxId, FCPID, FCPName, t1, t2, t3, FFID: string;
|
maxId, FCPID, FCPName, t1, t2, t3, FFID: string;
|
||||||
begin
|
begin
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('insert into BS_Cloth_Info_Sub_Del select * from BS_Cloth_Info_Sub where BCIID=''' + Trim(FBCIID) + '''');
|
||||||
|
sql.Add('delete from BS_Cloth_Info_Sub where BCIID=''' + Trim(FBCIID) + '''');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
try
|
try
|
||||||
excelApp := CreateOleObject('Excel.Application');
|
excelApp := CreateOleObject('Excel.Application');
|
||||||
openDialog1.Filter := '*.CSV;*.xls';
|
openDialog1.Filter := '*.CSV;*.xls';
|
||||||
|
|
|
||||||
|
|
@ -71,13 +71,14 @@ uses
|
||||||
U_dynamicsDll in '..\..\..\public10\ThreeFun\Fun\U_dynamicsDll.pas',
|
U_dynamicsDll in '..\..\..\public10\ThreeFun\Fun\U_dynamicsDll.pas',
|
||||||
U_printPdf in '..\..\..\public10\ThreeFun\Fun\U_printPdf.pas',
|
U_printPdf in '..\..\..\public10\ThreeFun\Fun\U_printPdf.pas',
|
||||||
U_CustomFun in '..\A00ͨÓ÷½·¨\U_CustomFun.pas',
|
U_CustomFun in '..\A00ͨÓ÷½·¨\U_CustomFun.pas',
|
||||||
U_ProgressUpdate in '..\A00通用方法\U_ProgressUpdate.pas',
|
U_ProgressUpdate in '..\A00通用方法\U_ProgressUpdate.pas',
|
||||||
U_TradeClothSplit in 'U_TradeClothSplit.pas' {frmTradeClothSplit},
|
U_TradeClothSplit in 'U_TradeClothSplit.pas' {frmTradeClothSplit},
|
||||||
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
|
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
|
||||||
U_TradeRRList in 'U_TradeRRList.pas' {frmTradeRRList},
|
U_TradeRRList in 'U_TradeRRList.pas' {frmTradeRRList},
|
||||||
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};
|
||||||
|
|
||||||
{$R *.res}
|
{$R *.res}
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -364,6 +364,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>
|
||||||
<BuildConfiguration Include="Debug">
|
<BuildConfiguration Include="Debug">
|
||||||
<Key>Cfg_2</Key>
|
<Key>Cfg_2</Key>
|
||||||
<CfgParent>Base</CfgParent>
|
<CfgParent>Base</CfgParent>
|
||||||
|
|
|
||||||
|
|
@ -22,7 +22,7 @@ uses
|
||||||
U_TradePackClothOutList, U_TradePackClothStkList, U_TradeSampleClothInList,
|
U_TradePackClothOutList, U_TradePackClothStkList, U_TradeSampleClothInList,
|
||||||
U_TradeSampleClothOutList, U_TradeSampleClothStkList, U_ClothPurchaseEnterList,
|
U_TradeSampleClothOutList, U_TradeSampleClothStkList, U_ClothPurchaseEnterList,
|
||||||
U_ClothScheduleList, U_TradeClothTotalStkList, U_TradeClothTotalInList,
|
U_ClothScheduleList, U_TradeClothTotalStkList, U_TradeClothTotalInList,
|
||||||
U_TradeClothTotalOutList, U_TradeDeliveryRequest, U_TradeRRList,
|
U_TradeClothTotalOutList, U_TradeDeliveryRequest, U_TradeRRList,U_PlanScanInEdit,
|
||||||
U_ItemizedListList, U_TradeXinYuStkList, U_TradeXinYuOutList;
|
U_ItemizedListList, U_TradeXinYuStkList, U_TradeXinYuOutList;
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////
|
/////////////////////////////////////////////////////////////////
|
||||||
|
|
@ -140,7 +140,7 @@ begin
|
||||||
|
|
||||||
911: //采购回仓
|
911: //采购回仓
|
||||||
begin
|
begin
|
||||||
with TfrmClothPurchaseEnterList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
with TfrmClothPurchaseEnterList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||||
begin
|
begin
|
||||||
fFormID := FormID;
|
fFormID := FormID;
|
||||||
WindowState := mstate;
|
WindowState := mstate;
|
||||||
|
|
@ -150,7 +150,7 @@ begin
|
||||||
|
|
||||||
912: //面料生产安排
|
912: //面料生产安排
|
||||||
begin
|
begin
|
||||||
with TfrmClothScheduleList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
with TfrmClothScheduleList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||||
begin
|
begin
|
||||||
fFormID := FormID;
|
fFormID := FormID;
|
||||||
WindowState := mstate;
|
WindowState := mstate;
|
||||||
|
|
@ -160,7 +160,7 @@ begin
|
||||||
|
|
||||||
920: //码单登记
|
920: //码单登记
|
||||||
begin
|
begin
|
||||||
with TfrmItemizedListList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
with TfrmItemizedListList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||||
begin
|
begin
|
||||||
fFormID := FormID;
|
fFormID := FormID;
|
||||||
WindowState := mstate;
|
WindowState := mstate;
|
||||||
|
|
@ -170,7 +170,7 @@ begin
|
||||||
|
|
||||||
921: //贸易布匹入库
|
921: //贸易布匹入库
|
||||||
begin
|
begin
|
||||||
with TfrmTradeClothTotalInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
with TfrmTradeClothTotalInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||||
begin
|
begin
|
||||||
fFormID := FormID;
|
fFormID := FormID;
|
||||||
WindowState := mstate;
|
WindowState := mstate;
|
||||||
|
|
@ -180,7 +180,7 @@ begin
|
||||||
|
|
||||||
221: //退货申请
|
221: //退货申请
|
||||||
begin
|
begin
|
||||||
with TfrmTradeRRList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
with TfrmTradeRRList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||||
begin
|
begin
|
||||||
fFormID := FormID;
|
fFormID := FormID;
|
||||||
WindowState := mstate;
|
WindowState := mstate;
|
||||||
|
|
@ -190,7 +190,7 @@ begin
|
||||||
|
|
||||||
211: //发货申请
|
211: //发货申请
|
||||||
begin
|
begin
|
||||||
with TfrmTradeDeliveryRequest.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
with TfrmTradeDeliveryRequest.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||||
begin
|
begin
|
||||||
fFormID := FormID;
|
fFormID := FormID;
|
||||||
WindowState := mstate;
|
WindowState := mstate;
|
||||||
|
|
@ -200,7 +200,7 @@ begin
|
||||||
|
|
||||||
922: //贸易布匹出库
|
922: //贸易布匹出库
|
||||||
begin
|
begin
|
||||||
with TfrmTradeClothTotalOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
with TfrmTradeClothTotalOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||||
begin
|
begin
|
||||||
fFormID := FormID;
|
fFormID := FormID;
|
||||||
WindowState := mstate;
|
WindowState := mstate;
|
||||||
|
|
@ -210,7 +210,7 @@ begin
|
||||||
|
|
||||||
923: //贸易布匹库存
|
923: //贸易布匹库存
|
||||||
begin
|
begin
|
||||||
with TfrmTradeClothTotalStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
with TfrmTradeClothTotalStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||||
begin
|
begin
|
||||||
fFormID := FormID;
|
fFormID := FormID;
|
||||||
WindowState := mstate;
|
WindowState := mstate;
|
||||||
|
|
@ -220,7 +220,7 @@ begin
|
||||||
|
|
||||||
924: //新余库存
|
924: //新余库存
|
||||||
begin
|
begin
|
||||||
with TfrmTradeXinYuStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
with TfrmTradeXinYuStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||||
begin
|
begin
|
||||||
fFormID := FormID;
|
fFormID := FormID;
|
||||||
WindowState := mstate;
|
WindowState := mstate;
|
||||||
|
|
@ -230,7 +230,7 @@ begin
|
||||||
|
|
||||||
925: //新余出库
|
925: //新余出库
|
||||||
begin
|
begin
|
||||||
with TfrmTradeXinYuOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
with TfrmTradeXinYuOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||||
begin
|
begin
|
||||||
fFormID := FormID;
|
fFormID := FormID;
|
||||||
WindowState := mstate;
|
WindowState := mstate;
|
||||||
|
|
@ -240,7 +240,7 @@ begin
|
||||||
|
|
||||||
511: //样布入库
|
511: //样布入库
|
||||||
begin
|
begin
|
||||||
with TfrmTradeSampleClothInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
with TfrmTradeSampleClothInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||||
begin
|
begin
|
||||||
FSTKName := '贸易样布';
|
FSTKName := '贸易样布';
|
||||||
fFormID := FormID;
|
fFormID := FormID;
|
||||||
|
|
@ -251,7 +251,7 @@ begin
|
||||||
|
|
||||||
521: //样布出库
|
521: //样布出库
|
||||||
begin
|
begin
|
||||||
with TfrmTradeSampleClothOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
with TfrmTradeSampleClothOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||||
begin
|
begin
|
||||||
FSTKName := '贸易样布';
|
FSTKName := '贸易样布';
|
||||||
fFormID := FormID;
|
fFormID := FormID;
|
||||||
|
|
@ -262,7 +262,7 @@ begin
|
||||||
|
|
||||||
531: //样布库存
|
531: //样布库存
|
||||||
begin
|
begin
|
||||||
with TfrmTradeSampleClothStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
with TfrmTradeSampleClothStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||||
begin
|
begin
|
||||||
FSTKName := '贸易样布';
|
FSTKName := '贸易样布';
|
||||||
fFormID := FormID;
|
fFormID := FormID;
|
||||||
|
|
@ -270,7 +270,16 @@ begin
|
||||||
mnewHandle := Handle;
|
mnewHandle := Handle;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
666: //ÉϳµÉ¨Âë
|
||||||
|
begin
|
||||||
|
with TfrmPlanScanInEdit.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||||
|
begin
|
||||||
|
// FSTKName := 'óÒ×Ñù²¼';
|
||||||
|
fFormID := FormID;
|
||||||
|
WindowState := mstate;
|
||||||
|
mnewHandle := Handle;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
10000:
|
10000:
|
||||||
begin
|
begin
|
||||||
for i := 0 to application.MainForm.MDIChildCount - 1 do
|
for i := 0 to application.MainForm.MDIChildCount - 1 do
|
||||||
|
|
|
||||||
361
T02贸易汇总仓库/U_PlanScanInEdit.dfm
Normal file
361
T02贸易汇总仓库/U_PlanScanInEdit.dfm
Normal file
|
|
@ -0,0 +1,361 @@
|
||||||
|
inherited frmPlanScanInEdit: TfrmPlanScanInEdit
|
||||||
|
Caption = #24211#23384#24211#20301#25195#25551
|
||||||
|
ClientHeight = 632
|
||||||
|
ClientWidth = 1350
|
||||||
|
Visible = True
|
||||||
|
ExplicitWidth = 1366
|
||||||
|
ExplicitHeight = 671
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 17
|
||||||
|
object Panel1: TPanel [0]
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 1350
|
||||||
|
Height = 145
|
||||||
|
Align = alTop
|
||||||
|
BevelInner = bvRaised
|
||||||
|
BevelOuter = bvLowered
|
||||||
|
TabOrder = 2
|
||||||
|
object Panel3: TPanel
|
||||||
|
Left = 2
|
||||||
|
Top = 2
|
||||||
|
Width = 1346
|
||||||
|
Height = 141
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 0
|
||||||
|
ExplicitLeft = 3
|
||||||
|
ExplicitTop = -1
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 13
|
||||||
|
Top = 68
|
||||||
|
Width = 66
|
||||||
|
Height = 33
|
||||||
|
Caption = #25195#25551
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clBlue
|
||||||
|
Font.Height = -32
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 470
|
||||||
|
Top = 67
|
||||||
|
Width = 66
|
||||||
|
Height = 33
|
||||||
|
Caption = #21306#22495
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -32
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 670
|
||||||
|
Top = 67
|
||||||
|
Width = 66
|
||||||
|
Height = 33
|
||||||
|
Caption = #36710#36742
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -32
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 1016
|
||||||
|
Top = 41
|
||||||
|
Width = 48
|
||||||
|
Height = 17
|
||||||
|
Caption = #20837#24211#21333#21495
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 1022
|
||||||
|
Top = 72
|
||||||
|
Width = 48
|
||||||
|
Height = 17
|
||||||
|
Caption = #20837#24211#26102#38388
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Label11: TLabel
|
||||||
|
Left = 1022
|
||||||
|
Top = 98
|
||||||
|
Width = 48
|
||||||
|
Height = 17
|
||||||
|
Caption = #20837#24211#31867#22411
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object ToolBar3: TToolBar
|
||||||
|
Tag = 1
|
||||||
|
Left = 1
|
||||||
|
Top = 1
|
||||||
|
Width = 1344
|
||||||
|
Height = 30
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 30
|
||||||
|
ButtonWidth = 83
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
Images = DataLink_TradeTotalClothStk.cxImageList_bar
|
||||||
|
List = True
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 0
|
||||||
|
object ToolButton3: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #30721#21333#25171#21360
|
||||||
|
ImageIndex = 21
|
||||||
|
OnClick = ToolButton3Click
|
||||||
|
end
|
||||||
|
object ToolButton5: TToolButton
|
||||||
|
Left = 87
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #24211#20301#36873#25321
|
||||||
|
ImageIndex = 8
|
||||||
|
OnClick = ToolButton5Click
|
||||||
|
end
|
||||||
|
object ToolButton8: TToolButton
|
||||||
|
Left = 174
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20445#23384#26684#24335
|
||||||
|
ImageIndex = 16
|
||||||
|
OnClick = ToolButton8Click
|
||||||
|
end
|
||||||
|
object ToolButton7: TToolButton
|
||||||
|
Left = 261
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 7
|
||||||
|
OnClick = ToolButton7Click
|
||||||
|
end
|
||||||
|
object btnGetOutNo: TToolButton
|
||||||
|
Left = 324
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21462#21495
|
||||||
|
ImageIndex = 2
|
||||||
|
Visible = False
|
||||||
|
OnClick = btnGetOutNoClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object edtScan: TEdit
|
||||||
|
Left = 85
|
||||||
|
Top = 37
|
||||||
|
Width = 379
|
||||||
|
Height = 72
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -64
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
OnKeyPress = edtScanKeyPress
|
||||||
|
end
|
||||||
|
object IOPosition: TBtnEditA
|
||||||
|
Left = 535
|
||||||
|
Top = 69
|
||||||
|
Width = 121
|
||||||
|
Height = 30
|
||||||
|
TabOrder = 2
|
||||||
|
OnBtnClick = IOPositionBtnClick
|
||||||
|
end
|
||||||
|
object InNo: TEdit
|
||||||
|
Left = 1070
|
||||||
|
Top = 37
|
||||||
|
Width = 100
|
||||||
|
Height = 25
|
||||||
|
TabOrder = 3
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object CRTime: TDateTimePicker
|
||||||
|
Left = 1070
|
||||||
|
Top = 68
|
||||||
|
Width = 100
|
||||||
|
Height = 20
|
||||||
|
Date = 41337.000000000000000000
|
||||||
|
Format = 'yyyy-MM-dd'
|
||||||
|
Time = 0.663190821760508700
|
||||||
|
TabOrder = 4
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object CRType: TComboBox
|
||||||
|
Left = 1070
|
||||||
|
Top = 94
|
||||||
|
Width = 100
|
||||||
|
Height = 25
|
||||||
|
Style = csDropDownList
|
||||||
|
ItemIndex = 0
|
||||||
|
TabOrder = 5
|
||||||
|
Text = #26816#39564#20837#24211
|
||||||
|
Visible = False
|
||||||
|
Items.Strings = (
|
||||||
|
#26816#39564#20837#24211
|
||||||
|
#36864#36135#20837#24211)
|
||||||
|
end
|
||||||
|
object carPlate: TBtnEditA
|
||||||
|
Left = 742
|
||||||
|
Top = 69
|
||||||
|
Width = 121
|
||||||
|
Height = 30
|
||||||
|
TabOrder = 6
|
||||||
|
OnBtnClick = carPlateBtnClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel2: TPanel [1]
|
||||||
|
Left = 0
|
||||||
|
Top = 145
|
||||||
|
Width = 1350
|
||||||
|
Height = 487
|
||||||
|
Align = alClient
|
||||||
|
Caption = 'Panel2'
|
||||||
|
TabOrder = 3
|
||||||
|
object cxGrid3: TcxGrid
|
||||||
|
Left = 1
|
||||||
|
Top = 1
|
||||||
|
Width = 1348
|
||||||
|
Height = 485
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 0
|
||||||
|
ExplicitLeft = 2
|
||||||
|
ExplicitTop = -2
|
||||||
|
object Tv3: TcxGridDBTableView
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
DataController.DataSource = DS_3
|
||||||
|
DataController.Filter.AutoDataSetFilter = True
|
||||||
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Format = #21367#25968#37327#65306'#'
|
||||||
|
Kind = skCount
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skCount
|
||||||
|
end>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
object cxGridDBColumn4: TcxGridDBColumn
|
||||||
|
Caption = #20986#24211#21333
|
||||||
|
DataBinding.FieldName = 'PieceNo'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 207
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGridLevel1: TcxGridLevel
|
||||||
|
GridView = Tv3
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited cxProgressBar2: TcxProgressBar
|
||||||
|
ExplicitHeight = 25
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseCmd: TADOQuery
|
||||||
|
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||||
|
Left = 785
|
||||||
|
Top = 200
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseTemp: TADOQuery
|
||||||
|
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||||
|
Left = 697
|
||||||
|
Top = 185
|
||||||
|
end
|
||||||
|
object GPM_1: TcxGridPopupMenu
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 168
|
||||||
|
Top = 400
|
||||||
|
end
|
||||||
|
object CDS_1: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 264
|
||||||
|
Top = 400
|
||||||
|
end
|
||||||
|
object DS_1: TDataSource
|
||||||
|
DataSet = CDS_1
|
||||||
|
Left = 336
|
||||||
|
Top = 408
|
||||||
|
end
|
||||||
|
object ADOQueryTemp: TADOQuery
|
||||||
|
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 704
|
||||||
|
Top = 248
|
||||||
|
end
|
||||||
|
object ADOQueryCmd: TADOQuery
|
||||||
|
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||||
|
Parameters = <>
|
||||||
|
Left = 792
|
||||||
|
Top = 256
|
||||||
|
end
|
||||||
|
object ADOQueryMain: TADOQuery
|
||||||
|
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 872
|
||||||
|
Top = 256
|
||||||
|
end
|
||||||
|
object CDS_2: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 264
|
||||||
|
Top = 328
|
||||||
|
end
|
||||||
|
object DS_2: TDataSource
|
||||||
|
DataSet = CDS_2
|
||||||
|
Left = 336
|
||||||
|
Top = 328
|
||||||
|
end
|
||||||
|
object GPM_2: TcxGridPopupMenu
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 176
|
||||||
|
Top = 324
|
||||||
|
end
|
||||||
|
object DS_3: TDataSource
|
||||||
|
DataSet = CDS_3
|
||||||
|
Left = 808
|
||||||
|
Top = 408
|
||||||
|
end
|
||||||
|
object CDS_3: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 760
|
||||||
|
Top = 408
|
||||||
|
end
|
||||||
|
object GPM_3: TcxGridPopupMenu
|
||||||
|
Grid = cxGrid3
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 712
|
||||||
|
Top = 408
|
||||||
|
end
|
||||||
|
end
|
||||||
350
T02贸易汇总仓库/U_PlanScanInEdit.pas
Normal file
350
T02贸易汇总仓库/U_PlanScanInEdit.pas
Normal file
|
|
@ -0,0 +1,350 @@
|
||||||
|
unit U_PlanScanInEdit;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, strUtils, SysUtils, Variants, Classes, Graphics, Controls,
|
||||||
|
Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||||
|
cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
|
||||||
|
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, MMSystem,
|
||||||
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
||||||
|
cxControls, cxGridCustomView, cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls,
|
||||||
|
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, U_BaseList, dxSkinsCore,
|
||||||
|
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, RM_Common, RM_Class,
|
||||||
|
RM_GridReport, RM_Dataset, Vcl.ToolWin, dxSkinBasic, dxSkinBlack, dxSkinBlue,
|
||||||
|
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
|
||||||
|
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||||
|
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||||
|
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||||
|
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||||
|
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||||
|
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||||
|
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||||
|
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
|
||||||
|
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
|
||||||
|
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||||
|
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
|
||||||
|
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
|
||||||
|
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
|
||||||
|
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
|
||||||
|
dxSkinXmas2008Blue, dxScrollbarAnnotations, cxContainer, cxProgressBar,
|
||||||
|
BtnEdit;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmPlanScanInEdit = class(TfrmBaseList)
|
||||||
|
GPM_1: TcxGridPopupMenu;
|
||||||
|
CDS_1: TClientDataSet;
|
||||||
|
DS_1: TDataSource;
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
ADOQueryMain: TADOQuery;
|
||||||
|
Panel1: TPanel;
|
||||||
|
CDS_2: TClientDataSet;
|
||||||
|
DS_2: TDataSource;
|
||||||
|
GPM_2: TcxGridPopupMenu;
|
||||||
|
DS_3: TDataSource;
|
||||||
|
CDS_3: TClientDataSet;
|
||||||
|
GPM_3: TcxGridPopupMenu;
|
||||||
|
Panel2: TPanel;
|
||||||
|
cxGrid3: TcxGrid;
|
||||||
|
Tv3: TcxGridDBTableView;
|
||||||
|
cxGridDBColumn4: TcxGridDBColumn;
|
||||||
|
cxGridLevel1: TcxGridLevel;
|
||||||
|
Panel3: TPanel;
|
||||||
|
ToolBar3: TToolBar;
|
||||||
|
ToolButton3: TToolButton;
|
||||||
|
btnGetOutNo: TToolButton;
|
||||||
|
ToolButton7: TToolButton;
|
||||||
|
ToolButton8: TToolButton;
|
||||||
|
edtScan: TEdit;
|
||||||
|
Label6: TLabel;
|
||||||
|
Label1: TLabel;
|
||||||
|
ToolButton5: TToolButton;
|
||||||
|
Label2: TLabel;
|
||||||
|
IOPosition: TBtnEditA;
|
||||||
|
Label5: TLabel;
|
||||||
|
InNo: TEdit;
|
||||||
|
Label4: TLabel;
|
||||||
|
CRTime: TDateTimePicker;
|
||||||
|
Label11: TLabel;
|
||||||
|
CRType: TComboBox;
|
||||||
|
carPlate: TBtnEditA;
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure FormDestroy(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure ToolButton3Click(Sender: TObject);
|
||||||
|
procedure btnGetOutNoClick(Sender: TObject);
|
||||||
|
procedure ToolButton7Click(Sender: TObject);
|
||||||
|
procedure ToolButton8Click(Sender: TObject);
|
||||||
|
procedure edtScanKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
procedure ToolButton5Click(Sender: TObject);
|
||||||
|
procedure IOPositionBtnClick(Sender: TObject);
|
||||||
|
procedure carPlateBtnClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
FScan, FSubIds: string;
|
||||||
|
procedure PlayWav(MWav: string);
|
||||||
|
procedure InitKC();
|
||||||
|
procedure ScanKW();
|
||||||
|
procedure ScanCIID();
|
||||||
|
public
|
||||||
|
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmPlanScanInEdit: TfrmPlanScanInEdit;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_RTFun, U_LabelPrint, U_ZDYHelp, U_MachineManageSel; //U_TradeClothWaitStorage, U_PositionSel
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmPlanScanInEdit.PlayWav(MWav: string);
|
||||||
|
begin
|
||||||
|
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\' + MWav + '.wav')) then
|
||||||
|
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\' + MWav + '.wav'), 0, SND_ASYNC);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPlanScanInEdit.InitKC();
|
||||||
|
begin
|
||||||
|
|
||||||
|
if IOPosition.Text = '' then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select A.IOFlag,A.IONo,A.IOID,A.IOPosition,B.* from Trade_Cloth_IO A ');
|
||||||
|
sql.Add('inner join Trade_Cloth_Stock B on A.StkId=B.StkId and A.IOCycles=B.StkCycles ');
|
||||||
|
sql.Add('where A.IOFlag=''入库'' and B.StkExists=1 ');
|
||||||
|
if IOPosition.Text <> '' then
|
||||||
|
sql.add('and IOPosition =' + QuotedStr(TRIm(IOPosition.Text)))
|
||||||
|
else
|
||||||
|
sql.add('and 1=2');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS(ADOQueryTemp, CDS_3);
|
||||||
|
SInitCDSData(ADOQueryTemp, CDS_3);
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPlanScanInEdit.ScanKW();
|
||||||
|
var
|
||||||
|
MStkIds: string;
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
SQL.Clear;
|
||||||
|
sql.Add('select * from Bs_Position where POSID =''' + trim(FScan) + ''' ');
|
||||||
|
open;
|
||||||
|
end;
|
||||||
|
|
||||||
|
IOPosition.Text := ADOQueryTemp.FieldByName('posno').AsString;
|
||||||
|
|
||||||
|
btnGetOutNo.Click;
|
||||||
|
except
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPlanScanInEdit.ScanCIID();
|
||||||
|
var
|
||||||
|
MStkIds: string;
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
if Trim(IOPosition.Text) = '' then
|
||||||
|
raise Exception.Create('库位不能为空!');
|
||||||
|
if Trim(InNo.Text) = '' then
|
||||||
|
raise Exception.Create('入库单号不能为空!');
|
||||||
|
|
||||||
|
MStkIds := FScan;
|
||||||
|
|
||||||
|
try
|
||||||
|
ADOQueryCmd.Connection.BeginTrans;
|
||||||
|
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
Sql.Clear;
|
||||||
|
Sql.Add('exec P_Market_Position_In ');
|
||||||
|
Sql.Add('@StkIds=' + quotedstr(trim(MStkIds)));
|
||||||
|
Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.DateTime)));
|
||||||
|
Sql.Add(',@IOType=' + Quotedstr(crtype.Text));
|
||||||
|
Sql.Add(',@IONO=' + Quotedstr(InNo.Text));
|
||||||
|
Sql.Add(',@StkPosition=' + Quotedstr(IOPosition.Text));
|
||||||
|
Sql.Add(',@FillId=' + Quotedstr(DCode));
|
||||||
|
Sql.Add(',@Filler=' + Quotedstr(DName));
|
||||||
|
// ShowMessage(sql.Text);
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||||
|
begin
|
||||||
|
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||||||
|
end;
|
||||||
|
ADOQueryCmd.Connection.CommitTrans;
|
||||||
|
PlayWav('正确');
|
||||||
|
except
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
raise Exception.Create(PChar(Exception(ExceptObject).Message));
|
||||||
|
end;
|
||||||
|
|
||||||
|
except
|
||||||
|
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||||
|
// PlayWav('发货错误');
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPlanScanInEdit.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
Action := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPlanScanInEdit.FormDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
frmPlanScanInEdit := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPlanScanInEdit.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ReadCxGrid(self.caption + 'Tv3', Tv3, '成品仓库');
|
||||||
|
InitKC();
|
||||||
|
CRTime.DateTime := SGetServerDate(ADOQueryTemp);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPlanScanInEdit.edtScanKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
var
|
||||||
|
maxno, SMFlag, KYCKFlag, FMainId, ff: string;
|
||||||
|
FFQty: Integer;
|
||||||
|
begin
|
||||||
|
if Key = #13 then
|
||||||
|
begin
|
||||||
|
FScan := TRIM(edtScan.Text);
|
||||||
|
edtScan.Text := '';
|
||||||
|
if Copy(FScan, 1, 2) = 'KW' then
|
||||||
|
begin
|
||||||
|
ScanKW();
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
ScanCIID();
|
||||||
|
end;
|
||||||
|
InitKC();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPlanScanInEdit.ToolButton3Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if Trim(InNo.Text) = '' then
|
||||||
|
Exit;
|
||||||
|
|
||||||
|
try
|
||||||
|
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
||||||
|
with frmLabelPrint do
|
||||||
|
begin
|
||||||
|
FLMType := 'TradeClothIn1';
|
||||||
|
FFiltration1 := Trim(Self.InNo.Text);
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmLabelPrint.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPlanScanInEdit.ToolButton5Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
{ try
|
||||||
|
frmPositionSel := TfrmPositionSel.Create(Application);
|
||||||
|
with frmPositionSel do
|
||||||
|
begin
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
IOPosition.Text := CDS_1.FieldByName('POSNO').AsString;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmPositionSel.Free;
|
||||||
|
btnGetOutNo.Click;
|
||||||
|
initkc();
|
||||||
|
end; }
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPlanScanInEdit.IOPositionBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||||
|
with frmZDYHelp do
|
||||||
|
begin
|
||||||
|
MainType := 'Cust';
|
||||||
|
flag := 'AREA';
|
||||||
|
flagname := '区域';
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
IOPosition.text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmZDYHelp.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPlanScanInEdit.carPlateBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
try
|
||||||
|
frmMachineManageSel := TfrmMachineManageSel.Create(Application);
|
||||||
|
with frmMachineManageSel do
|
||||||
|
begin
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
carPlate.text := Trim(CDS_HZ.fieldbyname('VNO').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmMachineManageSel.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPlanScanInEdit.btnGetOutNoClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
maxNo: string;
|
||||||
|
begin
|
||||||
|
if GetLSNo(ADOQueryCmd, maxNo, 'RK', 'Trade_Cloth_IO', 3, 1) = False then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('取入库单号失败!', '提示', 0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
InNo.Text := Trim(maxNo);
|
||||||
|
CRTime.DateTime := SGetServerDate(ADOQueryTemp);
|
||||||
|
InitKC();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPlanScanInEdit.ToolButton7Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
tv3.Controller.EditingController.ShowEdit();
|
||||||
|
Close;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPlanScanInEdit.ToolButton8Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WriteCxGrid(self.caption + 'Tv3', Tv3, '成品仓库');
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
|
|
@ -21,9 +21,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
|
||||||
Height = 518
|
Height = 518
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ExplicitLeft = 152
|
|
||||||
ExplicitTop = 36
|
ExplicitTop = 36
|
||||||
ExplicitHeight = 732
|
|
||||||
object Tv1: TcxGridDBTableView
|
object Tv1: TcxGridDBTableView
|
||||||
OnMouseDown = Tv1MouseDown
|
OnMouseDown = Tv1MouseDown
|
||||||
Navigator.Buttons.CustomButtons = <>
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
|
@ -181,6 +179,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
|
||||||
Default = True
|
Default = True
|
||||||
Kind = bkEllipsis
|
Kind = bkEllipsis
|
||||||
end>
|
end>
|
||||||
|
Properties.ReadOnly = True
|
||||||
Properties.OnButtonClick = Tv1Column8PropertiesButtonClick
|
Properties.OnButtonClick = Tv1Column8PropertiesButtonClick
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 77
|
Width = 77
|
||||||
|
|
|
||||||
|
|
@ -243,7 +243,7 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
|
||||||
Align = alClient
|
Align = alClient
|
||||||
PopupMenu = PopupMenu1
|
PopupMenu = PopupMenu1
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
ExplicitTop = 116
|
ExplicitTop = 123
|
||||||
object Tv1: TcxGridDBTableView
|
object Tv1: TcxGridDBTableView
|
||||||
Navigator.Buttons.CustomButtons = <>
|
Navigator.Buttons.CustomButtons = <>
|
||||||
ScrollbarAnnotations.CustomAnnotations = <>
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
|
|
||||||
|
|
@ -3,14 +3,15 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
|
||||||
Top = 4
|
Top = 4
|
||||||
Caption = #26032#20313#35746#21333#24405#20837
|
Caption = #26032#20313#35746#21333#24405#20837
|
||||||
ClientHeight = 736
|
ClientHeight = 736
|
||||||
ClientWidth = 1921
|
ClientWidth = 1540
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
Font.Height = -16
|
Font.Height = -16
|
||||||
Position = poMainFormCenter
|
Position = poMainFormCenter
|
||||||
WindowState = wsMaximized
|
WindowState = wsMaximized
|
||||||
OnClose = FormClose
|
OnClose = FormClose
|
||||||
ExplicitLeft = -422
|
ExplicitLeft = -347
|
||||||
ExplicitWidth = 1937
|
ExplicitTop = -270
|
||||||
|
ExplicitWidth = 1556
|
||||||
ExplicitHeight = 775
|
ExplicitHeight = 775
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 21
|
TextHeight = 21
|
||||||
|
|
@ -18,7 +19,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1921
|
Width = 1540
|
||||||
Height = 38
|
Height = 38
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ButtonHeight = 38
|
ButtonHeight = 38
|
||||||
|
|
@ -84,7 +85,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 193
|
Top = 193
|
||||||
Width = 1921
|
Width = 1540
|
||||||
Height = 30
|
Height = 30
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 99
|
ButtonWidth = 99
|
||||||
|
|
@ -121,7 +122,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
|
||||||
object Panel2: TPanel [2]
|
object Panel2: TPanel [2]
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 223
|
Top = 223
|
||||||
Width = 1921
|
Width = 1540
|
||||||
Height = 513
|
Height = 513
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Caption = 'Panel2'
|
Caption = 'Panel2'
|
||||||
|
|
@ -129,7 +130,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
|
||||||
object Panel3: TPanel
|
object Panel3: TPanel
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 1633
|
Width = 1252
|
||||||
Height = 511
|
Height = 511
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Caption = 'Panel2'
|
Caption = 'Panel2'
|
||||||
|
|
@ -137,7 +138,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
|
||||||
object cxGrid1: TcxGrid
|
object cxGrid1: TcxGrid
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 1631
|
Width = 1250
|
||||||
Height = 509
|
Height = 509
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
|
|
@ -418,12 +419,19 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
|
||||||
object Tv1Column19: TcxGridDBColumn
|
object Tv1Column19: TcxGridDBColumn
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Caption = #20986#24211#25968#37327
|
Caption = #20986#24211#25968#37327
|
||||||
DataBinding.FieldName = 'OutQty'
|
DataBinding.FieldName = 'SubOutQty'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 89
|
Width = 89
|
||||||
end
|
end
|
||||||
|
object Tv1Column23: TcxGridDBColumn
|
||||||
|
Caption = #20986#24211#21305#25968
|
||||||
|
DataBinding.FieldName = 'SubOutPS'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 60
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxGrid1Level1: TcxGridLevel
|
object cxGrid1Level1: TcxGridLevel
|
||||||
GridView = Tv1
|
GridView = Tv1
|
||||||
|
|
@ -431,7 +439,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object Panel4: TPanel
|
object Panel4: TPanel
|
||||||
Left = 1634
|
Left = 1253
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 286
|
Width = 286
|
||||||
Height = 511
|
Height = 511
|
||||||
|
|
@ -545,7 +553,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
|
||||||
object ScrollBox1: TScrollBox [3]
|
object ScrollBox1: TScrollBox [3]
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 38
|
Top = 38
|
||||||
Width = 1921
|
Width = 1540
|
||||||
Height = 155
|
Height = 155
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BevelInner = bvNone
|
BevelInner = bvNone
|
||||||
|
|
|
||||||
|
|
@ -138,6 +138,7 @@ type
|
||||||
TBAdd: TToolButton;
|
TBAdd: TToolButton;
|
||||||
ToolButton6: TToolButton;
|
ToolButton6: TToolButton;
|
||||||
TBEdit: TToolButton;
|
TBEdit: TToolButton;
|
||||||
|
Tv1Column23: TcxGridDBColumn;
|
||||||
procedure TBCloseClick(Sender: TObject);
|
procedure TBCloseClick(Sender: TObject);
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure TBSaveClick(Sender: TObject);
|
procedure TBSaveClick(Sender: TObject);
|
||||||
|
|
@ -359,6 +360,8 @@ begin
|
||||||
Close;
|
Close;
|
||||||
SQL.Clear;
|
SQL.Clear;
|
||||||
sql.Add('select A.*,StkQty =(select sum(isnull(X.StkQty,0)) from Bs_Cloth_IO X where X.C_Code=A.C_Code and X.C_Color=A.C_Color) ');
|
sql.Add('select A.*,StkQty =(select sum(isnull(X.StkQty,0)) from Bs_Cloth_IO X where X.C_Code=A.C_Code and X.C_Color=A.C_Color) ');
|
||||||
|
sql.Add(',SubOutQty =(select sum(isnull(X.Qty,0)) from Trade_Market_Sub_Qty X where X.TMSID=A.TMSID ) ');
|
||||||
|
sql.Add(',SubOutPS =(select count(isnull(X.TMSQID,0)) from Trade_Market_Sub_Qty X where X.TMSID=A.TMSID ) ');
|
||||||
sql.Add('from Trade_Market_Sub A ');
|
sql.Add('from Trade_Market_Sub A ');
|
||||||
SQL.adD('where 1=1 ');
|
SQL.adD('where 1=1 ');
|
||||||
if PState = 1 then
|
if PState = 1 then
|
||||||
|
|
|
||||||
|
|
@ -146,8 +146,6 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
|
||||||
Height = 232
|
Height = 232
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
ExplicitTop = 407
|
|
||||||
ExplicitHeight = 226
|
|
||||||
object Tv2: TcxGridDBTableView
|
object Tv2: TcxGridDBTableView
|
||||||
Navigator.Buttons.CustomButtons = <>
|
Navigator.Buttons.CustomButtons = <>
|
||||||
ScrollbarAnnotations.CustomAnnotations = <>
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
|
@ -235,8 +233,6 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
|
||||||
Height = 634
|
Height = 634
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
ExplicitLeft = 789
|
|
||||||
ExplicitWidth = 634
|
|
||||||
object ToolBar2: TToolBar
|
object ToolBar2: TToolBar
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 1
|
Left = 1
|
||||||
|
|
@ -251,7 +247,6 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
|
||||||
List = True
|
List = True
|
||||||
ShowCaptions = True
|
ShowCaptions = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ExplicitWidth = 632
|
|
||||||
end
|
end
|
||||||
object cxGrid3: TcxGrid
|
object cxGrid3: TcxGrid
|
||||||
Left = 1
|
Left = 1
|
||||||
|
|
@ -343,9 +338,6 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
|
||||||
Height = 238
|
Height = 238
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
ExplicitTop = 407
|
|
||||||
ExplicitWidth = 632
|
|
||||||
ExplicitHeight = 226
|
|
||||||
object Tv4: TcxGridDBTableView
|
object Tv4: TcxGridDBTableView
|
||||||
Navigator.Buttons.CustomButtons = <>
|
Navigator.Buttons.CustomButtons = <>
|
||||||
ScrollbarAnnotations.CustomAnnotations = <>
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
|
|
||||||
|
|
@ -130,7 +130,11 @@ end;
|
||||||
procedure TfrmTradeMarketList_JD.FormShow(Sender: TObject);
|
procedure TfrmTradeMarketList_JD.FormShow(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
InitGrid();
|
InitGrid1();
|
||||||
|
InitGrid2();
|
||||||
|
InitGrid3();
|
||||||
|
InitGrid4();
|
||||||
|
|
||||||
// InitForm();
|
// InitForm();
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
@ -161,7 +165,8 @@ begin
|
||||||
Close;
|
Close;
|
||||||
sql.clear;
|
sql.clear;
|
||||||
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
||||||
sql.add('where 1=1');
|
sql.add('where 1=1 ');
|
||||||
|
sql.add('and AddressArea=''温岭县W'' ');
|
||||||
Open;
|
Open;
|
||||||
end;
|
end;
|
||||||
SCreateCDS(ADO_1, CDS_1);
|
SCreateCDS(ADO_1, CDS_1);
|
||||||
|
|
@ -176,6 +181,7 @@ begin
|
||||||
sql.clear;
|
sql.clear;
|
||||||
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
||||||
sql.add('where 1=1');
|
sql.add('where 1=1');
|
||||||
|
sql.add('and AddressArea=''东塘线D'' ');
|
||||||
Open;
|
Open;
|
||||||
end;
|
end;
|
||||||
SCreateCDS(ADO_2, CDS_2);
|
SCreateCDS(ADO_2, CDS_2);
|
||||||
|
|
@ -190,6 +196,7 @@ begin
|
||||||
sql.clear;
|
sql.clear;
|
||||||
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
||||||
sql.add('where 1=1');
|
sql.add('where 1=1');
|
||||||
|
sql.add('and AddressArea=''石粘线S'' ');
|
||||||
Open;
|
Open;
|
||||||
end;
|
end;
|
||||||
SCreateCDS(ADO_3, CDS_3);
|
SCreateCDS(ADO_3, CDS_3);
|
||||||
|
|
@ -204,6 +211,7 @@ begin
|
||||||
sql.clear;
|
sql.clear;
|
||||||
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
||||||
sql.add('where 1=1');
|
sql.add('where 1=1');
|
||||||
|
sql.add('and AddressArea=''上洋林Y'' ');
|
||||||
Open;
|
Open;
|
||||||
end;
|
end;
|
||||||
SCreateCDS(ADO_4, CDS_4);
|
SCreateCDS(ADO_4, CDS_4);
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user