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

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2024-09-26 14:31:12 +08:00
parent 933b06c86b
commit 6c5be1a5d7
21 changed files with 294 additions and 86 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
A09财务通用管理/Financial.identcache
View File

Binary file not shown.

18
A09财务通用管理/U_PayableList.dfm
View File

@ -6,7 +6,6 @@ inherited frmPayableList: TfrmPayableList
ClientWidth = 1540 ClientWidth = 1540
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitLeft = -7
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 629 ExplicitHeight = 629
PixelsPerInch = 96 PixelsPerInch = 96
@ -128,6 +127,7 @@ inherited frmPayableList: TfrmPayableList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 32
object Label3: TLabel object Label3: TLabel
Left = 172 Left = 172
Top = 13 Top = 13
@ -176,6 +176,13 @@ inherited frmPayableList: TfrmPayableList
Height = 12 Height = 12
Caption = #19978#32423#21333#20301 Caption = #19978#32423#21333#20301
end end
object Label1: TLabel
Left = 637
Top = 13
Width = 48
Height = 12
Caption = #35745#21010#21333#21495
end
object OppCoName: TEdit object OppCoName: TEdit
Tag = 2 Tag = 2
Left = 228 Left = 228
@ -258,6 +265,15 @@ inherited frmPayableList: TfrmPayableList
TabOrder = 8 TabOrder = 8
OnKeyPress = OppCoNameKeyPress OnKeyPress = OppCoNameKeyPress
end end
object OrderNo: TEdit
Tag = 2
Left = 687
Top = 9
Width = 87
Height = 20
TabOrder = 9
OnKeyPress = OppCoNameKeyPress
end
end end
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0

2
A09财务通用管理/U_PayableList.pas
View File

@ -97,6 +97,8 @@ type
Tv1Column28: TcxGridDBColumn; Tv1Column28: TcxGridDBColumn;
Tv1Column29: TcxGridDBColumn; Tv1Column29: TcxGridDBColumn;
Tv1Column30: TcxGridDBColumn; Tv1Column30: TcxGridDBColumn;
Label1: TLabel;
OrderNo: TEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject); procedure btnDelClick(Sender: TObject);

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

@ -34,7 +34,6 @@ object frmReceivableInput: TfrmReceivableInput
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 932
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -691,7 +690,7 @@ object frmReceivableInput: TfrmReceivableInput
TabOrder = 25 TabOrder = 25
end end
object SailingSchedule: TDateTimePicker object SailingSchedule: TDateTimePicker
Left = 728 Left = 730
Top = 195 Top = 195
Width = 140 Width = 140
Height = 20 Height = 20

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

@ -154,6 +154,10 @@ begin
OppCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppCoNo').AsString); OppCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppCoNo').AsString);
OurCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OurCoNo').AsString); OurCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OurCoNo').AsString);
OppParentCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppParentCoNo').AsString); OppParentCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppParentCoNo').AsString);
if ADOQueryMain.FieldByName('SailingSchedule').ASString='' then
begin
SailingSchedule.DateTime := SGetServerDateTime(ADOQueryTemp);
end;
end end
else else
begin begin

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

@ -274,7 +274,6 @@ inherited frmReceivableList: TfrmReceivableList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 142
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False

2
T01贸易生产计划/U_GetDllForm.pas
View File

@ -76,7 +76,7 @@ begin
pswd := 'rightsoft@5740'; pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '²éѯ'; Parameters1 := '完成';
// DName:='ADMIN'; // DName:='ADMIN';
end end
else else

43
T01贸易生产计划/U_TradePlanList.dfm
View File

@ -119,19 +119,19 @@ inherited frmTradePlanList: TfrmTradePlanList
AutoSize = True AutoSize = True
Caption = #25552#20132 Caption = #25552#20132
ImageIndex = 12 ImageIndex = 12
Wrap = True
OnClick = TBTJClick OnClick = TBTJClick
end end
object TBTJCX: TToolButton object TBTJCX: TToolButton
Left = 829 Left = 0
Top = 0 Top = 38
AutoSize = True AutoSize = True
Caption = #25552#20132#25764#38144 Caption = #25552#20132#25764#38144
ImageIndex = 11 ImageIndex = 11
Wrap = True
OnClick = TBTJCXClick OnClick = TBTJCXClick
end end
object Tchk: TToolButton object Tchk: TToolButton
Left = 0 Left = 95
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #23457#26680 Caption = #23457#26680
@ -139,15 +139,31 @@ inherited frmTradePlanList: TfrmTradePlanList
OnClick = TchkClick OnClick = TchkClick
end end
object Tnochk: TToolButton object Tnochk: TToolButton
Left = 71 Left = 166
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #25764#38144#23457#26680 Caption = #25764#38144#23457#26680
ImageIndex = 11 ImageIndex = 11
OnClick = TnochkClick OnClick = TnochkClick
end end
object ToolButton7: TToolButton
Left = 261
Top = 38
AutoSize = True
Caption = #26242#23384
ImageIndex = 8
OnClick = ToolButton7Click
end
object ToolButton8: TToolButton
Left = 332
Top = 38
AutoSize = True
Caption = #21462#28040#26242#23384
ImageIndex = 9
OnClick = ToolButton8Click
end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 166 Left = 427
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #29983#20135#23436#25104 Caption = #29983#20135#23436#25104
@ -155,7 +171,7 @@ inherited frmTradePlanList: TfrmTradePlanList
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 261 Left = 522
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #29983#20135#23436#25104#25764#38144 Caption = #29983#20135#23436#25104#25764#38144
@ -163,7 +179,7 @@ inherited frmTradePlanList: TfrmTradePlanList
OnClick = ToolButton6Click OnClick = ToolButton6Click
end end
object TWC: TToolButton object TWC: TToolButton
Left = 380 Left = 641
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #23436#25104 Caption = #23436#25104
@ -171,7 +187,7 @@ inherited frmTradePlanList: TfrmTradePlanList
OnClick = TWCClick OnClick = TWCClick
end end
object TNowc: TToolButton object TNowc: TToolButton
Left = 451 Left = 712
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #25764#38144#23436#25104 Caption = #25764#38144#23436#25104
@ -179,7 +195,7 @@ inherited frmTradePlanList: TfrmTradePlanList
OnClick = TNowcClick OnClick = TNowcClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 546 Left = 807
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -187,7 +203,7 @@ inherited frmTradePlanList: TfrmTradePlanList
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 641 Left = 902
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -622,11 +638,12 @@ inherited frmTradePlanList: TfrmTradePlanList
TabOrder = 2 TabOrder = 2
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
Properties.TabIndex = 2 Properties.TabIndex = 0
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
' '#24453#25552#20132' ' ' '#24453#25552#20132' '
' '#24453#23457#26680' ' ' '#24453#23457#26680' '
' '#24050#23457#26680 ' '#24050#23457#26680' '
' '#26242#23384' '
' '#29983#20135#23436#25104' ' ' '#29983#20135#23436#25104' '
' '#24050#23436#25104' ' ' '#24050#23436#25104' '
' '#20840#37096' ') ' '#20840#37096' ')

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

@ -159,6 +159,8 @@ type
ToolButton6: TToolButton; ToolButton6: TToolButton;
Label6: TLabel; Label6: TLabel;
DBFS: TBtnEditC; DBFS: TBtnEditC;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -207,6 +209,8 @@ type
procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject);
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
private private
DQdate: TDateTime; DQdate: TDateTime;
FOrderNo, FCustName, FConNo, FBuyConNo, FC_Code, FC_Name, FHXYS, FCPMC, FKZPZ, FOrdQty, FOrdUnit: string; FOrderNo, FCustName, FConNo, FBuyConNo, FC_Code, FC_Name, FHXYS, FCPMC, FKZPZ, FOrdQty, FOrdUnit: string;
@ -268,8 +272,10 @@ begin
TBDel.Enabled := False; TBDel.Enabled := False;
ToolButton5.Enabled := False; ToolButton5.Enabled := False;
ToolButton6.Enabled := False; ToolButton6.Enabled := False;
ToolButton7.Enabled := False;
ToolButton8.Enabled := False;
if canshu1 <> '²éѯ' then if (canshu1 = '录入') or (canshu1='管理') then
begin begin
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
@ -294,33 +300,40 @@ begin
btnCopy.Enabled := True; btnCopy.Enabled := True;
ToolButton5.Enabled := True; ToolButton5.Enabled := True;
ToolButton7.Enabled := True;
tnochk.Enabled := True; tnochk.Enabled := True;
end; end;
3: 3:
begin begin
ToolButton6.Enabled := True;
TWC.Enabled := True; ToolButton8.Enabled := True;
// TNowc.Enabled := True;
btnCopy.Enabled := True; btnCopy.Enabled := True;
end; end;
4: 4:
begin begin
TNowc.Enabled := True; ToolButton6.Enabled := True;
// TWC.Enabled := True;
// TNowc.Enabled := True;
btnCopy.Enabled := True;
end;
5:
begin
// TNowc.Enabled := True;
btnCopy.Enabled := True; btnCopy.Enabled := True;
end; end;
end; end;
end end
else else if canshu1 = '完成' then
begin begin
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
3: 4:
begin begin
// ToolButton6.Enabled := True; // ToolButton6.Enabled := True;
TWC.Enabled := True; TWC.Enabled := True;
// TNowc.Enabled := True; // TNowc.Enabled := True;
// btnCopy.Enabled := True; // btnCopy.Enabled := True;
end; end;
4: 5:
begin begin
TNowc.Enabled := True; TNowc.Enabled := True;
// btnCopy.Enabled := True; // btnCopy.Enabled := True;
@ -1249,6 +1262,11 @@ begin
// Application.MessageBox('不能操作他人的数据!', '提示', 0); // Application.MessageBox('不能操作他人的数据!', '提示', 0);
// Exit; // Exit;
// end; // end;
if cxTabControl1.TabIndex <> 4 then
begin
Application.MessageBox('只能在生产完成状态下进行生产完成撤销操作!', '提示', 0);
Exit;
end;
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
Exit; Exit;
try try
@ -1276,6 +1294,76 @@ begin
end; end;
procedure TfrmTradePlanList.ToolButton7Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if cxTabControl1.TabIndex <> 2 then
begin
Application.MessageBox('只能在已审核状态下进行暂存操作!', '提示', 0);
Exit;
end;
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
Exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Trade_Plan_Main SET status=''7'' ');
sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('计划单暂存')));
sql.Add(',' + quotedstr(trim('计划单号：' + trim(Order_Main.FieldByName('orderNO').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
end;
except
application.MessageBox('计划单暂存失败！', '提示信息', 0);
end;
TBRafresh.Click;
end;
procedure TfrmTradePlanList.ToolButton8Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if cxTabControl1.TabIndex <> 3 then
begin
Application.MessageBox('只能在暂存状态下进行取消暂存操作!', '提示', 0);
Exit;
end;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Trade_Plan_Main SET status=''9'' ');
sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('计划单取消暂存')));
sql.Add(',' + quotedstr(trim('计划单号：' + trim(Order_Main.FieldByName('orderNO').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
end;
TBRafresh.Click;
except
application.MessageBox('计划单取消暂存失败！', '提示信息', 0);
end;
end;
procedure TfrmTradePlanList.cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); procedure TfrmTradePlanList.cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
@ -1433,6 +1521,11 @@ begin
// Application.MessageBox('不能操作他人的数据!', '提示', 0); // Application.MessageBox('不能操作他人的数据!', '提示', 0);
// Exit; // Exit;
// end; // end;
if cxTabControl1.TabIndex <> 5 then
begin
Application.MessageBox('只能在已完成状态下进行撤销完成操作!', '提示', 0);
Exit;
end;
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
Exit; Exit;
try try
@ -1440,7 +1533,7 @@ begin
begin begin
close; close;
sql.Clear; sql.Clear;
sql.Add('update Trade_Plan_Main SET status=''11'' '); sql.Add('update Trade_Plan_Main SET status=''9'' ');
sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName))); sql.Add(' ' + quotedstr(trim(DName)));

77
T01贸易生产计划/U_TradePlanSchedule.dfm
View File

@ -87,8 +87,6 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitLeft = 1
ExplicitTop = 37
object Label2: TLabel object Label2: TLabel
Left = 22 Left = 22
Top = 10 Top = 10
@ -210,6 +208,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
TabOrder = 2 TabOrder = 2
object TV1: TcxGridDBBandedTableView object TV1: TcxGridDBBandedTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCustomDrawCell = TV1CustomDrawCell OnCustomDrawCell = TV1CustomDrawCell
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
@ -355,6 +354,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object V1Column1: TcxGridDBBandedColumn object V1Column1: TcxGridDBBandedColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'CustName' DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -365,6 +365,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object VCConNo: TcxGridDBBandedColumn object VCConNo: TcxGridDBBandedColumn
Caption = #21512#21516#21495 Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo' DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 79 Width = 79
@ -375,6 +376,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object V1Column16: TcxGridDBBandedColumn object V1Column16: TcxGridDBBandedColumn
Caption = #24320#31080#37329#39069 Caption = #24320#31080#37329#39069
DataBinding.FieldName = 'KPMoney' DataBinding.FieldName = 'KPMoney'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -387,6 +389,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object V1Column17: TcxGridDBBandedColumn object V1Column17: TcxGridDBBandedColumn
Caption = #26410#24320#31080 Caption = #26410#24320#31080
DataBinding.FieldName = 'WKPMoney' DataBinding.FieldName = 'WKPMoney'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -399,6 +402,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object V1Column18: TcxGridDBBandedColumn object V1Column18: TcxGridDBBandedColumn
Caption = #24320#31080#21333#20301 Caption = #24320#31080#21333#20301
DataBinding.FieldName = 'KPFactoryName' DataBinding.FieldName = 'KPFactoryName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -411,6 +415,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object V1Column19: TcxGridDBBandedColumn object V1Column19: TcxGridDBBandedColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'KPnote' DataBinding.FieldName = 'KPnote'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -423,6 +428,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object V1Column20: TcxGridDBBandedColumn object V1Column20: TcxGridDBBandedColumn
Caption = #31080#21495 Caption = #31080#21495
DataBinding.FieldName = 'InvoiceNo' DataBinding.FieldName = 'InvoiceNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -435,6 +441,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column5: TcxGridDBBandedColumn object TV1Column5: TcxGridDBBandedColumn
Caption = #26579#25972#23433#25490#25968 Caption = #26579#25972#23433#25490#25968
DataBinding.FieldName = 'RZAPS' DataBinding.FieldName = 'RZAPS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 84 Width = 84
@ -445,16 +452,18 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column13: TcxGridDBBandedColumn object TV1Column13: TcxGridDBBandedColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 189 Width = 189
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 14 Position.ColIndex = 15
Position.RowIndex = 0 Position.RowIndex = 0
end end
object TV1Column14: TcxGridDBBandedColumn object TV1Column14: TcxGridDBBandedColumn
Caption = #21152#24037#20837 Caption = #21152#24037#20837
DataBinding.FieldName = 'DJBDH' DataBinding.FieldName = 'DJBDH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 77 Width = 77
@ -465,6 +474,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column15: TcxGridDBBandedColumn object TV1Column15: TcxGridDBBandedColumn
Caption = #20837#24211 Caption = #20837#24211
DataBinding.FieldName = 'CPRKPiece' DataBinding.FieldName = 'CPRKPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 77 Width = 77
@ -475,6 +485,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column12: TcxGridDBBandedColumn object TV1Column12: TcxGridDBBandedColumn
Caption = #20986#26816#39564 Caption = #20986#26816#39564
DataBinding.FieldName = 'DJBTP' DataBinding.FieldName = 'DJBTP'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 77 Width = 77
@ -485,6 +496,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column21: TcxGridDBBandedColumn object TV1Column21: TcxGridDBBandedColumn
Caption = #20986#24211 Caption = #20986#24211
DataBinding.FieldName = 'CPCKPiece' DataBinding.FieldName = 'CPCKPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 77 Width = 77
@ -495,6 +507,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column23: TcxGridDBBandedColumn object TV1Column23: TcxGridDBBandedColumn
Caption = #24211#23384 Caption = #24211#23384
DataBinding.FieldName = 'CPKCPiece' DataBinding.FieldName = 'CPKCPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 77 Width = 77
@ -505,17 +518,19 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column26: TcxGridDBBandedColumn object TV1Column26: TcxGridDBBandedColumn
Caption = #19979#21333#25968#37327 Caption = #19979#21333#25968#37327
DataBinding.FieldName = 'OrdQty' DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 67 Width = 67
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 16 Position.ColIndex = 17
Position.RowIndex = 0 Position.RowIndex = 0
end end
object TV1Column30: TcxGridDBBandedColumn object TV1Column30: TcxGridDBBandedColumn
Caption = #26579#25972#21457#36135#25968 Caption = #26579#25972#21457#36135#25968
DataBinding.FieldName = 'RZFHS' DataBinding.FieldName = 'RZFHS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 77 Width = 77
@ -526,6 +541,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column32: TcxGridDBBandedColumn object TV1Column32: TcxGridDBBandedColumn
Caption = #25237#22383 Caption = #25237#22383
DataBinding.FieldName = 'PBTPPiece' DataBinding.FieldName = 'PBTPPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 60 Width = 60
@ -536,17 +552,19 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column33: TcxGridDBBandedColumn object TV1Column33: TcxGridDBBandedColumn
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'OrdUnit' DataBinding.FieldName = 'OrdUnit'
DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 69 Width = 69
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 17 Position.ColIndex = 18
Position.RowIndex = 0 Position.RowIndex = 0
end end
object TV1Column27: TcxGridDBBandedColumn object TV1Column27: TcxGridDBBandedColumn
Caption = #35745#21010#21333#21495 Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo' DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 115 Width = 115
@ -557,6 +575,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column3: TcxGridDBBandedColumn object TV1Column3: TcxGridDBBandedColumn
Caption = #21040#36135 Caption = #21040#36135
DataBinding.FieldName = 'PBDHPiece' DataBinding.FieldName = 'PBDHPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 63 Width = 63
@ -567,6 +586,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column2: TcxGridDBBandedColumn object TV1Column2: TcxGridDBBandedColumn
Caption = #26816#39564 Caption = #26816#39564
DataBinding.FieldName = 'JYPiece' DataBinding.FieldName = 'JYPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 77 Width = 77
@ -577,6 +597,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column7: TcxGridDBBandedColumn object TV1Column7: TcxGridDBBandedColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 180 Width = 180
Position.BandIndex = 0 Position.BandIndex = 0
@ -586,6 +607,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column4: TcxGridDBBandedColumn object TV1Column4: TcxGridDBBandedColumn
Caption = #26579#25972 Caption = #26579#25972
DataBinding.FieldName = 'RZAPS' DataBinding.FieldName = 'RZAPS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Position.BandIndex = 2 Position.BandIndex = 2
Position.ColIndex = 0 Position.ColIndex = 0
@ -594,6 +616,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column8: TcxGridDBBandedColumn object TV1Column8: TcxGridDBBandedColumn
Caption = #21457#36135 Caption = #21457#36135
DataBinding.FieldName = 'RZFHS' DataBinding.FieldName = 'RZFHS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Position.BandIndex = 2 Position.BandIndex = 2
Position.ColIndex = 1 Position.ColIndex = 1
@ -602,6 +625,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column9: TcxGridDBBandedColumn object TV1Column9: TcxGridDBBandedColumn
Caption = #21518#21152#24037'1'#25910 Caption = #21518#21152#24037'1'#25910
DataBinding.FieldName = 'HJGDH1' DataBinding.FieldName = 'HJGDH1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 72 Width = 72
Position.BandIndex = 3 Position.BandIndex = 3
@ -611,6 +635,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column11: TcxGridDBBandedColumn object TV1Column11: TcxGridDBBandedColumn
Caption = #21518#21152#24037'1'#21457 Caption = #21518#21152#24037'1'#21457
DataBinding.FieldName = 'HJGTP1' DataBinding.FieldName = 'HJGTP1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 72 Width = 72
Position.BandIndex = 3 Position.BandIndex = 3
@ -620,6 +645,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column16: TcxGridDBBandedColumn object TV1Column16: TcxGridDBBandedColumn
Caption = #21518#21152#24037'2'#25910 Caption = #21518#21152#24037'2'#25910
DataBinding.FieldName = 'HJGDH2' DataBinding.FieldName = 'HJGDH2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 72 Width = 72
Position.BandIndex = 3 Position.BandIndex = 3
@ -629,6 +655,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column17: TcxGridDBBandedColumn object TV1Column17: TcxGridDBBandedColumn
Caption = #21518#21152#24037'2'#21457 Caption = #21518#21152#24037'2'#21457
DataBinding.FieldName = 'HJGTP2' DataBinding.FieldName = 'HJGTP2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 72 Width = 72
Position.BandIndex = 3 Position.BandIndex = 3
@ -638,6 +665,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column18: TcxGridDBBandedColumn object TV1Column18: TcxGridDBBandedColumn
Caption = #21518#21152#24037'3'#25910 Caption = #21518#21152#24037'3'#25910
DataBinding.FieldName = 'HJGDH3' DataBinding.FieldName = 'HJGDH3'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 72 Width = 72
Position.BandIndex = 3 Position.BandIndex = 3
@ -647,6 +675,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column19: TcxGridDBBandedColumn object TV1Column19: TcxGridDBBandedColumn
Caption = #21518#21152#24037'3'#21457 Caption = #21518#21152#24037'3'#21457
DataBinding.FieldName = 'HJGTP3' DataBinding.FieldName = 'HJGTP3'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 72 Width = 72
Position.BandIndex = 3 Position.BandIndex = 3
@ -656,6 +685,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column6: TcxGridDBBandedColumn object TV1Column6: TcxGridDBBandedColumn
Caption = #37319#36141 Caption = #37319#36141
DataBinding.FieldName = 'CGAPS' DataBinding.FieldName = 'CGAPS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 58 Width = 58
Position.BandIndex = 1 Position.BandIndex = 1
@ -665,6 +695,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column20: TcxGridDBBandedColumn object TV1Column20: TcxGridDBBandedColumn
Caption = #25105#26041#21333#20301 Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName' DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 67 Width = 67
Position.BandIndex = 0 Position.BandIndex = 0
@ -674,24 +705,27 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column22: TcxGridDBBandedColumn object TV1Column22: TcxGridDBBandedColumn
Caption = #19979#21333#25968#37327 Caption = #19979#21333#25968#37327
DataBinding.FieldName = 'OrdQty' DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 61 Width = 61
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 11 Position.ColIndex = 12
Position.RowIndex = 0 Position.RowIndex = 0
end end
object TV1Column24: TcxGridDBBandedColumn object TV1Column24: TcxGridDBBandedColumn
Caption = #36127#36131#20154 Caption = #36127#36131#20154
DataBinding.FieldName = 'FZR' DataBinding.FieldName = 'FZR'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 76 Width = 76
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 13 Position.ColIndex = 14
Position.RowIndex = 0 Position.RowIndex = 0
end end
object TV1Column25: TcxGridDBBandedColumn object TV1Column25: TcxGridDBBandedColumn
Caption = #19979#21333#26085#26399 Caption = #19979#21333#26085#26399
DataBinding.FieldName = 'OrdDate' DataBinding.FieldName = 'OrdDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 69 Width = 69
Position.BandIndex = 0 Position.BandIndex = 0
@ -701,15 +735,17 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column29: TcxGridDBBandedColumn object TV1Column29: TcxGridDBBandedColumn
Caption = #29983#20135#35201#32032 Caption = #29983#20135#35201#32032
DataBinding.FieldName = 'MFKZ' DataBinding.FieldName = 'MFKZ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 94 Width = 94
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 12 Position.ColIndex = 13
Position.RowIndex = 0 Position.RowIndex = 0
end end
object TV1Column31: TcxGridDBBandedColumn object TV1Column31: TcxGridDBBandedColumn
Caption = #19994#21153#21592 Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser' DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 61 Width = 61
Position.BandIndex = 0 Position.BandIndex = 0
@ -719,6 +755,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column34: TcxGridDBBandedColumn object TV1Column34: TcxGridDBBandedColumn
Caption = #21046#21333#20154 Caption = #21046#21333#20154
DataBinding.FieldName = 'Filler' DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 51 Width = 51
Position.BandIndex = 0 Position.BandIndex = 0
@ -728,15 +765,17 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column35: TcxGridDBBandedColumn object TV1Column35: TcxGridDBBandedColumn
Caption = #23458#25143#21333#21495 Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 67 Width = 67
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 10 Position.ColIndex = 11
Position.RowIndex = 0 Position.RowIndex = 0
end end
object TV1Column36: TcxGridDBBandedColumn object TV1Column36: TcxGridDBBandedColumn
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'OrdUnit' DataBinding.FieldName = 'OrdUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 44 Width = 44
Position.BandIndex = 0 Position.BandIndex = 0
@ -744,6 +783,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
Position.RowIndex = 0 Position.RowIndex = 0
end end
object TV1Column37: TcxGridDBBandedColumn object TV1Column37: TcxGridDBBandedColumn
DataBinding.IsNullValueType = True
Position.BandIndex = -1 Position.BandIndex = -1
Position.ColIndex = -1 Position.ColIndex = -1
Position.RowIndex = -1 Position.RowIndex = -1
@ -751,6 +791,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column1: TcxGridDBBandedColumn object TV1Column1: TcxGridDBBandedColumn
Caption = #21152#24037#20837 Caption = #21152#24037#20837
DataBinding.FieldName = 'DJBDH' DataBinding.FieldName = 'DJBDH'
DataBinding.IsNullValueType = True
Position.BandIndex = -1 Position.BandIndex = -1
Position.ColIndex = -1 Position.ColIndex = -1
Position.RowIndex = -1 Position.RowIndex = -1
@ -758,6 +799,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column10: TcxGridDBBandedColumn object TV1Column10: TcxGridDBBandedColumn
Caption = #20986#26816#39564 Caption = #20986#26816#39564
DataBinding.FieldName = 'DJBTP' DataBinding.FieldName = 'DJBTP'
DataBinding.IsNullValueType = True
Position.BandIndex = -1 Position.BandIndex = -1
Position.ColIndex = -1 Position.ColIndex = -1
Position.RowIndex = -1 Position.RowIndex = -1
@ -765,6 +807,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column28: TcxGridDBBandedColumn object TV1Column28: TcxGridDBBandedColumn
Caption = #21152#24037#20132#26399 Caption = #21152#24037#20132#26399
DataBinding.FieldName = 'DlyDate' DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 6 Position.ColIndex = 6
Position.RowIndex = 0 Position.RowIndex = 0
@ -772,6 +815,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column38: TcxGridDBBandedColumn object TV1Column38: TcxGridDBBandedColumn
Caption = #29992#24211#23384 Caption = #29992#24211#23384
DataBinding.FieldName = 'FHPiece' DataBinding.FieldName = 'FHPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Position.BandIndex = 6 Position.BandIndex = 6
Position.ColIndex = 0 Position.ColIndex = 0
@ -780,9 +824,20 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
object TV1Column39: TcxGridDBBandedColumn object TV1Column39: TcxGridDBBandedColumn
Caption = #29366#24577 Caption = #29366#24577
DataBinding.FieldName = 'DQFlag' DataBinding.FieldName = 'DQFlag'
DataBinding.IsNullValueType = True
Visible = False Visible = False
Position.BandIndex = 0 Position.BandIndex = 0
Position.ColIndex = 15 Position.ColIndex = 16
Position.RowIndex = 0
end
object TV1Column40: TcxGridDBBandedColumn
Caption = #22797#21333#21495
DataBinding.FieldName = 'FOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 58
Position.BandIndex = 0
Position.ColIndex = 10
Position.RowIndex = 0 Position.RowIndex = 0
end end
end end
@ -825,10 +880,12 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
Properties.TabIndex = 0 Properties.TabIndex = 0
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
' '#26410#23436#25104' ' ' '#26410#23436#25104' '
' '#26242#23384#21306' '
' '#29983#20135#23436#25104' ' ' '#29983#20135#23436#25104' '
' '#24050#23436#25104' ' ' '#24050#23436#25104' '
' '#20840' '#37096' ') ' '#20840' '#37096' ')
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 96
ClientRectBottom = 35 ClientRectBottom = 35
ClientRectRight = 1540 ClientRectRight = 1540
ClientRectTop = 35 ClientRectTop = 35

12
T01贸易生产计划/U_TradePlanSchedule.pas
View File

@ -15,7 +15,8 @@ uses
cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView, cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView,
cxGridDBBandedTableView, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxGridDBBandedTableView, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, cxPC, Vcl.Menus, Clipbrd; dxBarBuiltInMenu, U_BaseList, cxPC, Vcl.Menus, Clipbrd, dxSkinWXI,
dxScrollbarAnnotations;
type type
TfrmTradePlanSchedule = class(TfrmBaseList) TfrmTradePlanSchedule = class(TfrmBaseList)
@ -105,6 +106,7 @@ type
TV1Column28: TcxGridDBBandedColumn; TV1Column28: TcxGridDBBandedColumn;
TV1Column38: TcxGridDBBandedColumn; TV1Column38: TcxGridDBBandedColumn;
TV1Column39: TcxGridDBBandedColumn; TV1Column39: TcxGridDBBandedColumn;
TV1Column40: TcxGridDBBandedColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -170,13 +172,17 @@ begin
end; end;
1: 1:
begin begin
sql.Add(' ,@WCFlag=''生产完成'' '); sql.Add(' ,@WCFlag=''暂存区'' ');
end; end;
2: 2:
begin begin
sql.Add(' ,@WCFlag=''已完成'' '); sql.Add(' ,@WCFlag=''生产完成'' ');
end; end;
3: 3:
begin
sql.Add(' ,@WCFlag=''已完成'' ');
end;
4:
begin begin
sql.Add(' ,@WCFlag=''Íê³É'' '); sql.Add(' ,@WCFlag=''Íê³É'' ');
end; end;

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

@ -27,7 +27,8 @@ uses
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint}, U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
U_TradePlanSel in '..\T00贸易通用窗体\U_TradePlanSel.pas' {frmTradePlanSel}, U_TradePlanSel in '..\T00贸易通用窗体\U_TradePlanSel.pas' {frmTradePlanSel},
U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel}, U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel},
U_TPUp in 'U_TPUp.pas' {frmTPUp}; U_TPUp in 'U_TPUp.pas' {frmTPUp},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule};
{$R *.res} {$R *.res}

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

@ -193,6 +193,11 @@
<Form>frmTPUp</Form> <Form>frmTPUp</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseDataLink.pas">
<Form>BaseDataLink</Form>
<FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

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

@ -1,40 +1,41 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.382,=D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_TPUp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.974,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.478,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.478,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.382,=D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_TPUp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -87,6 +88,8 @@
<File Path="D:\Dp10Repo"/> <File Path="D:\Dp10Repo"/>
<File Path="..\..\..\public10"/> <File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/> <File Path="..\..\..\public10\design"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.dfm"/>
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/> <File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
<File Path="..\..\..\public10\design\U_BaseHelp.dfm"/> <File Path="..\..\..\public10\design\U_BaseHelp.dfm"/>
<File Path="..\..\..\public10\design\U_BaseInput.pas"/> <File Path="..\..\..\public10\design\U_BaseInput.pas"/>

BIN
T02贸易汇总仓库/TradeTotalClothStk.identcache
View File

Binary file not shown.

9
T02贸易汇总仓库/U_DataLink.dfm
View File

@ -1,9 +1,10 @@
object DataLink_TradeTotalClothStk: TDataLink_TradeTotalClothStk inherited DataLink_TradeTotalClothStk: TDataLink_TradeTotalClothStk
OldCreateOrder = False
OnCreate = DataModuleCreate
OnDestroy = DataModuleDestroy OnDestroy = DataModuleDestroy
Height = 349 Height = 349
Width = 482 Width = 482
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
end
object AdoDataLink: TADOQuery object AdoDataLink: TADOQuery
Connection = ADOLink Connection = ADOLink
Parameters = <> Parameters = <>
@ -10426,6 +10427,8 @@ object DataLink_TradeTotalClothStk: TDataLink_TradeTotalClothStk
object ThreeLookAndFeelCol: TcxLookAndFeelController object ThreeLookAndFeelCol: TcxLookAndFeelController
Kind = lfStandard Kind = lfStandard
NativeStyle = False NativeStyle = False
ScrollbarMode = sbmHybrid
SkinName = 'WXI'
Left = 253 Left = 253
Top = 12 Top = 12
end end

7
T02贸易汇总仓库/U_DataLink.pas
View File

@ -5,7 +5,8 @@ interface
uses uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinWXI; dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinWXI,
U_BaseDataLink, dxCore, cxLocalization, cxImageList, cxGraphics, dxSkinsForm;
type type
TMyThread = class(TThread) TMyThread = class(TThread)
@ -37,7 +38,7 @@ var
UserDataFlag: string; UserDataFlag: string;
type type
TDataLink_TradeTotalClothStk = class(TDataModule) TDataLink_TradeTotalClothStk = class(TBaseDataLink)
AdoDataLink: TADOQuery; AdoDataLink: TADOQuery;
ADOLink: TADOConnection; ADOLink: TADOConnection;
ThreeImgList: TImageList; ThreeImgList: TImageList;
@ -109,6 +110,7 @@ end;
procedure TDataLink_TradeTotalClothStk.DataModuleDestroy(Sender: TObject); procedure TDataLink_TradeTotalClothStk.DataModuleDestroy(Sender: TObject);
begin begin
inherited;
CriticalSection.Free; CriticalSection.Free;
DataLink_TradeTotalClothStk := nil; DataLink_TradeTotalClothStk := nil;
end; end;
@ -120,6 +122,7 @@ end;
procedure TDataLink_TradeTotalClothStk.DataModuleCreate(Sender: TObject); procedure TDataLink_TradeTotalClothStk.DataModuleCreate(Sender: TObject);
begin begin
inherited;
CriticalSection := TCriticalSection.Create; CriticalSection := TCriticalSection.Create;
end; end;

12
T02贸易汇总仓库/U_TradeGreyClothOutList.dfm
View File

@ -145,7 +145,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
Top = 12 Top = 12
Width = 36 Width = 36
Height = 12 Height = 12
Caption = #23458' '#25143 Caption = #20379#24212#21830
end end
object Label5: TLabel object Label5: TLabel
Left = 178 Left = 178
@ -216,7 +216,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
TabOrder = 2 TabOrder = 2
OnChange = TBFindClick OnChange = TBFindClick
end end
object FTYName: TEdit object FromCoName: TEdit
Tag = 2 Tag = 2
Left = 483 Left = 483
Top = 8 Top = 8
@ -261,16 +261,16 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
#35843#25320#20986#24211 #35843#25320#20986#24211
#30424#20111#20986#24211) #30424#20111#20986#24211)
end end
object CheJian: TEdit object Workshop: TEdit
Tag = 2 Tag = 2
Left = 483 Left = 485
Top = 35 Top = 35
Width = 80 Width = 80
Height = 20 Height = 20
TabOrder = 7 TabOrder = 7
OnChange = C_specChange OnChange = C_specChange
end end
object OrderNo: TEdit object FromOrdNo: TEdit
Tag = 2 Tag = 2
Left = 636 Left = 636
Top = 35 Top = 35
@ -279,7 +279,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
TabOrder = 8 TabOrder = 8
OnChange = C_specChange OnChange = C_specChange
end end
object FTYNo: TEdit object BuyConNo: TEdit
Tag = 2 Tag = 2
Left = 636 Left = 636
Top = 8 Top = 8

10
T02贸易汇总仓库/U_TradeGreyClothOutList.pas
View File

@ -55,7 +55,7 @@ type
Label8: TLabel; Label8: TLabel;
Label12: TLabel; Label12: TLabel;
C_NAME: TEdit; C_NAME: TEdit;
FTYName: TEdit; FromCoName: TEdit;
BCIOID: TEdit; BCIOID: TEdit;
C_spec: TEdit; C_spec: TEdit;
IOType: TComboBox; IOType: TComboBox;
@ -64,7 +64,7 @@ type
v1Column10: TcxGridDBColumn; v1Column10: TcxGridDBColumn;
v1Column17: TcxGridDBColumn; v1Column17: TcxGridDBColumn;
Label9: TLabel; Label9: TLabel;
CheJian: TEdit; Workshop: TEdit;
v1Column5: TcxGridDBColumn; v1Column5: TcxGridDBColumn;
v1Column7: TcxGridDBColumn; v1Column7: TcxGridDBColumn;
v1Column13: TcxGridDBColumn; v1Column13: TcxGridDBColumn;
@ -72,9 +72,9 @@ type
v1Column18: TcxGridDBColumn; v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn; v1Column19: TcxGridDBColumn;
Label6: TLabel; Label6: TLabel;
OrderNo: TEdit; FromOrdNo: TEdit;
Label7: TLabel; Label7: TLabel;
FTYNo: TEdit; BuyConNo: TEdit;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
@ -157,7 +157,7 @@ begin
sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''''); sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''); sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
SQL.Add(' and ioFlag=''³ö¿â'' '); SQL.Add(' and ioFlag=''³ö¿â'' ');
// showmessage(SQL.text);
Open; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_Main); SCreateCDS(ADOQueryMain, CDS_Main);

BIN
T04贸易明细仓库/TradeClothStk.identcache
View File

Binary file not shown.

BIN
T04贸易明细仓库/testDll.identcache
View File

Binary file not shown.