rtgit/RTFormwork
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

贸易现货

Browse Source
This commit is contained in:
“zfp” 2024-07-29 13:06:23 +08:00
parent 239a66ccb9
commit e2605b9981
65 changed files with 31411 additions and 146 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtnew/U_printPdf.pas Normal file
View File

@ -0,0 +1,26 @@
unit U_printPdf;
interface
uses
Windows,forms;
// formId =1 功能id
//mRecid='文件表记录号'
//printNumber=1 打印份数
//printFlag=1 '打印预览;0立即打印
//DataBaseStr
function printPdf(App:Tapplication; FormID:integer;Title:PChar; GCode: PChar; GName: PChar;mRecid:PChar;printNumber:Integer;printFlag:Integer;printer:integer;DataBaseStr:PChar):hwnd;stdcall;external 'pdfPrint.dll' Name 'GetDllForm' ;
// formId =1 功能id
//mRecid='文件表记录号'
//printNumber=1 打印份数
//printFlag=1 '打印预览;0立即打印
//DataBaseStr
function printReport(App:Tapplication; FormID:integer;Title:PChar; GCode: PChar; GName: PChar;mRecid:PChar;printNumber:Integer;printFlag:Integer;printer:integer;DataBaseStr:PChar):hwnd;stdcall;external 'pdfPrint.dll' Name 'GetDllForm' ;
// formId =1 功能id
//mRecid='文件表记录号'
//exportFileType=1 导出文件类型 pdf ,bmp ,jpg
//DataBaseStr
//返回结果，保存文件的记录号 主键
function exportFile(App:Tapplication; FormID:integer;Title:PChar; GCode: PChar; GName: PChar;mRecid:PChar;exportFileType:PChar;DataBaseStr:PChar):hwnd;stdcall;external 'pdfPrint.dll' Name 'ExportFile' ;
implementation
end.

2
项目代码/RTBasicsV1/A00通用窗体/U_ClothInfoSel.dfm
View File

@ -208,6 +208,8 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Height = 448
Align = alClient
TabOrder = 1
ExplicitLeft = -2
ExplicitTop = 41
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>

12
项目代码/RTBasicsV1/A00通用窗体/U_ClothInfoSel.pas
View File

@ -164,6 +164,7 @@ type
public
IsMultipleSelection: Boolean;
FCTType: string;
xzflag: Integer;
{ Public declarations }
end;
@ -396,6 +397,17 @@ end;
procedure TfrmClothInfoSel.ToolButton1Click(Sender: TObject);
begin
if xzflag = 1 then
begin
if cds_1.Locate('ssel', true, []) = False then
begin
Application.MessageBox('请选择数据!', '提示', 0);
exit;
end;
end;
ModalResult := 1;
end;

3
项目代码/RTBasicsV1/T02贸易汇总仓库/TradeTotalClothStk.dpr
View File

@ -65,7 +65,8 @@ uses
U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
U_ClothScheduleList in 'U_ClothScheduleList.pas' {frmClothScheduleList},
U_ClothPurchaseEnterList in 'U_ClothPurchaseEnterList.pas' {frmClothPurchaseEnterList};
U_ClothPurchaseEnterList in 'U_ClothPurchaseEnterList.pas' {frmClothPurchaseEnterList},
U_SysLogHelp in '..\..\..\public10\ThreeFun\Form\U_SysLogHelp.pas' {frmSysLogHelp};
{$R *.res}

4
项目代码/RTBasicsV1/T02贸易汇总仓库/TradeTotalClothStk.dproj
View File

@ -338,6 +338,10 @@
<Form>frmClothPurchaseEnterList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Form\U_SysLogHelp.pas">
<Form>frmSysLogHelp</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

153
项目代码/RTBasicsV1/T02贸易汇总仓库/TradeTotalClothStk.dproj.local
View File

@ -1,108 +1,109 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.591,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.247,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.336,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeClothOutInspList.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.327,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.795,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.713,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothOutEdit.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.110,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.722,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.336,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeClothOutInspList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.327,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.dfm=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.dfm</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.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.dfm</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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.033,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.pas=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas</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.266,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.389,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothStkList.pas</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.929,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.282,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.266,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.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.472,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.033,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutEdit.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.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.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.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.801,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkSel.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.dfm</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.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm</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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm</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.801,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInEdit.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.585,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.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.350,=D:\Dp10RepoV1\项目代码\永亮\T02贸易汇总仓库\U_TradeGreyClothInList.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.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.473,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm</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.558,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutEdit.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.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.892,=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutList.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.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.129,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.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.323,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.780,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInEdit.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.621,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.908,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.029,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkSel.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.478,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.252,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.549,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.038,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeGreyClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutList.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.892,=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm</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.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm</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.473,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.472,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.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.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.307,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm</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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeTotallClothStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.323,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.780,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.908,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm</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.110,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.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.307,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.210,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInList.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.889,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeTotallClothStkSel.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.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.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.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.038,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.549,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeGreyClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.252,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas</Transaction>
<Transaction>2024-07-29 09:58:02.656,=D:\RTFormwork\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -177,6 +178,8 @@
<File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<File Path="..\..\..\public10\ThreeFun"/>
<File Path="..\..\..\public10\ThreeFun\Form"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_SysLogHelp.pas"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_SysLogHelp.dfm"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.dfm"/>
<File Path="..\..\..\public10\ThreeFun\Fun"/>

BIN
项目代码/RTBasicsV1/T02贸易汇总仓库/TradeTotalClothStk.identcache
View File

Binary file not shown.

17
项目代码/RTBasicsV1/T02贸易汇总仓库/U_GetDllForm.pas
View File

@ -22,7 +22,7 @@ uses
U_TradePackClothOutList, U_TradePackClothStkList, U_TradeSampleClothInList,
U_TradeSampleClothOutList, U_TradeSampleClothStkList, U_ClothPurchaseEnterList,
U_ClothScheduleList, U_TradeClothTotalStkList, U_TradeClothTotalInList,
U_TradeClothTotalOutList;
U_TradeClothTotalOutList, U_TradeReturnClothInList;
/////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 //
@ -160,8 +160,6 @@ begin
end;
end;
921: //贸易布匹入库
begin
with TfrmTradeClothTotalInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
@ -409,6 +407,19 @@ begin
end;
end;
611: //»Ø²Ö¼Èë
begin
with TfrmTradeReturnClothInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
FSTKName := 'ÏÖ»õ»Ø²Ö';
fFormID := FormID;
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
10000:
begin
for i := 0 to application.MainForm.MDIChildCount - 1 do

878
项目代码/RTBasicsV1/T02贸易汇总仓库/U_TradeReturnClothInEdit.dfm Normal file
View File

@ -0,0 +1,878 @@
inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
Left = 67
Top = 126
Caption = #22238#20179#30331#35760
ClientHeight = 564
ClientWidth = 1465
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307
Position = poScreenCenter
WindowState = wsMaximized
OnClose = FormClose
ExplicitWidth = 1481
ExplicitHeight = 603
PixelsPerInch = 96
TextHeight = 12
object cxGrid2: TcxGrid [0]
Tag = 2
Left = 0
Top = 132
Width = 992
Height = 432
Align = alClient
TabOrder = 0
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DataSource3
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
Column = v2Column6
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.IncSearch = DataLink_TradeTotalClothStk.SHuangSe
Styles.Header = DataLink_TradeTotalClothStk.Default
Styles.Inactive = DataLink_TradeTotalClothStk.SHuangSe
Styles.Selection = DataLink_TradeTotalClothStk.SHuangSe
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BCIOID'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 83
end
object Tv1Column8: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_Code'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = ButtonEdit
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
end
object v1SPName: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v2Column1PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 101
end
object v1SPSpec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1Column8PropertiesButtonClick
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 112
end
object v1SPMF: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 75
end
object v1Column8: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 73
end
object Tv1Column7: TcxGridDBColumn
Caption = #26579#21378#32568#21495
DataBinding.FieldName = 'FtyPCId'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 81
end
object v1Column9: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 68
end
object v2Column6: TcxGridDBColumn
Caption = #38271#24230
DataBinding.FieldName = 'Qty'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 92
end
object v1QtyUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'M'
'Y'
'Kg')
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 64
end
object Tv1Column1: TcxGridDBColumn
Caption = #37325#37327
DataBinding.FieldName = 'KGQty'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 80
end
object v1Column5: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'StkPosition'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = v1Column5PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 79
end
object v1Column7: TcxGridDBColumn
Caption = #36710#38388
DataBinding.FieldName = 'Workshop'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#19968#36710#38388
#20108#36710#38388)
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 70
end
object Tv1Column2: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 68
end
object Tv1Column6: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 67
end
object Tv1Column9: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 66
end
object Tv1Column10: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 66
end
object Tv1Column13: TcxGridDBColumn
Caption = #26412#21378#32568#21495
DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 68
end
object Tv1Column11: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 66
end
object v1Column12: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 66
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1
end
end
object ToolBar1: TToolBar [1]
Tag = 1
Left = 0
Top = 0
Width = 1465
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeTotalClothStk.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 1
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = TBSaveClick
end
object ToolButton1: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 166
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
object ToolButton2: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #25209#37327#25171#21360
ImageIndex = 21
Visible = False
OnClick = ToolButton2Click
end
end
object GroupBox1: TGroupBox [2]
Left = 992
Top = 132
Width = 473
Height = 432
Align = alRight
Caption = #22238#20179#26126#32454#20449#24687'('#21452#20987#21024#38500#26126#32454#20449#24687')'
TabOrder = 2
object cxGrid1: TcxGrid
Left = 2
Top = 52
Width = 469
Height = 378
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
object Tv2: TcxGridDBTableView
OnMouseDown = Tv2MouseDown
Navigator.Buttons.CustomButtons = <>
OnCellDblClick = Tv2CellDblClick
OnCustomDrawCell = Tv2CustomDrawCell
DataController.DataSource = DSMX
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Format = #20849' 0 '#21367
Kind = skCount
Column = v2Column3
end
item
Kind = skSum
Column = v2Column4
end
item
Kind = skSum
Column = Tv2Column1
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 40
Styles.Content = DataLink_TradeTotalClothStk.Default
Styles.Header = DataLink_TradeTotalClothStk.Default
object Tv2Column4: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 41
end
object v2Column5: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'Pieceno'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 43
end
object v2Column3: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'CIID'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 80
end
object v2Column4: TcxGridDBColumn
Caption = #38271#24230
DataBinding.FieldName = 'InputLen'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column4PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 67
end
object Tv2Column2: TcxGridDBColumn
Caption = #38271#24230#21333#20301
DataBinding.FieldName = 'LenUnit'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 70
end
object Tv2Column1: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'NetWeight'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 80
end
object Tv2Column3: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'Tare'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 65
end
object Tv2Column5: TcxGridDBColumn
Caption = #25171#21360#27425#25968
DataBinding.FieldName = 'PrtCount'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 60
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
object ToolBar3: TToolBar
Tag = 1
Left = 2
Top = 14
Width = 469
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeTotalClothStk.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 1
object ToolButton6: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = ToolButton6Click
end
end
end
object Panel1: TPanel [3]
Left = 0
Top = 38
Width = 1465
Height = 56
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 3
object Label1: TLabel
Left = 36
Top = 20
Width = 48
Height = 12
Caption = #20837#24211#26085#26399
end
object Label8: TLabel
Left = 116
Top = 120
Width = 48
Height = 12
Caption = #20837#24211#21333#21495
end
object Label2: TLabel
Left = 232
Top = 20
Width = 48
Height = 12
Caption = #20837#24211#31867#22411
end
object Label4: TLabel
Left = 440
Top = 20
Width = 48
Height = 12
Caption = #26469#33258#21333#20301
end
object IOTime: TDateTimePicker
Left = 90
Top = 17
Width = 100
Height = 20
Date = 41509.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.970132187503622800
TabOrder = 0
end
object InoutNo: TEdit
Left = 164
Top = 116
Width = 100
Height = 20
TabOrder = 1
end
object IOType: TComboBox
Left = 284
Top = 16
Width = 117
Height = 20
Style = csDropDownList
ItemIndex = 0
TabOrder = 2
Text = #21152#24037#23436#25104
Items.Strings = (
#21152#24037#23436#25104
#22238#20462#23436#25104
#26816#39564#36864#22238
#26399#21021#20837#24211
#25104#21697#37319#36141
#21152#24037#36180#27454
#26579#21378#26399#21021#20837#24211
#23458#25143#36864#36135
#26679#21697#35843#25320#20837#24211)
end
object FromCoName: TBtnEditA
Left = 494
Top = 16
Width = 213
Height = 20
TabOrder = 3
OnBtnClick = FromCoNameBtnClick
end
object Panel3: TPanel
Left = 883
Top = 2
Width = 580
Height = 52
Align = alRight
BevelOuter = bvNone
Color = clSkyBlue
TabOrder = 4
object Label3: TLabel
Left = 297
Top = 16
Width = 44
Height = 21
Caption = #25968#37327
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 466
Top = 21
Width = 24
Height = 12
Caption = #30382#37325
end
object Label6: TLabel
Left = 32
Top = 21
Width = 24
Height = 12
Caption = #21367#25968
end
object QtyMX: TEdit
Left = 347
Top = 15
Width = 65
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnKeyPress = QtyMXKeyPress
end
object QtyFJ: TEdit
Left = 494
Top = 15
Width = 65
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object LenUnit: TComboBox
Left = 414
Top = 15
Width = 46
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ItemIndex = 0
ParentFont = False
TabOrder = 2
Text = 'M'
Items.Strings = (
'M'
'Y'
'KG')
end
object edtMJXH: TEdit
Left = 210
Top = 15
Width = 65
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
end
object chkMJJH: TCheckBox
Left = 141
Top = 11
Width = 63
Height = 32
Caption = #21367#21495
Color = clWindow
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
TabOrder = 4
OnClick = chkMJJHClick
end
object CountMX: TEdit
Left = 62
Top = 15
Width = 65
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
end
end
end
object ToolBar2: TToolBar [4]
Tag = 1
Left = 0
Top = 94
Width = 1465
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeTotalClothStk.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 4
object TBAdd: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 2
OnClick = TBAddClick
end
object TBDel: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 6
OnClick = TBDelClick
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 185
Top = 200
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 273
Top = 225
end
inherited ImageList_new32: TImageList
Left = 120
Top = 224
end
object DataSource3: TDataSource
DataSet = CDS_Sub
Left = 664
Top = 232
end
object CDS_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 600
Top = 216
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Parameters = <>
Left = 232
Top = 208
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 368
Top = 192
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 464
Top = 200
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 504
Top = 208
end
object ADOMX: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Parameters = <>
Left = 1276
Top = 190
end
object CDS_MX: TClientDataSet
Aggregates = <>
Params = <>
Left = 1232
Top = 246
end
object DSMX: TDataSource
DataSet = CDS_MX
Left = 1252
Top = 310
end
object PopupMenu1: TPopupMenu
Left = 1104
Top = 328
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 488
Top = 440
end
object RMDB_1: TRMDBDataSet
Visible = True
DataSet = ADOQueryPrint
Left = 564
Top = 440
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDB_1
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 620
Top = 440
ReportData = {}
end
end

1338
项目代码/RTBasicsV1/T02贸易汇总仓库/U_TradeReturnClothInEdit.pas Normal file
View File

File diff suppressed because it is too large Load Diff

1039
项目代码/RTBasicsV1/T02贸易汇总仓库/U_TradeReturnClothInList.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

678
项目代码/RTBasicsV1/T02贸易汇总仓库/U_TradeReturnClothInList.pas Normal file
View File

@ -0,0 +1,678 @@
unit U_TradeReturnClothInList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, 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;
type
TfrmTradeReturnClothInList = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBExport: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
cxGridPopupMenu1: TcxGridPopupMenu;
Label1: TLabel;
Label2: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CDS_Main: TClientDataSet;
TBDel: TToolButton;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
TBAdd: TToolButton;
TBEdit: TToolButton;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label8: TLabel;
Label12: TLabel;
C_name: TEdit;
FromCoName: TEdit;
BCIOID: TEdit;
C_spec: TEdit;
IOType: TComboBox;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column6: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Label10: TLabel;
BatchNo: TEdit;
v1Column11: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column20: TcxGridDBColumn;
ToolButton1: TToolButton;
Tv1Column1: TcxGridDBColumn;
ToolButton2: TToolButton;
Tv1Column2: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
ToolButton3: TToolButton;
Tv1Column12: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
ADOMX: TADOQuery;
CDS_MX: TClientDataSet;
DSMX: TDataSource;
Tv1Column3: TcxGridDBColumn;
Panel2: TPanel;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
v2Column5: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
v2Column4: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
Tv2Column3: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
ToolBar3: TToolBar;
ToolButton6: TToolButton;
Tv2Column4: TcxGridDBColumn;
PopupMenu2: TPopupMenu;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
ADOQueryPrint: TADOQuery;
RMDB_1: TRMDBDataSet;
RM1: TRMGridReport;
Panel3: TPanel;
已打印: TLabel;
Tv2Column5: TcxGridDBColumn;
Label6: TLabel;
C_Pattern: TEdit;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
ToolButton4: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure BCIOIDChange(Sender: TObject);
procedure C_specChange(Sender: TObject);
procedure FromCoNameChange(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure ToolButton6Click(Sender: TObject);
procedure MenuItem1Click(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure ToolButton4Click(Sender: TObject);
private
canshu1, canshu2, canshu3: string;
procedure InitGrid();
procedure setStatus();
procedure InitMJID();
{ Private declarations }
public
FSTKName: string;
{ Public declarations }
end;
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint, U_AttachmentUpload,
U_TradeFinishClothInEdit, U_TradeReturnClothInEdit, U_SysLogHelp;
{$R *.dfm}
procedure TfrmTradeReturnClothInList.setStatus();
begin
end;
procedure TfrmTradeReturnClothInList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmTradeReturnClothInList.FormCreate(Sender: TObject);
begin
inherited;
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 30;
canshu1 := Trim(self.fParameters1);
canshu2 := Trim(self.fParameters2);
canshu3 := Trim(self.fParameters3);
end;
procedure TfrmTradeReturnClothInList.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''贸易汇总布'' and X.WBID=A.BCIOID)>0 THEN 1 ELSE 0 END) AS BIT) ');
sql.Add(' from BS_Cloth_IO A');
sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
sql.Add(' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''');
SQL.Add(' and IOFlag=''入库'' ');
SQL.Add(' order by IOTime desc');
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmTradeReturnClothInList.TBRafreshClick(Sender: TObject);
begin
BegDate.SetFocus;
InitGrid();
end;
procedure TfrmTradeReturnClothInList.ToolButton1Click(Sender: TObject);
begin
WriteCxGrid(Self.Caption, Tv1, '贸易汇总仓库');
end;
procedure TfrmTradeReturnClothInList.ToolButton2Click(Sender: TObject);
var
MBCIOID: string;
begin
if CDS_Main.IsEmpty then
Exit;
if CDS_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
MBCIOID := '';
CDS_Main.DisableControls;
with CDS_Main do
begin
First;
while CDS_Main.Locate('SSel', True, []) do
begin
MBCIOID := MBCIOID + ',' + (Trim(CDS_Main.fieldbyname('BCIOID').AsString));
Edit;
FieldByName('SSel').Value := False;
Post;
end;
end;
CDS_Main.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TradeReturnClothInPrt1';
FFiltration1 := MBCIOID;
if ShowModal = 1 then
begin
// Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTradeReturnClothInList.ToolButton3Click(Sender: TObject);
begin
if CDS_Main.IsEmpty then
Exit;
try
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
with frmAttachmentUpload do
begin
fkeyNO := Trim(Self.CDS_Main.fieldbyname('BCIOID').AsString);
fType := '贸易汇总布';
FEditAuthority := True;
if ShowModal = 1 then
begin
end;
end;
finally
frmAttachmentUpload.Free;
end;
end;
procedure TfrmTradeReturnClothInList.ToolButton4Click(Sender: TObject);
begin
inherited;
try
frmSysLogHelp := TfrmSysLogHelp.Create(Application);
with frmSysLogHelp do
begin
fModel := '回仓日志';
if ShowModal = 1 then
begin
end;
end;
finally
frmSysLogHelp.Free;
end;
end;
procedure TfrmTradeReturnClothInList.ToolButton6Click(Sender: TObject);
var
fPrintFile, FLabVolume: string;
begin
if CDS_MX.IsEmpty then
Exit;
if CDS_MX.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
CDS_MX.DisableControls;
with CDS_MX do
begin
First;
while not Eof do
begin
if CDS_MX.FieldByName('SSel').AsBoolean = True then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update Trade_Cloth_Inspect Set PrtCount=PrtCount+1,PrtDate=getdate(),Prter=''' + Trim(DName) + '''');
sql.Add(' where CIID=''' + Trim(CDS_MX.fieldbyname('CIID').AsString) + '''');
ExecSQL;
end;
with ADOQueryPrint do
begin
Close;
SQL.Clear;
sql.Add(' EXEC P_Trade_Insp_Prt_Lab ');
SQL.Add(' @CIID=''' + Trim(CDS_MX.fieldbyname('CIID').AsString) + '''');
Open;
end;
if ADOQueryPrint.IsEmpty then
begin
application.MessageBox('标签内容未找到！', '提示信息', MB_ICONERROR);
CDS_MX.EnableControls;
exit;
end;
if Trim(ADOQueryPrint.fieldbyname('Grade').AsString) = '正品' then
FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString)
else
FLabVolume := '次品标签';
ExportFtErpFile(FLabVolume + '.rmf', ADOQueryTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLabVolume + '.rmf';
if FileExists(fPrintFile) then
begin
RM1.LoadFromFile(fPrintFile);
if Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) <> '次品标签' then
Rm1.DefaultCopies := 1
else
Rm1.DefaultCopies := 1;
RM1.PrintReport;
end
else
begin
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
end;
end;
Next;
end;
end;
CDS_MX.EnableControls;
initMJID();
end;
procedure TfrmTradeReturnClothInList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
inherited;
initMJID();
end;
procedure TfrmTradeReturnClothInList.Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
inherited;
if AViewInfo.GridRecord.Values[tv2.GetColumnByFieldName('PrtCount').Index] > 0 then
ACanvas.Brush.Color := $00EEF08E;
end;
procedure TfrmTradeReturnClothInList.initMJID();
begin
try
with ADOMX do
begin
close;
sql.Clear;
sql.Add('select * from Trade_Cloth_Inspect A');
sql.Add('where BCIOID=' + quotedstr(trim(cds_main.fieldByName('BCIOID').AsString)));
open;
end;
SCreateCDS(ADOMX, CDS_MX);
SInitCDSData(ADOMX, CDS_MX);
except
end;
end;
procedure TfrmTradeReturnClothInList.MenuItem1Click(Sender: TObject);
begin
inherited;
SelOKNo(cds_mx, True);
end;
procedure TfrmTradeReturnClothInList.MenuItem2Click(Sender: TObject);
begin
inherited;
SelOKNo(cds_mx, False);
end;
procedure TfrmTradeReturnClothInList.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmTradeReturnClothInList.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTradeReturnClothInList.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(Self.Caption, Tv1, '贸易汇总仓库');
setStatus();
InitGrid();
end;
procedure TfrmTradeReturnClothInList.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
TcxGridToExcel(FSTKName + '入库列表', cxGrid1);
end;
procedure TfrmTradeReturnClothInList.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
end;
end;
procedure TfrmTradeReturnClothInList.N1Click(Sender: TObject);
begin
SelOKNo(CDS_Main, True);
end;
procedure TfrmTradeReturnClothInList.N2Click(Sender: TObject);
begin
SelOKNo(CDS_Main, False);
end;
procedure TfrmTradeReturnClothInList.TBDelClick(Sender: TObject);
var
MBCIOID: string;
begin
if CDS_Main.IsEmpty then
Exit;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if CDS_Main.IsEmpty then
Exit;
if CDS_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
MBCIOID := '';
CDS_Main.DisableControls;
with CDS_Main do
begin
First;
while CDS_Main.Locate('SSel', True, []) do
begin
MBCIOID := MBCIOID + ',' + Trim(CDS_Main.fieldbyname('BCIOID').AsString);
CDS_Main.Delete;
end;
end;
CDS_Main.EnableControls;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('exec P_Fin_Flow_Judge ');
Sql.Add(' @FFIDS=' + quotedstr(MBCIOID));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
Open;
end;
if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then
begin
Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0);
exit;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
Sql.Clear;
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
sql.Add('values(''现货回仓入库'' ');
sql.Add(',' + quotedstr(MBCIOID));
sql.Add(',''删除'' ');
sql.Add(',' + quotedstr(DName));
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(MBCIOID));
sql.Add(') ');
// sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
// sql.Add(' ' + quotedstr(trim(DName)));
// sql.Add(',getdate() ');
// sql.Add(',' + quotedstr(trim('回仓日志')));
// sql.Add(',' + quotedstr(trim('回仓录入删除')));
// sql.Add(',' + quotedstr(trim('入库单号：' + quotedstr(MBCIOID))));
// sql.Add(',' + quotedstr(trim('成功')));
// sql.Add(')');
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) ');
sql.Add(' select ''' + trim(DName) + ''',getdate(),''回仓日志'',''回仓录入删除'' ');
sql.Add(',''入库单号：'' + ''' + MBCIOID + '''+'' 品名：'' +C_Name+'' 花型：'' +C_Pattern+'' 数量：'' +cast(Qty as varchar(20)) ');
sql.Add(',''成功'' ');
sql.Add('from BS_Cloth_IO where BCIOID in (select RTValue from [dbo].[F_Tool_SplitString](''' + MBCIOID + ''','','') )');
Sql.Add('exec P_BS_Cloth_In_Del ');
Sql.Add(' @BCIOIDS=' + quotedstr(MBCIOID));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
Open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans;
// CDS_Main.Delete;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid();
end;
end;
procedure TfrmTradeReturnClothInList.TBAddClick(Sender: TObject);
begin
try
frmTradeReturnClothInEdit := TfrmTradeReturnClothInEdit.Create(Application);
with frmTradeReturnClothInEdit do
begin
FBCId := '';
frmTradeReturnClothInEdit.canshu3 := Trim(Self.canshu3);
FSTKName := Self.FSTKName;
if ShowModal = 1 then
begin
Self.InitGrid();
end;
end;
finally
frmTradeReturnClothInEdit.Free;
end;
end;
procedure TfrmTradeReturnClothInList.TBEditClick(Sender: TObject);
begin
if CDS_Main.IsEmpty then
Exit;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('exec P_Fin_Flow_Judge ');
Sql.Add(' @FFIDS=' + quotedstr(Trim(CDS_Main.fieldbyname('BCIOID').AsString)));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
Open;
end;
if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then
begin
Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0);
exit;
end;
with ADOQueryTemp do
begin
Close;
Sql.Clear;
Sql.Add('exec P_BS_Cloth_In_Edit ');
Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_Main.fieldbyname('BCIOID').AsString)));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
Open;
end;
if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then
begin
Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0);
exit;
end;
try
frmTradeReturnClothInEdit := TfrmTradeReturnClothInEdit.Create(Application);
with frmTradeReturnClothInEdit do
begin
FBCId := Trim(CDS_Main.fieldbyname('BCIOID').AsString);
TBDel.Visible := False;
TBAdd.Visible := False;
FSTKName := Self.FSTKName;
if ShowModal = 1 then
begin
Self.InitGrid();
end;
end;
finally
frmTradeReturnClothInEdit.Free;
end;
end;
procedure TfrmTradeReturnClothInList.BCIOIDChange(Sender: TObject);
begin
if Length(Trim(BCIOID.Text)) < 4 then
begin
if Trim(BCIOID.Text) <> '' then
Exit;
end;
TBFind.Click;
end;
procedure TfrmTradeReturnClothInList.C_specChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmTradeReturnClothInList.FromCoNameChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmTradeReturnClothInList.cxTabControl1Change(Sender: TObject);
begin
InitGrid();
end;
end.

36
项目代码/RTBasicsV1/T03贸易布匹检验/TradeInsp.dproj.local
View File

@ -1,47 +1,47 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<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.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.521,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.024,D:\Dp10RepoV1\项目代码\RTBasicsV1\A00通用窗体\U_LabelPrint.pas=D:\Dp10RepoV1\项目代码\RTBasicsV1\A00通用窗体\U_LabelPrintSql.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.841,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T03贸易布匹检验\U_TradeClothInspList.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.363,D:\Dp10Repo\项目代码\RTBasics\T03贸易布匹检验\U_TradeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\T03贸易布匹检验\U_TradeMachFlipInsp.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.582,=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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.703,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj</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.841,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T03贸易布匹检验\U_TradeClothInspList.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj</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.024,D:\Dp10RepoV1\项目代码\RTBasicsV1\A00通用窗体\U_LabelPrintSql.dfm=D:\Dp10RepoV1\项目代码\RTBasicsV1\A00通用窗体\U_LabelPrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.589,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.024,D:\Dp10RepoV1\项目代码\RTBasicsV1\A00通用窗体\U_LabelPrintSql.pas=D:\Dp10RepoV1\项目代码\RTBasicsV1\A00通用窗体\U_LabelPrint.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.363,D:\Dp10Repo\项目代码\RTBasics\T03贸易布匹检验\U_TradeMachFlipInsp.pas=D:\Dp10Repo\项目代码\RTBasics\T03贸易布匹检验\U_TradeMachInsp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.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.019,=D:\Dp10Repo\项目代码\RTBasics\T03贸易布匹检验\U_TradePack.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.136,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.363,D:\Dp10Repo\项目代码\RTBasics\T03贸易布匹检验\U_TradeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\T03贸易布匹检验\U_TradeMachFlipInsp.dfm</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.363,D:\Dp10Repo\项目代码\RTBasics\T03贸易布匹检验\U_TradeMachFlipInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\T03贸易布匹检验\U_TradeMachInsp.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.024,D:\Dp10RepoV1\项目代码\RTBasicsV1\A00通用窗体\U_LabelPrint.dfm=D:\Dp10RepoV1\项目代码\RTBasicsV1\A00通用窗体\U_LabelPrintSql.dfm</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.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>

BIN
项目代码/RTBasicsV1/T03贸易布匹检验/TradeInsp.identcache
View File

Binary file not shown.

4
项目代码/RTBasicsV1/T03贸易布匹检验/TradeInspLogin.dproj.local
View File

@ -49,7 +49,7 @@
<File Path="U_upPassword.dfm"/>
</ProjectSortOrder>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.296,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInspLogin.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.296,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInspLogin.dproj</Transaction>
</Transactions>
</BorlandProject>

BIN
项目代码/RTBasicsV1/T03贸易布匹检验/TradeInspLogin.identcache
View File

Binary file not shown.

BIN
项目代码/RTBasicsV1/T03贸易布匹检验/testDll.identcache
View File

Binary file not shown.

94
项目代码/RTBasicsV1/T04贸易明细仓库/TradeClothStk.dproj.local
View File

@ -1,73 +1,73 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<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.422,=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.823,D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkListSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.734,=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.163,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.823,D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkListSel.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.728,D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.dfm=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FramePagingSel.dfm</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.987,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothStkList.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.585,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothOutList.dfm=C:\Users\Administrator\Desktop\U_TatClothOutList.dfm</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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.997,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothOutEdit.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\TradeClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.097,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.073,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.003,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothInList.dfm=C:\Users\Administrator\Desktop\U_TatClothInList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothInList.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.163,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.900,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.097,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.728,D:\Dp10RepoV1\项目代码\须上\A00通用组件\FramePagingSel.pas=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.073,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.585,C:\Users\Administrator\Desktop\U_TatClothOutList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothOutList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.585,C:\Users\Administrator\Desktop\U_TatClothOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothOutList.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.728,D:\Dp10RepoV1\项目代码\须上\A00通用组件\FramePagingSel.dfm=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.dfm</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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.585,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothOutList.pas=C:\Users\Administrator\Desktop\U_TatClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.432,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.434,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.952,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.903,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.003,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothInList.pas=C:\Users\Administrator\Desktop\U_TatClothInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.928,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.611,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.pas=C:\Users\Administrator\Desktop\U_TatClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.432,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.903,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.952,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.299,=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeDRSel.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.252,=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\TradeClothStk.dproj</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.793,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.003,C:\Users\Administrator\Desktop\U_TatClothInList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothInList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.868,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothWaitStorage.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.891,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeDeliveryRequest.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.035,C:\Users\Administrator\Desktop\U_TatClothInList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.084,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeDeliveryRequestInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.347,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.728,D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FramePagingSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.413,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.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.793,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.434,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.823,D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkListSel.pas=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkList.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.370,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.611,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.dfm=C:\Users\Administrator\Desktop\U_TatClothStkList.dfm</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.299,=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeDRSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeDeliveryRequest.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.611,C:\Users\Administrator\Desktop\U_TatClothStkList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.035,C:\Users\Administrator\Desktop\U_TatClothInList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.003,C:\Users\Administrator\Desktop\U_TatClothInList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothInList.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.413,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.347,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.891,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.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.823,D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkListSel.dfm=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkList.dfm</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.611,C:\Users\Administrator\Desktop\U_TatClothStkList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.084,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeDeliveryRequestInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.760,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>

BIN
项目代码/RTBasicsV1/T04贸易明细仓库/TradeClothStk.identcache
View File

Binary file not shown.

BIN
项目代码/RTBasicsV1/T04贸易明细仓库/testDll.identcache
View File

Binary file not shown.

4
项目代码/RTBasicsV1/T05贸易门市管理/File.INI Normal file
View File

@ -0,0 +1,4 @@
[生产车间配置]
卷条码机台标志=99
成品DLL文件=CYZZ.dll
成品DLL调用号=11

7
项目代码/RTBasicsV1/T05贸易门市管理/FileHelp.ini Normal file
View File

@ -0,0 +1,7 @@
[FILEPATH]
FileClass=YP,AA,BB,HT
YP=D:\YP
AA=D:\AA
BB=D:\BB
HT=D:\HT
OTHER=D:\OTHER

BIN
项目代码/RTBasicsV1/T05贸易门市管理/InformationBase_Icon.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 766 B

23
项目代码/RTBasicsV1/T05贸易门市管理/ProjectGroup1.bpg Normal file
View File

@ -0,0 +1,23 @@
#------------------------------------------------------------------------------
VERSION = BWS.01
#------------------------------------------------------------------------------
!ifndef ROOT
ROOT = $(MAKEDIR)\..
!endif
#------------------------------------------------------------------------------
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------
PROJECTS = testDll.exe ProductPrice.dll
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
testDll.exe: testDll.dpr
$(DCC)
ProductPrice.dll: ProductPrice.dpr
$(DCC)

48
项目代码/RTBasicsV1/T05贸易门市管理/ProjectGroup1.groupproj Normal file
View File

@ -0,0 +1,48 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{D75EC075-444C-40C2-8ACB-0AAD801B39FF}</ProjectGuid>
</PropertyGroup>
<ItemGroup>
<Projects Include="TradeMarket.dproj">
<Dependencies/>
</Projects>
<Projects Include="testDll.dproj">
<Dependencies/>
</Projects>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Default.Personality.12</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<Default.Personality/>
</BorlandProject>
</ProjectExtensions>
<Target Name="TradeMarket">
<MSBuild Projects="TradeMarket.dproj"/>
</Target>
<Target Name="TradeMarket:Clean">
<MSBuild Projects="TradeMarket.dproj" Targets="Clean"/>
</Target>
<Target Name="TradeMarket:Make">
<MSBuild Projects="TradeMarket.dproj" Targets="Make"/>
</Target>
<Target Name="testDll">
<MSBuild Projects="testDll.dproj"/>
</Target>
<Target Name="testDll:Clean">
<MSBuild Projects="testDll.dproj" Targets="Clean"/>
</Target>
<Target Name="testDll:Make">
<MSBuild Projects="testDll.dproj" Targets="Make"/>
</Target>
<Target Name="Build">
<CallTarget Targets="TradeMarket;testDll"/>
</Target>
<Target Name="Clean">
<CallTarget Targets="TradeMarket:Clean;testDll:Clean"/>
</Target>
<Target Name="Make">
<CallTarget Targets="TradeMarket:Make;testDll:Make"/>
</Target>
<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
</Project>

7
项目代码/RTBasicsV1/T05贸易门市管理/ProjectGroup1.groupproj.local Normal file
View File

@ -0,0 +1,7 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions/>
<Default.Personality>
<Projects ActiveProject="D:\RTFormwork\项目代码\RTBasicsV1\T05贸易门市管理\TradeMarket.dproj"/>
</Default.Personality>
</BorlandProject>

6
项目代码/RTBasicsV1/T05贸易门市管理/SYSTEMSET.ini Normal file
View File

@ -0,0 +1,6 @@
[SERVER]
服务器地址=101.132.143.144
服务器地址类型=2002
是否自动更新=1
软件名称=睿特版本库
登陆标题=sss

61
项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.dpr Normal file
View File

@ -0,0 +1,61 @@
library TradeMarket;
uses
SysUtils,
classes,
forms,
WinTypes,
WinProcs,
midaslib,
U_GetDllForm in 'U_GetDllForm.pas',
U_DataLink in 'U_DataLink.pas' {DataLink_TradeMarket: TDataModule},
U_iniParam in 'U_iniParam.pas',
U_BaseHelp in '..\..\..\public10\design\U_BaseHelp.pas' {frmBaseHelp},
U_BaseInput in '..\..\..\public10\design\U_BaseInput.pas' {frmBaseInput},
U_BaseList in '..\..\..\public10\design\U_BaseList.pas' {frmBaseList},
U_CompressionFun in '..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas',
U_RTFun in '..\..\..\public10\ThreeFun\Fun\U_RTFun.pas',
U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
Unit1 in 'Unit1.pas' {Form1},
U_AttachmentUpload in '..\A00通用窗体\U_AttachmentUpload.pas' {frmFjList_RZ},
U_ClothInfoSel in '..\A00通用窗体\U_ClothInfoSel.pas' {frmClothInfoSel},
U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel},
U_EmployeeSel in '..\A00通用窗体\U_EmployeeSel.pas' {frmEmployeeSel},
U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
U_ZDYHelpSel in '..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload},
U_TradeMarketDisScan in 'U_TradeMarketDisScan.pas' {frmTradeMarketDisScan},
U_TradeDispatchedSel in 'U_TradeDispatchedSel.pas' {frmTradeDispatchedSel},
U_cxGridCustomCss in '..\..\..\public10\design\U_cxGridCustomCss.pas',
U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
U_globalVar in '..\..\..\public10\design\U_globalVar.pas',
U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas';
{$R *.res}
procedure DllEnterPoint(dwReason: DWORD); far; stdcall;
begin
DLLProc := @DLLEnterPoint;
DllEnterPoint(DLL_PROCESS_ATTACH);
end;
procedure DLLUnloadProc(Reason: Integer); register;
begin
// if (Reason = DLL_PROCESS_DETACH) or (Reason = DLL_THREAD_DETACH) then
// Application := NewDllApp;
end;
exports
GetDllForm;
begin
try
NewDllApp := Application;
DLLProc := @DLLUnloadProc;
except
end;
end.

941
项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.dproj Normal file
View File

@ -0,0 +1,941 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{7B70AA99-C84C-40AE-B4AE-13C5223B874C}</ProjectGuid>
<MainSource>TradeMarket.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>38017</TargetedPlatforms>
<AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.2</ProjectVersion>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
<Base_Android64>true</Base_Android64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
<Base_iOSDevice64>true</Base_iOSDevice64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
<Cfg_2_Android64>true</Cfg_2_Android64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
<Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
<Cfg_2_OSX64>true</Cfg_2_OSX64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_E>false</DCC_E>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
<DCC_N>true</DCC_N>
<DCC_S>false</DCC_S>
<DCC_ImageBase>00400000</DCC_ImageBase>
<DCC_DebugInformation>1</DCC_DebugInformation>
<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
<DCC_UnitSearchPath>D:\富通ERP;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
<DCC_UsePackage>vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOffice2k;Rave50CLX;Rave50VCL;$(DCC_UsePackage)</DCC_UsePackage>
<GenDll>true</GenDll>
<SanitizedProjectName>TradeMarket</SanitizedProjectName>
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;Data.Win;$(DCC_Namespace)</DCC_Namespace>
<VerInfo_Locale>2052</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Android64)'!=''">
<Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
<Icon_MainIcon>InformationBase_Icon.ico</Icon_MainIcon>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<Icon_MainIcon>InformationBase_Icon.ico</Icon_MainIcon>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_DebugInformation>0</DCC_DebugInformation>
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\RTFormwork\项目代码\RTBasicsV1\T05贸易门市管理\testDll.exe</Debugger_HostApplication>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="U_GetDllForm.pas"/>
<DCCReference Include="U_DataLink.pas">
<Form>DataLink_TradeMarket</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="U_iniParam.pas"/>
<DCCReference Include="..\..\..\public10\design\U_BaseHelp.pas">
<Form>frmBaseHelp</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseInput.pas">
<Form>frmBaseInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseList.pas">
<Form>frmBaseList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas">
<Form>frmZDYHelp</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="Unit1.pas">
<Form>Form1</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_AttachmentUpload.pas">
<Form>frmFjList_RZ</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_ClothInfoSel.pas">
<Form>frmClothInfoSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_CompanySel.pas">
<Form>frmCompanySel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_EmployeeSel.pas">
<Form>frmEmployeeSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_LabelMapSet.pas">
<Form>frmLabelMapSet</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_LabelPrint.pas">
<Form>frmLabelPrint</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas">
<Form>frmZDYHelpSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_PictureUpload.pas">
<Form>frmPictureUpload</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TradeMarketDisScan.pas">
<Form>frmTradeMarketDisScan</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TradeDispatchedSel.pas">
<Form>frmTradeDispatchedSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<DCCReference Include="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/>
<DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">TradeMarket.dpr</Source>
</Source>
</Delphi.Personality>
<Platforms>
<Platform value="Android64">True</Platform>
<Platform value="iOSDevice64">True</Platform>
<Platform value="Linux64">True</Platform>
<Platform value="OSX64">True</Platform>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
<Deployment Version="3">
<DeployFile LocalName="TradeMarket.dll" Configuration="Debug" Class="ProjectOutput">
<Platform Name="Win32">
<RemoteName>TradeMarket.dll</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployClass Name="AdditionalDebugSymbols">
<Platform Name="OSX32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidClassesDexFile">
<Platform Name="Android">
<RemoteDir>classes</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>classes</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidFileProvider">
<Platform Name="Android">
<RemoteDir>res\xml</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\xml</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidGDBServer">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeArmeabiFile">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeArmeabiv7aFile">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeMipsFile">
<Platform Name="Android">
<RemoteDir>library\lib\mips</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\mips</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidServiceOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\arm64-v8a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidServiceOutput_Android32">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashImageDef">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStyles">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStylesV21">
<Platform Name="Android">
<RemoteDir>res\values-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_Colors">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_DefaultAppIcon">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon144">
<Platform Name="Android">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon192">
<Platform Name="Android">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon36">
<Platform Name="Android">
<RemoteDir>res\drawable-ldpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-ldpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon48">
<Platform Name="Android">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon72">
<Platform Name="Android">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon96">
<Platform Name="Android">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon24">
<Platform Name="Android">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon36">
<Platform Name="Android">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon48">
<Platform Name="Android">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon72">
<Platform Name="Android">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon96">
<Platform Name="Android">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage426">
<Platform Name="Android">
<RemoteDir>res\drawable-small</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-small</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage470">
<Platform Name="Android">
<RemoteDir>res\drawable-normal</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-normal</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage640">
<Platform Name="Android">
<RemoteDir>res\drawable-large</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-large</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage960">
<Platform Name="Android">
<RemoteDir>res\drawable-xlarge</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xlarge</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_Strings">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyFramework">
<Platform Name="OSX32">
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="OSX64">
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyModule">
<Platform Name="OSX32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="DependencyPackage">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Name="File">
<Platform Name="Android">
<Operation>0</Operation>
</Platform>
<Platform Name="Android64">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>0</Operation>
</Platform>
<Platform Name="OSX32">
<Operation>0</Operation>
</Platform>
<Platform Name="OSX64">
<Operation>0</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iOS_AppStore1024">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_AppIcon152">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_AppIcon167">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_LaunchDark2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Notification40">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Setting58">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_SpotLight80">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_AppIcon120">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_AppIcon180">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch3x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_LaunchDark2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_LaunchDark3x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Notification40">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Notification60">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Setting58">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Setting87">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Spotlight120">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Spotlight80">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectAndroidManifest">
<Platform Name="Android">
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceDebug">
<Platform Name="iOSDevice32">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSEntitlements"/>
<DeployClass Name="ProjectiOSInfoPList"/>
<DeployClass Name="ProjectiOSLaunchScreen"/>
<DeployClass Name="ProjectiOSResource">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXDebug"/>
<DeployClass Name="ProjectOSXEntitlements"/>
<DeployClass Name="ProjectOSXInfoPList"/>
<DeployClass Name="ProjectOSXResource">
<Platform Name="OSX32">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="ProjectOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\arm64-v8a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="Linux64">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOutput_Android32">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectUWPManifest">
<Platform Name="Win32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo150">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo44">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="OSX64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
</Deployment>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
</Project>

128
项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.dproj.local Normal file
View File

@ -0,0 +1,128 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.075,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisScan.pas=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisSel.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</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.075,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisScan.dfm=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.901,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.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.873,=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.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.298,=D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeMarketInPut.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\T05门市订单管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\T05门市订单管理\TradeMarket.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.020,D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeMarketList.pas=D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeDispatchedList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.448,=D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeMarketList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.197,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketInPut.pas=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisSel.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\希风\T00贸易通用窗体\U_StockPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.996,D:\Dp10Repo\项目代码\希风\T00贸易通用窗体\U_StockPlanSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.530,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedSel.dfm=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.931,=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.530,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedSel.pas=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedList.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.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.020,D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeMarketList.dfm=D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeDispatchedList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.293,=D:\Dp10Repo\项目代码\宝磊\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,=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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.630,=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.197,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketInPut.dfm=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisSel.dfm</Transaction>
<Transaction>2024-07-29 11:45:50.623,=D:\RTFormwork\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>2024-07-29 11:45:50.667,=D:\RTFormwork\public10\design\U_FormLayOutDesign.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
<File Path="cloud-messaging.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-base.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-basement.16.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-gass.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-identity.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-maps.16.1.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-stats.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-tasks.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-wallet.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-analytics.16.4.0.dex.jar"/>
<File Path="com-google-firebase.firebase-common.16.1.0.dex.jar"/>
<File Path="com-google-firebase.firebase-iid-interop.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-iid.17.1.1.dex.jar"/>
<File Path="com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-messaging.17.5.0.dex.jar"/>
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\RTBasicsV1"/>
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
<File Path="..\A00通用窗体\U_ClothInfoSel.pas"/>
<File Path="..\A00通用窗体\U_ClothInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_CompanySel.pas"/>
<File Path="..\A00通用窗体\U_CompanySel.dfm"/>
<File Path="..\A00通用窗体\U_EmployeeSel.pas"/>
<File Path="..\A00通用窗体\U_EmployeeSel.dfm"/>
<File Path="..\A00通用窗体\U_LabelMapSet.pas"/>
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
<File Path="..\A00通用窗体\U_LabelPrint.pas"/>
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
<File Path="..\A00通用窗体\U_PictureUpload.pas"/>
<File Path="..\A00通用窗体\U_PictureUpload.dfm"/>
<File Path="D:\RTFormwork"/>
<File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/>
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
<File Path="..\..\..\public10\design\U_BaseHelp.dfm"/>
<File Path="..\..\..\public10\design\U_BaseInput.pas"/>
<File Path="..\..\..\public10\design\U_BaseInput.dfm"/>
<File Path="..\..\..\public10\design\U_BaseList.pas"/>
<File Path="..\..\..\public10\design\U_BaseList.dfm"/>
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<File Path="..\..\..\public10\design\U_globalVar.pas"/>
<File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<File Path="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<File Path="..\..\..\public10\ThreeFun"/>
<File Path="..\..\..\public10\ThreeFun\Form"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.dfm"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.dfm"/>
<File Path="..\..\..\public10\ThreeFun\Fun"/>
<File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
<File Path="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
<File Path="Unit1.pas"/>
<File Path="Unit1.dfm"/>
<File Path="U_DataLink.pas"/>
<File Path="U_DataLink.dfm"/>
<File Path="U_GetDllForm.pas"/>
<File Path="U_iniParam.pas"/>
<File Path="U_TradeMarketDisScan.pas"/>
<File Path="U_TradeMarketDisScan.dfm"/>
<File Path="U_TradeDispatchedSel.pas"/>
<File Path="U_TradeDispatchedSel.dfm"/>
</ProjectSortOrder>
</BorlandProject>

BIN
项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.identcache Normal file
View File

Binary file not shown.

BIN
项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.res Normal file
View File

Binary file not shown.

62
项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.skincfg Normal file
View File

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

14275
项目代码/RTBasicsV1/T05贸易门市管理/U_DataLink.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

143
项目代码/RTBasicsV1/T05贸易门市管理/U_DataLink.pas Normal file
View File

@ -0,0 +1,143 @@
unit U_DataLink;
interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinBasic,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue;
type
TMyThread = class(TThread)
protected
procedure Execute; override;
end;
var
DConString: string; {全局连接字符串}
server, dtbase, user, pswd: string; {数据库连接参数}
DCurHandle: hwnd; //当前窗体句柄
DName: string; //#用户名#//
DCode: string; //#用户编号#//
Ddatabase: string; //#数据库名称#//
DTitCaption: string; //#主窗体名称#//
PicSvr: string;
fDllFileName: string;
DParameters1, DParameters2, DParameters3, DParameters4, DParameters5: string; // 外部参数；
DParameters6, DParameters7, DParameters8, DParameters9, DParameters10: string; //外部参数；
OldDllApp: Tapplication; //保存原有句柄
NewDllApp: Tapplication; //当前句柄
MainApplication: Tapplication;
DFormCode: integer; //当前窗口号
IsDelphiLanguage: integer;
DServerDate: TdateTime; //服务器时间
DCompany: string; //公司
IpCall: Integer;
IpWLDZStr: string;
UserDataFlag: string;
type
TDataLink_TradeMarket = class(TDataModule)
AdoDataLink: TADOQuery;
ADOLink: TADOConnection;
ThreeImgList: TImageList;
ThreeLookAndFeelCol: TcxLookAndFeelController;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
SkyBlue: TcxStyle;
Default: TcxStyle;
QHuangSe: TcxStyle;
Red: TcxStyle;
FontBlue: TcxStyle;
TextSHuangSe: TcxStyle;
FonePurple: TcxStyle;
FoneClMaroon: TcxStyle;
FoneRed: TcxStyle;
RowColor: TcxStyle;
handBlack: TcxStyle;
cxBlue: TcxStyle;
SHuangSeCu: TcxStyle;
Timer_link: TTimer;
ImageList_new32: TImageList;
procedure DataModuleDestroy(Sender: TObject);
procedure Timer_linkTimer(Sender: TObject);
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TMakebar = procedure(ucData: pchar; nDataLen: integer; nErrLevel: integer; nMask: integer; nBarEdition: integer; szBmpFileName: pchar; nScale: integer); stdcall;
TMixtext = procedure(szSrcBmpFileName: PChar; szDstBmpFileName: PChar; sztext: PChar; fontsize, txtheight, hmargin, vmargin, txtcntoneline: integer); stdcall;
var
DataLink_TradeMarket: TDataLink_TradeMarket;
CriticalSection: TCriticalSection; {声明临界}
implementation
{$R *.dfm}
procedure TMyThread.Execute;
begin
FreeOnTerminate := True;
CriticalSection.Enter;
try
with DataLink_TradeMarket.AdoDataLink do
begin
close;
sql.Clear;
sql.Add('select getdate()');
open;
end;
except
try
with DataLink_TradeMarket.ADOLink do
begin
Connected := false;
ConnectionString := DConString;
LoginPrompt := false;
Connected := true;
end;
except
end;
end;
CriticalSection.Leave;
end;
procedure TDataLink_TradeMarket.DataModuleDestroy(Sender: TObject);
begin
CriticalSection.Free;
DataLink_TradeMarket := nil;
end;
procedure TDataLink_TradeMarket.Timer_linkTimer(Sender: TObject);
begin
TMyThread.Create(False);
end;
procedure TDataLink_TradeMarket.DataModuleCreate(Sender: TObject);
begin
CriticalSection := TCriticalSection.Create;
end;
end.

244
项目代码/RTBasicsV1/T05贸易门市管理/U_GetDllForm.pas Normal file
View File

@ -0,0 +1,244 @@
unit U_GetDllForm;
interface
uses
Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB, dxCore,
ActiveX, IniFiles;
function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; export; stdcall;
function ConnData(): Boolean;
function GetsysParam(muserId: pchar; fparam1: pchar): Boolean;
implementation
uses
U_DataLink, U_iniParam, U_TradeMarketList, U_TradeDispatchedList;
/////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 //
// 参数说明：App>>调用应用程序； //
// FormH>>调用窗口句柄 ； //
// FormID>>窗口号; //
// Language>>语言种类; //
// WinStyle>>窗口类型； //
/////////////////////////////////////////////////////////////////
function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd;
var
i: Integer;
bFound: Boolean;
mnewHandle: hwnd;
mstyle: TFormStyle; // 0:子窗口; 1：普通窗口
mstate: TWindowState;
mborderstyle: TFormBorderStyle;
begin
mnewHandle := 0;
DName := PChar(GName);
DCode := PChar(GCode);
DdataBase := DataBase;
DTitCaption := Title;
DParameters1 := Parameters1;
DParameters2 := Parameters2;
DParameters3 := Parameters3;
DParameters4 := Parameters4;
DParameters5 := Parameters5;
DParameters6 := Parameters6;
DParameters7 := Parameters7;
DParameters8 := Parameters8;
DParameters9 := Parameters9;
DParameters10 := Parameters10;
SetLength(fDllFileName, 255);
GetModuleFileName(HInstance, PChar(fDllFileName), Length(fDllFileName));
fDllFileName := ExtractFileName(PChar(fDllFileName));
MainApplication := App;
DCurHandle := FormH;
IsDelphiLanguage := Language;
Application := TApplication(App);
DCurHandle := 0;
//赋值链接字符串
SetLength(server, 255);
SetLength(dtbase, 255);
SetLength(user, 255);
SetLength(pswd, 255);
if trim(DataBaseStr) = '' then
begin
server := '101.132.143.144,7781';
dtbase := 'RTBasicsData';
user := 'rtsa';
pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
DParameters1 := '高权限';
end
else
begin
DConString := DataBaseStr;
end;
if not ConnData() then
begin
result := 0;
exit;
end;
if IsINIFile() then
ReadINIFile()
else
WriteINIFile;
GetsysParam('', '');
// 定义窗口类型 、状态
if WinStyle = 0 then
begin
mstyle := fsMDIChild;
mstate := wsMaximized;
mborderstyle := bsSizeable;
end
else
begin
mstyle := fsNormal;
mstate := wsNormal;
mborderstyle := bsSizeable;
end;
bFound := False;
if FormID <> 10000 then
begin
for i := 0 to Application.MainForm.MDIChildCount - 1 do
begin
if Application.MainForm.MDIChildren[i].Caption = Title then
begin
mnewHandle := Application.MainForm.MDIChildren[i].Handle;
Application.MainForm.MDIChildren[i].BringToFront;
bFound := True;
Result := mnewHandle;
exit;
end;
end;
end;
/////////////////////
//调用子模块窗口
case FormID of
111: //大货单
begin
with TfrmTradeMarketList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
fFormID := FormID;
FOrdType := '正常单';
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
112: //剪样单
begin
with TfrmTradeMarketList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
fFormID := FormID;
FOrdType := '剪样单';
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
121: //配货单
begin
with TfrmTradeDispatchedList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
fFormID := FormID;
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
10000:
begin
for i := 0 to application.MainForm.MDIChildCount - 1 do
begin
if application.MainForm.MDIChildren[i].Caption = Title then
begin
application.MainForm.MDIChildren[i].Close;
end;
end;
end;
end;
Result := mnewHandle;
end;
function GetsysParam(muserId: pchar; fparam1: pchar): Boolean;
begin
result := true;
//////////////////////////////
// shortDateFormat := 'yyyy-MM-dd';
//服务器日期
with DataLink_TradeMarket.AdoDataLink do
begin
close;
sql.Clear;
sql.Add('select getDate()as dt');
open;
DServerDate := fieldByName('dt').AsDatetime;
end;
result := true;
end;
//===========================================================
//建立数据库连接池
//===========================================================
function ConnData(): Boolean;
var
IniFile: TIniFile;
begin
try
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'SYSTEMSET.INI');
PicSvr := IniFile.ReadString('SERVER', '服务器地址', '127.0.0.1');
UserDataFlag := IniFile.ReadString('SERVER', '服务器地址类型', '-1');
finally
IniFile.Free;
end;
if not Assigned(DataLink_TradeMarket) then
DataLink_TradeMarket := TDataLink_TradeMarket.Create(Application);
try
with DataLink_TradeMarket.ADOLink do
begin
if not Connected then
begin
Connected := false;
ConnectionString := DConString;
LoginPrompt := false;
Connected := true;
end;
end;
Result := true;
except
Result := false;
application.MessageBox('数据库连接失败！', '错误', mb_Ok + MB_ICONERROR);
end;
end;
initialization
CoInitialize(nil);
dxUnitsLoader.Initialize;
finalization
DataLink_TradeMarket.Free;
application := NewDllApp;
dxUnitsLoader.Finalize;
end.

1014
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeDispatchedList.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

1488
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeDispatchedList.pas Normal file
View File

File diff suppressed because it is too large Load Diff

458
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeDispatchedSel.dfm Normal file
View File

@ -0,0 +1,458 @@
inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
Left = 165
Top = 13
Caption = #37197#36135#31649#29702
ClientHeight = 562
ClientWidth = 1540
Position = poScreenCenter
ExplicitLeft = -70
ExplicitWidth = 1556
ExplicitHeight = 601
PixelsPerInch = 96
TextHeight = 13
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeMarket.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object ToolButton2: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 166
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1540
Height = 51
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
object Label3: TLabel
Left = 317
Top = 20
Width = 52
Height = 12
Caption = #22823#36135#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 613
Top = 119
Width = 26
Height = 12
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 637
Top = 20
Width = 26
Height = 12
Caption = #23458#25143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 478
Top = 20
Width = 52
Height = 12
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 128
Top = 16
Width = 85
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464742650459811600
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 219
Top = 16
Width = 86
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009200
TabOrder = 2
end
object TMMNo: TEdit
Tag = 2
Left = 375
Top = 16
Width = 77
Height = 21
TabOrder = 1
OnKeyPress = TMMNoKeyPress
end
object MPRTKZ: TEdit
Tag = 2
Left = 654
Top = 99
Width = 56
Height = 21
TabOrder = 3
end
object ComboBox1: TComboBox
Left = 49
Top = 16
Width = 71
Height = 21
Enabled = False
TabOrder = 4
Text = #21046#21333#26085#26399
OnChange = ComboBox1Change
Items.Strings = (
#21046#21333#26085#26399
#20132#36135#26085#26399)
end
object CustName: TEdit
Tag = 2
Left = 669
Top = 16
Width = 80
Height = 21
TabOrder = 5
OnKeyPress = TMMNoKeyPress
end
object C_Name: TEdit
Tag = 2
Left = 533
Top = 16
Width = 77
Height = 21
TabOrder = 6
OnKeyPress = TMMNoKeyPress
end
object CheckBox1: TCheckBox
Left = 28
Top = 18
Width = 19
Height = 17
Checked = True
State = cbChecked
TabOrder = 7
end
object CheckBox3: TCheckBox
Left = 776
Top = 16
Width = 99
Height = 19
Caption = #20840#36873
TabOrder = 8
OnClick = CheckBox3Click
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 111
Width = 1540
Height = 451
Align = alClient
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv1Column11
end
item
Kind = skSum
Column = Tv1Column10
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
Styles.Content = DataLink_TradeMarket.Default
Styles.IncSearch = DataLink_TradeMarket.SHuangSe
Styles.Footer = DataLink_TradeMarket.Default
Styles.Header = DataLink_TradeMarket.Default
Styles.Inactive = DataLink_TradeMarket.SHuangSe
Styles.Selection = DataLink_TradeMarket.SHuangSe
object Tv1Column14: TcxGridDBColumn
Caption = #22823#36135#21333#21495
DataBinding.FieldName = 'TMMNO'
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1OrdDate: TcxGridDBColumn
Caption = #21046#21333#26085#26399
DataBinding.FieldName = 'OrdDate'
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 66
end
object Tv1Column2: TcxGridDBColumn
Caption = #32463#33829#21333#20301
DataBinding.FieldName = 'OurCoName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.FontBlue
Width = 66
end
object Tv1Column4: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.FoneClMaroon
Width = 66
end
object v1DeliveryDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 66
end
object Tv1Column9: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_Code'
HeaderAlignmentHorz = taCenter
end
object Tv1Column12: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
HeaderAlignmentHorz = taCenter
end
object Tv1Column13: TcxGridDBColumn
Caption = #20013#25991#39068#33394
DataBinding.FieldName = 'C_Color'
HeaderAlignmentHorz = taCenter
end
object Tv1Column15: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column11: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'TMSPiece'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column10: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'TMSQty'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column7: TcxGridDBColumn
Caption = #37197#36135#21305#25968
DataBinding.FieldName = 'PHRollNum'
end
object Tv1Column8: TcxGridDBColumn
Caption = #37197#36135#25968#37327
DataBinding.FieldName = 'PHQty'
end
object v1Column11: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'OrdUnit'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column6: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'FILLER'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column1: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column3: TcxGridDBColumn
Caption = #21457#36135#22320#22336
DataBinding.FieldName = 'ShippingAddress'
HeaderAlignmentHorz = taCenter
Width = 134
end
object Tv1Column5: TcxGridDBColumn
Caption = #32852#31995#26041#24335
DataBinding.FieldName = 'CONTACT'
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 89
Width = 1540
Height = 22
Align = alTop
Enabled = False
TabOrder = 3
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#37197#36135
#24050#37197#36135
#24050#21457#36135
#20840#37096)
OnChange = cxTabControl1Change
ClientRectRight = 0
ClientRectTop = 0
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Left = 257
Top = 152
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Left = 121
Top = 153
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Parameters = <>
Left = 568
Top = 240
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 428
Top = 176
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 328
Top = 168
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 812
Top = 440
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 724
Top = 432
end
object ADOQuerySub: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Parameters = <>
Left = 328
Top = 272
end
object DataSource2: TDataSource
DataSet = ORDER_SUB
Left = 616
Top = 420
end
object IdFTP1: TIdFTP
ConnectTimeout = 0
NATKeepAlive.UseKeepAlive = False
NATKeepAlive.IdleTimeMS = 0
NATKeepAlive.IntervalMS = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
ReadTimeout = 0
Left = 92
Top = 258
end
object ORDER_SUB: TClientDataSet
Aggregates = <>
Params = <>
Left = 228
Top = 264
end
end

449
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeDispatchedSel.pas Normal file
View File

@ -0,0 +1,449 @@
unit U_TradeDispatchedSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls,
RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
IdExplicitTLSClientServerBase, U_BaseHelp, Vcl.Clipbrd, U_BaseList,
System.ImageList, Vcl.ImgList;
type
TfrmTradeDispatchedSel = class(TfrmBaseHelp)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
TMMNo: TEdit;
v1OrdDate: TcxGridDBColumn;
v1DeliveryDate: TcxGridDBColumn;
Order_Main: TClientDataSet;
Label12: TLabel;
MPRTKZ: TEdit;
ADOQuerySub: TADOQuery;
DataSource2: TDataSource;
IdFTP1: TIdFTP;
v1Column11: TcxGridDBColumn;
ORDER_SUB: TClientDataSet;
ComboBox1: TComboBox;
Label1: TLabel;
CustName: TEdit;
Tv1Column6: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Label2: TLabel;
C_Name: TEdit;
CheckBox1: TCheckBox;
ToolButton2: TToolButton;
Tv1Column4: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
cxTabControl1: TcxTabControl;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
CheckBox3: TCheckBox;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TMMNoMChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBTPClick(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure TMMNoKeyPress(Sender: TObject; var Key: Char);
procedure cxTabControl1Change(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
procedure JGTypeChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure fhClick(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
private
DQdate: TDateTime;
MSubIds: string;
procedure InitGrid();
procedure InitForm();
function DelData(): Boolean;
procedure InitGridFH();
procedure InitSub();
procedure InitPH();
procedure SetStatus();
procedure InitImage(fwbid: string);
function SaveData(): Boolean;
procedure SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string);
{ Private declarations }
public
FFInt, FCloth: Integer;
canshu1, canshu2: string;
fFlileFlag: string;
FNOTE: string;
{ Public declarations }
end;
var
frmTradeDispatchedSel: TfrmTradeDispatchedSel;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_AttachmentUpload,
U_TradeMarketInPut, U_TradeMarketDisSel, U_TradeMarketDisScan;
{$R *.dfm}
procedure TfrmTradeDispatchedSel.InitImage(fwbid: string);
begin
end;
procedure TfrmTradeDispatchedSel.SetStatus();
begin
end;
procedure TfrmTradeDispatchedSel.InitSub();
begin
end;
procedure TfrmTradeDispatchedSel.InitPH();
begin
end;
procedure TfrmTradeDispatchedSel.JGTypeChange(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTradeDispatchedSel.FormDestroy(Sender: TObject);
begin
inherited;
// frmProductOrderList:=nil;
end;
procedure TfrmTradeDispatchedSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmTradeDispatchedSel.FormCreate(Sender: TObject);
begin
inherited;
cxgrid1.Align := alClient;
DQdate := SGetServerDate(ADOQueryTemp);
end;
procedure TfrmTradeDispatchedSel.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTradeDispatchedSel.InitGrid();
var
STRwhere, Pwhere: string;
begin
STRwhere := '';
Pwhere := SGetFilters(Panel1, 1, 2);
begin
if trim(Pwhere) <> '' then
STRwhere := STRwhere + ' and ' + trim(Pwhere);
end;
STRwhere := STRwhere + ' and isnull(A.Status,''0'')=''9'' ';
if cxTabControl1.TabIndex = 0 then
begin
STRwhere := STRwhere + ' and isnull(substatus,''0'')=''' + inttostr(cxTabControl1.TabIndex) + '''';
end;
if (cxTabControl1.TabIndex >= 1) and (cxTabControl1.TabIndex < 3) then
STRwhere := STRwhere + ' and isnull(substatus,''0'')=''' + inttostr(cxTabControl1.TabIndex + 1) + '''';
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.add(' select * ');
sql.Add(' ,PHRollNum=(select count(X.STKID) from Trade_Market_Distribution X where X.TMMID=A.TMMID and X.TMSID=B.TMSID)');
sql.Add(' ,PHQty=(select sum(STKMeter) from Trade_Market_Distribution X inner join Trade_Cloth_Stock XX on X.stkid=XX.stkid where X.TMMID=A.TMMID and X.TMSID=B.TMSID)');
sql.add(' from Trade_Market_Sub B');
sql.add(' inner join Trade_Market_Main A on B.TMMID=A.TMMID ');
if (ComboBox1.Text = '制单日期') and (CheckBox1.Checked = True) then
begin
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
end;
if (ComboBox1.Text = '制单日期') and (CheckBox1.Checked = False) then
begin
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime - 39999))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
end;
if (ComboBox1.Text = '交货日期') and (CheckBox1.Checked = True) then
begin
sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
sql.add(' and A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
end;
if (ComboBox1.Text = '交货日期') and (CheckBox1.Checked = False) then
begin
sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime - 39999))));
sql.add(' and A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
end;
if canshu1 = '录入' then
begin
sql.add(' and A.Filler= ' + QuotedStr(Trim(DName)));
end;
sql.add(' ' + STRwhere);
sql.Add(' and ordtype=''正常单'' ');
sql.add(' order by filltime desc');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
TV1.DataController.Filter.Clear;
end;
end;
procedure TfrmTradeDispatchedSel.SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string);
begin
end;
procedure TfrmTradeDispatchedSel.InitGridFH();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('exec Order_QryList :TMMId,:WSql');
Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''';
Open;
end;
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmTradeDispatchedSel.InitForm();
begin
ReadCxGrid('指示单列表FF1', Tv1, '生产指示单管理');
BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 180;
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
SetStatus();
InitGrid();
end;
function TfrmTradeDispatchedSel.DelData(): Boolean;
begin
try
Result := false;
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Trade_Market_Main where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + '''');
sql.Add('delete Trade_Market_Sub where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + '''');
sql.Add('delete Trade_Plan_Fty where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').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('TMMNo').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('数据删除异常！', '提示', 0);
end;
end;
procedure TfrmTradeDispatchedSel.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTradeDispatchedSel.TMMNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
end;
procedure TfrmTradeDispatchedSel.FormShow(Sender: TObject);
begin
inherited;
InitForm();
end;
procedure TfrmTradeDispatchedSel.TBTPClick(Sender: TObject);
var
FQty, FQty1, FMxQty, FPQty, FMxQtyS, FPQtyS: string;
begin
end;
procedure TfrmTradeDispatchedSel.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTradeDispatchedSel.CheckBox3Click(Sender: TObject);
begin
inherited;
if Order_Main.IsEmpty then
exit;
with Order_Main do
begin
DisableControls;
first;
while not eof do
begin
edit;
fieldbyname('ssel').Value := checkbox1.Checked;
post;
next;
end;
First;
EnableControls;
end;
end;
procedure TfrmTradeDispatchedSel.TMMNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
initgrid();
end;
end;
procedure TfrmTradeDispatchedSel.fhClick(Sender: TObject);
var
MStkIds, maxno: string;
i, fRoll: integer;
fNum: double;
begin
end;
procedure TfrmTradeDispatchedSel.cxTabControl1Change(Sender: TObject);
begin
SetStatus();
InitGrid();
end;
procedure TfrmTradeDispatchedSel.N1Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTradeDispatchedSel.N3Click(Sender: TObject);
begin
SelOKNoFiler(Tv1, True); //全选
end;
procedure TfrmTradeDispatchedSel.N4Click(Sender: TObject);
begin
SelOKNoFiler(Tv1, False); //全弃
end;
procedure TfrmTradeDispatchedSel.ComboBox1Change(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTradeDispatchedSel.CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmTradeDispatchedSel.ToolButton2Click(Sender: TObject);
begin
WriteCxGrid('指示单列表FF1', Tv1, '生产指示单管理');
end;
procedure TfrmTradeDispatchedSel.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
inherited;
if Order_Main.IsEmpty then
exit;
ModalResult := 1;
end;
function TfrmTradeDispatchedSel.SaveData(): Boolean;
begin
end;
end.

704
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketDisScan.dfm Normal file
View File

@ -0,0 +1,704 @@
inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
Left = 143
Top = 4
Caption = #25195#25551#37197#36135
ClientHeight = 650
ClientWidth = 1540
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307
Position = poMainFormCenter
WindowState = wsMaximized
ExplicitWidth = 1556
ExplicitHeight = 689
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clWhite
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeMarket.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = TBSaveClick
end
object ToolButton3: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
end
object TBClose: TToolButton
Left = 166
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object MovePanel2: TMovePanel [1]
Left = 408
Top = 192
Width = 289
Height = 49
BevelInner = bvLowered
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
Visible = False
end
object Panel1: TPanel [2]
Left = 0
Top = 38
Width = 1540
Height = 75
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 2
object Label1: TLabel
Left = 24
Top = 24
Width = 100
Height = 24
Caption = #26465#30721#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 428
Top = 28
Width = 80
Height = 20
Caption = #37197#36135#20154#21592
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object SmNO: TEdit
Left = 130
Top = 20
Width = 153
Height = 32
CharCase = ecUpperCase
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnKeyPress = SmNOKeyPress
end
object PHYG: TBtnEditA
Left = 508
Top = 24
Width = 100
Height = 29
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
end
object Button1: TButton
Left = 281
Top = 20
Width = 75
Height = 33
Caption = #36873#25321
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = Button1Click
end
end
object cxGrid1: TcxGrid [3]
Left = 0
Top = 113
Width = 713
Height = 537
Align = alLeft
TabOrder = 3
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1RollNum
end
item
Kind = skSum
Column = v1Qty
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object v1MJID: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'TMMNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 133
end
object v1MJXH: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object v1P_Code: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 88
end
object v1P_Color: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 62
end
object Tv1Column2: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1RollNum: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'TMSPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 73
end
object v1Qty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'TMSQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 76
end
object v1PHRollNum: TcxGridDBColumn
Caption = #37197#36135#21305#25968
DataBinding.FieldName = 'PHRollNum'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 131
end
object v1PHQty: TcxGridDBColumn
Caption = #37197#36135#25968#37327
DataBinding.FieldName = 'PHQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 125
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object cxGrid2: TcxGrid [4]
Left = 713
Top = 113
Width = 827
Height = 537
Align = alClient
TabOrder = 4
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCustomDrawCell = TV2CustomDrawCell
DataController.DataSource = DataSource2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = cxGridDBColumn5
end
item
Kind = skSum
Column = cxGridDBColumn6
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsCustomize.ColumnSorting = False
OptionsData.Deleting = False
OptionsData.Inserting = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object V2Column2: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Width = 66
end
object cxGridDBColumn1: TcxGridDBColumn
Caption = #25195#25551#20449#24687
DataBinding.FieldName = 'SDefNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 204
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'RollNum'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'stkmetet'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 102
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #26465#30721
DataBinding.FieldName = 'ciid'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 166
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 109
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
end
object TV2Column1: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
end
object V2Column1: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'batchno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #31561#32423
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 93
end
object V2Column3: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 67
end
object V2Column4: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
object MovePanel1: TMovePanel [5]
Left = 28
Top = 345
Width = 561
Height = 305
BevelInner = bvLowered
Color = clSkyBlue
TabOrder = 5
Visible = False
object Label2: TLabel
Left = 48
Top = 160
Width = 150
Height = 48
Caption = 'Label2'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -48
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Edit2: TEdit
Left = 85
Top = 35
Width = 386
Height = 72
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -64
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 0
Text = '91209120001'
end
object Button4: TButton
Left = 224
Top = 248
Width = 75
Height = 41
Caption = #20851#38381
TabOrder = 1
OnClick = Button4Click
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Left = 265
Top = 504
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Left = 353
Top = 505
end
inherited ImageList_new32: TImageList
Left = 1480
Top = 32
end
object GPM_1: TcxGridPopupMenu
PopupMenus = <>
Left = 436
Top = 509
end
object cxStyleRepository1: TcxStyleRepository
Left = 69
Top = 130
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svColor, svFont]
Color = clInactiveCaption
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle2: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = 4707838
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clBtnText
end
object cxStyle_gridRow: TcxStyle
AssignedValues = [svColor, svFont]
Color = 16311512
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_gridFoot: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_gridHead: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_gridGroupBox: TcxStyle
AssignedValues = [svColor, svFont]
Color = clMoneyGreen
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_yellow: TcxStyle
AssignedValues = [svColor, svFont]
Color = 8454143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_Red: TcxStyle
AssignedValues = [svColor, svFont]
Color = clRed
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_fontBlack: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_fontclFuchsia: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clFuchsia
end
object cxStyle_fontclPurple: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clPurple
end
object cxStyle_fontclGreen: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clGreen
end
object cxStyle_fontclBlue: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clBlue
end
object cxStyle_fontclTeal: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clTeal
end
object cxStyle_fontclOlive: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clOlive
end
end
object CDSOrder: TClientDataSet
Aggregates = <>
Params = <>
Left = 172
Top = 144
end
object DataSource1: TDataSource
DataSet = CDSOrder
Left = 232
Top = 160
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Parameters = <>
Left = 352
Top = 312
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 360
Top = 240
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Parameters = <>
Left = 404
Top = 216
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Parameters = <>
Left = 492
Top = 252
end
object RMDB_Main: TRMDBDataSet
Visible = True
Left = 608
Top = 264
end
object ADOQuery1: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 648
Top = 232
end
object CDSMJID: TClientDataSet
Aggregates = <>
Params = <>
Left = 732
Top = 212
end
object DataSource2: TDataSource
DataSet = CDSMJID
Left = 872
Top = 248
end
object RMXLSExport2: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 1
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 860
Top = 164
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator]
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 784
Top = 136
ReportData = {}
end
end

603
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketDisScan.pas Normal file
View File

@ -0,0 +1,603 @@
unit U_TradeMarketDisScan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus,
cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC,
System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
IdFTP, ShellAPI, MovePanel, RM_e_Xls, MMSystem, 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;
type
TfrmTradeMarketDisScan = class(TfrmBaseInput)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
GPM_1: TcxGridPopupMenu;
ToolButton3: TToolButton;
MovePanel2: TMovePanel;
Panel1: TPanel;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1MJID: TcxGridDBColumn;
v1MJXH: TcxGridDBColumn;
v1P_Code: TcxGridDBColumn;
v1P_Color: TcxGridDBColumn;
v1RollNum: TcxGridDBColumn;
v1Qty: TcxGridDBColumn;
v1PHRollNum: TcxGridDBColumn;
v1PHQty: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
V2Column2: TcxGridDBColumn;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
V2Column1: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
V2Column3: TcxGridDBColumn;
V2Column4: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
MovePanel1: TMovePanel;
Label2: TLabel;
Edit2: TEdit;
Button4: TButton;
Label1: TLabel;
SmNO: TEdit;
Label15: TLabel;
PHYG: TBtnEditA;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxStyle2: TcxStyle;
cxStyle_gridRow: TcxStyle;
cxStyle_gridFoot: TcxStyle;
cxStyle_gridHead: TcxStyle;
cxStyle_gridGroupBox: TcxStyle;
cxStyle_yellow: TcxStyle;
cxStyle_Red: TcxStyle;
cxStyle_fontBlack: TcxStyle;
cxStyle_fontclFuchsia: TcxStyle;
cxStyle_fontclPurple: TcxStyle;
cxStyle_fontclGreen: TcxStyle;
cxStyle_fontclBlue: TcxStyle;
cxStyle_fontclTeal: TcxStyle;
cxStyle_fontclOlive: TcxStyle;
CDSOrder: TClientDataSet;
DataSource1: TDataSource;
ADOQueryTmp: TADOQuery;
ADOQueryPrint: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryCmd: TADOQuery;
RMDB_Main: TRMDBDataSet;
ADOQuery1: TADOQuery;
CDSMJID: TClientDataSet;
DataSource2: TDataSource;
RMXLSExport2: TRMXLSExport;
RM1: TRMGridReport;
Tv1Column2: TcxGridDBColumn;
TV2Column1: TcxGridDBColumn;
Button1: TButton;
procedure TBCloseClick(Sender: TObject);
procedure CustomerNoNameBtnDnClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure SmNOKeyPress(Sender: TObject; var Key: Char);
procedure TBSaveClick(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
fCode, fColor, FPattern: string;
function SaveData(): Boolean;
procedure InitOrder();
procedure InitMJID();
procedure initGrid();
{ Private declarations }
public
FMainid: string;
{ Public declarations }
end;
var
frmTradeMarketDisScan: TfrmTradeMarketDisScan;
newh: hwnd;
implementation
uses
U_DataLink, U_ZDYHelp, U_ZDYHelpSel, U_RTFun, U_CompanySel, U_PictureUpload,
U_ClothInfoSel, U_TradeDispatchedSel;
{$R *.dfm}
procedure TfrmTradeMarketDisScan.TBCloseClick(Sender: TObject);
begin
Close;
end;
function TfrmTradeMarketDisScan.SaveData(): Boolean;
var
phID: string;
P_ID: integer;
begin
Result := false;
ADOQueryCmd.Connection.BeginTrans;
P_ID := 1;
try
with CDSMJID do
begin
DisableControls;
first;
while not eof do
begin
if trim(CDSMJID.fieldbyname('SDefNote').AsString) = '扫描成功' then
begin
if GetLSNo(ADOQueryTmp, phID, 'PH', 'Trade_Market_Distribution', 4, 1) = False then
begin
Application.MessageBox('取配货单号失败！', '提示', 0);
Exit;
end;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from Trade_Market_Distribution ');
sql.Add('where 1=2 ');
open;
end;
ADOQueryCmd.Append;
ADOQueryCmd.FieldByName('TMDID').Value := trim(phID);
ADOQueryCmd.FieldByName('TMMID').Value := trim(cdsmjid.fieldbyname('TMMID').AsString);
ADOQueryCmd.FieldByName('TMSID').Value := trim(cdsmjid.fieldbyname('TMSID').AsString);
ADOQueryCmd.FieldByName('STKID').Value := trim(cdsmjid.fieldbyname('STKID').AsString);
ADOQueryCmd.FieldByName('Filler').Value := trim(DName);
ADOQueryCmd.FieldByName('PHYG').Value := trim(PHYG.Text);
ADOQueryCmd.FieldByName('TMDType').Value := '扫描配货';
ADOQueryCmd.Post;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from Trade_Cloth_Stock ');
sql.Add('where stkid=' + quotedstr(trim(CDSMJID.fieldbyname('stkid').AsString)));
open;
edit;
fieldbyname('DISstatus').Value := '1';
post;
end;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from Trade_Market_Sub ');
sql.Add('where TMSID=' + quotedstr(trim(CDSMJID.fieldbyname('TMSID').AsString)));
open;
edit;
fieldbyname('substatus').Value := '2';
post;
end;
end;
next;
end;
first;
EnableControls;
end;
ADOQueryCmd.Connection.CommitTrans;
Result := true;
except
ADOQueryCmd.Connection.RollbackTrans;
end;
end;
procedure TfrmTradeMarketDisScan.SmNOKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if Key = #13 then
begin
MovePanel1.Visible := false;
if trim(smno.Text) = '' then
exit;
if uppercase(leftBstr(trim(smno.Text), 2)) = 'JM' then
begin
if not CDSMJID.IsEmpty then
begin
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\数据未保存.wav')) then
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\数据未保存.wav'), 0, SND_ASYNC);
exit;
end;
inItorder();
end
else
begin
if CDSOrder.IsEmpty then
begin
MovePanel1.Visible := true;
Edit2.Text := SmNO.Text;
Label2.Caption := '订单不能为空！';
smno.Text := '';
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\订单不能为空.wav')) then
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\订单不能为空.wav'), 0, SND_ASYNC);
exit;
end;
if not CDSMJID.Locate('CIID', trim(smNo.Text), []) then
begin
initMjid();
end
else
begin
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\重复扫描.wav')) then
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\重复扫描.wav'), 0, SND_ASYNC);
end;
end;
smno.Text := '';
smno.SetFocus;
end;
end;
procedure TfrmTradeMarketDisScan.TBRafreshClick(Sender: TObject);
begin
inherited;
MovePanel2.Visible := True;
MovePanel2.Refresh;
initOrder();
MovePanel2.Visible := False;
end;
procedure TfrmTradeMarketDisScan.TBSaveClick(Sender: TObject);
begin
inherited;
if CDSOrder.IsEmpty then
exit;
if CDSMJID.IsEmpty then
exit;
try
if not SaveData() then
begin
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\保存失败.wav')) then
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\保存失败.wav'), 0, SND_ASYNC);
exit;
end
else
begin
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\保存成功.wav')) then
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\保存成功.wav'), 0, SND_ASYNC);
initGrid();
exit;
end;
except
end;
end;
procedure TfrmTradeMarketDisScan.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
inherited;
var i: integer;
begin
i := tv2.GetColumnByFieldName('SDefNote').Index;
if (AViewInfo.GridRecord.Values[i] <> '扫描成功') then
ACanvas.Brush.Color := clred;
end;
end;
procedure TfrmTradeMarketDisScan.Button1Click(Sender: TObject);
var
key: Char;
begin
inherited;
key := #13;
frmTradeDispatchedSel := TfrmTradeDispatchedSel.create(self);
with frmTradeDispatchedSel do
begin
if showmodal = 1 then
begin
smno.Text := trim(Order_Main.FieldByName('TMMID').AsString);
SmNOKeyPress(smno, key);
end;
free;
end;
end;
procedure TfrmTradeMarketDisScan.Button4Click(Sender: TObject);
begin
inherited;
MovePanel1.Visible := False;
end;
procedure TfrmTradeMarketDisScan.CustomerNoNameBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmTradeMarketDisScan.InitOrder();
var
fP_No: string;
begin
MovePanel1.Visible := false;
CDSMJID.EmptyDataSet;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.add(' select * ');
sql.Add(' ,PHRollNum=(select count(STKID) from Trade_Market_Distribution X where X.TMMID=A.TMMID and X.TMSID=B.TMSID),');
sql.Add(' PHQty=(select sum(STKMeter) from Trade_Market_Distribution X inner join Trade_Cloth_Stock XX on X.stkid=XX.stkid where X.TMMID=A.TMMID and X.TMSID=B.TMSID)');
sql.add(' from Trade_Market_Sub B');
sql.add(' inner join Trade_Market_Main A on B.TMMID=A.TMMID ');
SQL.Add(' where A.TMMID=' + quotedstr(trim(SmNO.text)));
SQL.Add(' and isnull(B.substatus,''0'')<=''2'' ');
Open;
end;
if ADOQueryMain.IsEmpty then
begin
MovePanel1.Visible := true;
Edit2.text := SmNO.Text;
Label2.Caption := '订单号未审核或已发货！';
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\订单不存在.wav')) then
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\订单不存在.wav'), 0, SND_ASYNC);
exit;
end
else
begin
SCreateCDS(ADOQueryMain, CDSOrder);
SInitCDSData(ADOQueryMain, CDSOrder);
with CDSOrder do
begin
DisableControls;
first;
while not eof do
begin
next;
end;
first;
EnableControls;
end;
end;
end;
procedure TfrmTradeMarketDisScan.InitGrid();
begin
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.add(' select * ');
sql.Add(' ,PHRollNum=(select count(X.STKID) from Trade_Market_Distribution X where X.TMMID=A.TMMID and X.TMSID=B.TMSID),');
sql.Add(' PHQty=(select sum(STKMeter) from Trade_Market_Distribution X inner join Trade_Cloth_Stock XX on X.stkid=XX.stkid where X.TMMID=A.TMMID and X.TMSID=B.TMSID)');
sql.add(' from Trade_Market_Sub B');
sql.add(' inner join Trade_Market_Main A on B.TMMID=A.TMMID ');
SQL.Add(' where 1=2 ');
Open;
end;
SCreateCDS(ADOQueryMain, CDSOrder);
SInitCDSData(ADOQueryMain, CDSOrder);
with ADOQueryMain do
begin
Close;
sql.Clear;
SQL.Add('select A.*,B.TMMID,TMSID,TMDID,cast(0 as int) as RollNum from Trade_Cloth_Stock A ');
SQL.Add('inner join Trade_Market_Distribution B on B.STKID=A.STKID ');
SQL.Add('where 1=2 ');
Open;
end;
SCreateCDS(ADOQueryMain, CDSMJID);
SInitCDSData(ADOQueryMain, CDSMJID);
end;
procedure TfrmTradeMarketDisScan.FormShow(Sender: TObject);
begin
MovePanel1.Left := (Width - MovePanel1.Width) div 2;
MovePanel1.top := (Height - MovePanel1.Height - 200) div 2;
InitGrid();
end;
procedure TfrmTradeMarketDisScan.InitMJID();
var
fP_No: string;
i: integer;
begin
MovePanel1.Visible := false;
with ADOQueryTmp do
begin
Close;
sql.Clear;
SQL.Add('select CIID from Trade_Cloth_Inspect A');
SQL.Add('where A.CIID=' + quotedstr(trim(SmNO.text)));
SQL.Add('and CIIOFlag=''未入库''');
Open;
if not IsEmpty then
begin
CDSMJID.Append;
CDSMJID.FieldByName('SDefNote').Value := '此条码未入库';
CDSMJID.FieldByName('CIID').Value := trim(SmNO.Text);
CDSMJID.Post;
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\此条码未入库.wav')) then
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\此条码未入库.wav'), 0, SND_ASYNC);
Exit;
end;
end;
with ADOQueryTmp do
begin
Close;
sql.Clear;
SQL.Add('select Stkid from Trade_Cloth_IO A');
SQL.Add('where A.stkid=' + quotedstr(trim(SmNO.text)));
SQL.Add('and IOFlag=''出库''');
Open;
if not IsEmpty then
begin
CDSMJID.Append;
CDSMJID.FieldByName('SDefNote').Value := '此条码已出库';
CDSMJID.FieldByName('Stkid').Value := trim(SmNO.Text);
CDSMJID.Post;
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\此条码已出库.wav')) then
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\此条码已出库.wav'), 0, SND_ASYNC);
Exit;
end;
end;
with ADOQueryMain do
begin
Close;
sql.Clear;
SQL.Add('select A.* from Trade_Market_Distribution A');
SQL.Add('where A.STKID=' + quotedstr(trim(SmNO.text)));
// ShowMessage(sql.Text);
Open;
end;
if ADOQueryMain.IsEmpty = false then
begin
CDSMJID.Append;
CDSMJID.FieldByName('SDefNote').Value := '此条码已配货';
CDSMJID.FieldByName('CIID').Value := trim(SmNO.Text);
CDSMJID.Post;
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\扫描错误.wav')) then
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\扫描错误.wav'), 0, SND_ASYNC);
exit;
end;
with ADOQueryMain do
begin
Close;
sql.Clear;
SQL.Add('select A.* from Trade_Cloth_Stock A');
sql.add('left join Trade_Cloth_IO B on B.stkid=A.stkid and B.IOFlag=''入库'' ');
SQL.Add('where A.CIID=' + quotedstr(trim(SmNO.text)));
sql.Add('and isnull(A.DisStatus,''0'')=''0'' ');
sql.Add('and StkExists=1 ');
// ShowMessage(sql.Text);
Open;
end;
if ADOQueryMain.IsEmpty then
begin
CDSMJID.Append;
CDSMJID.FieldByName('SDefNote').Value := '此条码不存在或已出库';
CDSMJID.FieldByName('CIID').Value := trim(SmNO.Text);
CDSMJID.Post;
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\扫描错误.wav')) then
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\扫描错误.wav'), 0, SND_ASYNC);
exit;
end;
with ADOQueryTmp do
begin
Close;
sql.Clear;
SQL.Add('select A.STKID,B.TMMID,B.TMSID from Trade_Cloth_Stock A');
sql.Add('inner join Trade_Market_Sub B on isnull(B.C_Name,'''')=isnull(A.C_Name,'''') and isnull(B.C_Pattern,'''')= isnull(A.C_Pattern,'''') ');
SQL.Add('where A.STKID=' + quotedstr(trim(SmNO.text)));
SQL.Add('and B.TMMID=' + quotedstr(trim(CDSOrder.Fieldbyname('TMMID').AsString)));
// SQL.ADD('and isnull(B.PRTKZ,'''')<>'''' ');
Open;
end;
if ADOQueryTmp.IsEmpty then
begin
CDSMJID.Append;
CDSMJID.FieldByName('SDefNote').Value := '产品名称和花型不对应';
CDSMJID.FieldByName('STKID').Value := trim(SmNO.Text);
CDSMJID.Post;
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\品名颜色不对应.wav')) then
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\品名颜色不对应.wav'), 0, SND_ASYNC);
exit;
end;
i := 0;
while not ADOQueryTmp.eof do
begin
if CDSOrder.Locate('TMSID', trim(ADOQueryTmp.fieldbyname('TMSID').AsString), []) then
begin
if (CDSOrder.fieldbyName('TMSPiece').AsInteger = CDSOrder.FieldByName('PHRollNum').AsInteger) and (CDSOrder.fieldbyName('TMSPiece').AsInteger > 0) then
begin
end
else
begin
i := 1;
CDSMJID.Append;
CDSMJID.FieldByName('SDefNote').Value := '扫描成功';
CDSMJID.FieldByName('CIID').Value := trim(ADOQueryMain.Fieldbyname('CIID').AsString);
CDSMJID.FieldByName('stkid').Value := trim(ADOQueryMain.Fieldbyname('stkid').AsString);
CDSMJID.FieldByName('C_Name').Value := trim(ADOQueryMain.Fieldbyname('C_Name').AsString);
CDSMJID.FieldByName('C_Color').Value := trim(ADOQueryMain.Fieldbyname('C_Color').AsString);
CDSMJID.FieldByName('Grade').Value := trim(ADOQueryMain.Fieldbyname('Grade').AsString);
CDSMJID.FieldByName('RollNum').Value := 1;
CDSMJID.FieldByName('stkmeter').Value := ADOQueryMain.Fieldbyname('stkmeter').AsFloat;
CDSMJID.FieldByName('TMMID').Value := trim(ADOQueryTmp.Fieldbyname('TMMID').AsString);
CDSMJID.FieldByName('TMSID').Value := trim(ADOQueryTmp.Fieldbyname('TMSID').AsString);
CDSMJID.FieldByName('C_Width').Value := ADOQueryMain.Fieldbyname('C_Width').AsString;
CDSMJID.FieldByName('C_GramWeight').Value := ADOQueryMain.Fieldbyname('C_GramWeight').AsString;
// CDSMJID.FieldByName('conNo').Value:=trim(ADOQueryMain.Fieldbyname('conNo').AsString);
CDSMJID.Post;
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\正确.wav')) then
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\正确.wav'), 0, SND_ASYNC);
CDSOrder.Edit;
CDSOrder.fieldbyName('PHRollNum').Value := CDSOrder.fieldbyName('PHRollNum').AsInteger + 1;
CDSOrder.fieldbyName('PHQty').Value := CDSOrder.fieldbyName('PHQty').AsFloat + ADOQueryMain.Fieldbyname('stkmeter').AsFloat;
CDSOrder.Post;
if tv1.DataController.Summary.FooterSummaryValues[0] <> 0 then
begin
if tv1.DataController.Summary.FooterSummaryValues[0] = tv2.DataController.Summary.FooterSummaryValues[0] then
begin
TBSave.Click;
exit;
end;
end;
exit;
end;
end;
ADOQueryTmp.Next;
end;
if i = 0 then
begin
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\超出下单匹数.wav')) then
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\超出下单匹数.wav'), 0, SND_ASYNC);
end;
end;
end.

834
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketDisSel.dfm Normal file
View File

@ -0,0 +1,834 @@
inherited frmTradeMarketDisSel: TfrmTradeMarketDisSel
Left = 143
Top = 4
Caption = #35746#21333#24405#20837
ClientHeight = 650
ClientWidth = 1540
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307
Position = poMainFormCenter
WindowState = wsMaximized
ExplicitWidth = 1556
ExplicitHeight = 689
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clWhite
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeMarket.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 8
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
OnClick = TBFindClick
end
object TBSave: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #30830#35748#37197#36135
ImageIndex = 4
OnClick = TBSaveClick
end
object ToolButton3: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
end
object TBClose: TToolButton
Left = 332
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel2: TPanel [1]
Left = 0
Top = 81
Width = 497
Height = 569
Align = alLeft
Caption = 'Panel2'
TabOrder = 1
object cxGrid3: TcxGrid
Left = 1
Top = 1
Width = 495
Height = 567
Align = alClient
TabOrder = 0
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnFocusedRecordChanged = Tv3FocusedRecordChanged
DataController.DataSource = DS_1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_TradeMarket.SHuangSe
Styles.Header = DataLink_TradeMarket.Default
Styles.Inactive = DataLink_TradeMarket.SHuangSe
Styles.Selection = DataLink_TradeMarket.SHuangSe
object cxGridDBColumn1: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.NullStyle = nssUnchecked
Visible = False
HeaderAlignmentHorz = taCenter
Width = 49
end
object v1OrderNo: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'TMMNO'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 72
end
object v1CustomerNoName: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 73
end
object v1MPRTCodeName: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_Code'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 69
end
object v1PRTColor: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
HeaderAlignmentHorz = taCenter
Width = 60
end
object v1MPRTKZ: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'PRTKZ'
Visible = False
Options.Focusing = False
VisibleForCustomization = False
Width = 54
end
object v1PRTRollNum: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'TMSPiece'
HeaderAlignmentHorz = taCenter
Width = 40
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'TMSQty'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 52
end
object cxGridDBColumn19: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'TMSUnit'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 58
end
object v1OrdDefStr1: TcxGridDBColumn
Caption = #20844#21496#32534#21495
DataBinding.FieldName = 'OrdDefStr1'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 90
end
object cxGridDBColumn17: TcxGridDBColumn
Caption = #20844#21496#21488#22836
DataBinding.FieldName = 'OrdDefStr2'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 90
end
object v1OrdPerson1: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'OrdPerson1'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_TradeMarket.Default
VisibleForCustomization = False
Width = 73
end
object v1JGFactoryName: TcxGridDBColumn
Caption = #26579#21378
DataBinding.FieldName = 'JGFactoryName'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 60
end
object v1OrdDate: TcxGridDBColumn
Caption = #21046#21333#26085#26399
DataBinding.FieldName = 'OrdDate'
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 68
end
object cxGridDBColumn18: TcxGridDBColumn
Caption = #22791#27880#21450#35201#27714
DataBinding.FieldName = 'Note'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 96
end
object v1DeliveryDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 62
end
object v1MPRTSpec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 68
end
object v3Column11: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object v1MPRTMF: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'PRTMF'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_TradeMarket.Default
VisibleForCustomization = False
Width = 70
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv3
end
end
end
object Panel3: TPanel [2]
Left = 497
Top = 81
Width = 1043
Height = 569
Align = alClient
TabOrder = 2
object cxGrid2: TcxGrid
Left = 1
Top = 1
Width = 1041
Height = 207
Align = alClient
TabOrder = 0
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DS_MX
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
Column = v1Column6
end
item
Kind = skSum
Column = v2Column5
end
item
Kind = skSum
Column = v2Column6
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsCustomize.ColumnSorting = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 20
Styles.IncSearch = DataLink_TradeMarket.SHuangSe
Styles.Header = DataLink_TradeMarket.Default
Styles.Inactive = DataLink_TradeMarket.SHuangSe
Styles.Selection = DataLink_TradeMarket.SHuangSe
object v1Ssel: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 49
end
object v2Column1: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_CODE'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 91
end
object v2Column3: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 77
end
object v1C_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object v2Column6: TcxGridDBColumn
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'stkmeter'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 85
end
object v1Column7: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'lenUnit'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 83
end
object v1Column2: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'batchno'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 62
end
object v1Column3: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'Grade'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 63
end
object v2Column5: TcxGridDBColumn
Caption = #24211#23384#20844#26020#25968
DataBinding.FieldName = 'KCKGQty'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 83
end
object v1Column6: TcxGridDBColumn
Caption = #26465#30721
DataBinding.FieldName = 'CIID'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object v1KCKW: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'IOPosition'
HeaderAlignmentHorz = taCenter
Width = 60
end
object v1Column5: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1
end
end
object cxGrid1: TcxGrid
Left = 1
Top = 208
Width = 1041
Height = 360
Align = alBottom
TabOrder = 1
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnCellDblClick = Tv2CellDblClick
DataController.DataSource = DS_MXSel
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
Column = cxGridDBColumn7
end
item
Kind = skSum
Column = cxGridDBColumn11
end
item
Kind = skSum
Column = cxGridDBColumn13
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsCustomize.ColumnSorting = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 20
Styles.IncSearch = DataLink_TradeMarket.SHuangSe
Styles.Header = DataLink_TradeMarket.Default
Styles.Inactive = DataLink_TradeMarket.SHuangSe
Styles.Selection = DataLink_TradeMarket.SHuangSe
object cxGridDBColumn3: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_CODE'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 92
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 77
end
object cxGridDBColumn11: TcxGridDBColumn
Caption = #24211#23384#20844#26020#25968
DataBinding.FieldName = 'KCKGQty'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 83
end
object cxGridDBColumn16: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 60
end
object cxGridDBColumn13: TcxGridDBColumn
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'stkmeter'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 76
end
object cxGridDBColumn14: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'kcQtyUnit'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 68
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #26579#21378#32568#21495
DataBinding.FieldName = 'gangNO'
Visible = False
Options.Editing = False
Options.Focusing = False
Width = 60
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'Grade'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 63
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'pieceno'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 59
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #26465#30721
DataBinding.FieldName = 'ciid'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 92
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 70
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 59
end
object v2Column4: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object v2Column7: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'batchno'
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
end
object MovePanel2: TMovePanel [3]
Left = 408
Top = 192
Width = 289
Height = 49
BevelInner = bvLowered
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
Visible = False
end
object Panel1: TPanel [4]
Left = 0
Top = 38
Width = 1540
Height = 43
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 4
object Label3: TLabel
Left = 55
Top = 15
Width = 24
Height = 12
Caption = #32534#21495
end
object Label4: TLabel
Left = 201
Top = 15
Width = 24
Height = 12
Caption = #39068#33394
end
object Label7: TLabel
Left = 492
Top = 68
Width = 24
Height = 12
Caption = #31867#22411
end
object Label15: TLabel
Left = 844
Top = 15
Width = 48
Height = 12
Caption = #37197#36135#20154#21592
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Visible = False
end
object Label1: TLabel
Left = 338
Top = 15
Width = 24
Height = 12
Caption = #32568#21495
end
object Label2: TLabel
Left = 471
Top = 15
Width = 24
Height = 12
Caption = #33457#22411
end
object c_code: TEdit
Tag = 2
Left = 83
Top = 11
Width = 100
Height = 20
ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
TabOrder = 1
end
object C_color: TEdit
Tag = 2
Left = 228
Top = 11
Width = 100
Height = 20
ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
TabOrder = 2
end
object CPType: TComboBox
Tag = 2
Left = 518
Top = 64
Width = 68
Height = 20
Style = csDropDownList
ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
TabOrder = 6
OnChange = TBFindClick
Items.Strings = (
#27491#21697
#27425#21697
#30041#26679
'')
end
object Button1: TButton
Left = 1008
Top = 8
Width = 75
Height = 25
Caption = #30830#23450#36873#25321
TabOrder = 0
OnClick = Button1Click
end
object PHYG: TBtnEditA
Left = 896
Top = 11
Width = 100
Height = 20
ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
TabOrder = 4
Visible = False
end
object CheckBox1: TCheckBox
Left = 1097
Top = 11
Width = 99
Height = 19
Caption = #20840#36873
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = CheckBox1Click
end
object batchno: TEdit
Tag = 2
Left = 368
Top = 11
Width = 100
Height = 20
ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
TabOrder = 3
end
object C_Pattern: TEdit
Tag = 2
Left = 498
Top = 11
Width = 100
Height = 20
ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
TabOrder = 7
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Left = 265
Top = 504
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Left = 353
Top = 505
end
inherited ImageList_new32: TImageList
Left = 1480
Top = 32
end
object ADOTemp: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 504
Top = 396
end
object ADOCmd: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Parameters = <>
Left = 592
Top = 389
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 208
Top = 344
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 139
Top = 348
end
object GPM_1: TcxGridPopupMenu
PopupMenus = <>
Left = 436
Top = 509
end
object ADOQueryLabel: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Parameters = <>
Left = 916
Top = 357
end
object IdFTP1: TIdFTP
ConnectTimeout = 0
NATKeepAlive.UseKeepAlive = False
NATKeepAlive.IdleTimeMS = 0
NATKeepAlive.IntervalMS = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
ReadTimeout = 0
Left = 840
Top = 162
end
object DS_MX: TDataSource
DataSet = CDS_MX
Left = 1040
Top = 156
end
object CDS_MX: TClientDataSet
Aggregates = <>
Params = <>
Left = 992
Top = 156
end
object CDS_MXSel: TClientDataSet
Aggregates = <>
Params = <>
Left = 1024
Top = 380
end
object DS_MXSel: TDataSource
DataSet = CDS_MXSel
Left = 1072
Top = 380
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 980
Top = 124
end
end

471
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketDisSel.pas Normal file
View File

@ -0,0 +1,471 @@
unit U_TradeMarketDisSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus,
cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC,
System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
IdFTP, ShellAPI, MovePanel;
type
TfrmTradeMarketDisSel = class(TfrmBaseInput)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
GPM_1: TcxGridPopupMenu;
ADOQueryLabel: TADOQuery;
ToolButton3: TToolButton;
IdFTP1: TIdFTP;
DS_MX: TDataSource;
CDS_MX: TClientDataSet;
Panel2: TPanel;
cxGrid3: TcxGrid;
Tv3: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
v1OrderNo: TcxGridDBColumn;
v1CustomerNoName: TcxGridDBColumn;
v1MPRTCodeName: TcxGridDBColumn;
v1PRTColor: TcxGridDBColumn;
v1MPRTKZ: TcxGridDBColumn;
v1PRTRollNum: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
cxGridDBColumn19: TcxGridDBColumn;
v1OrdDefStr1: TcxGridDBColumn;
cxGridDBColumn17: TcxGridDBColumn;
v1OrdPerson1: TcxGridDBColumn;
v1JGFactoryName: TcxGridDBColumn;
v1OrdDate: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
v1DeliveryDate: TcxGridDBColumn;
v1MPRTSpec: TcxGridDBColumn;
v3Column11: TcxGridDBColumn;
v1MPRTMF: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Panel3: TPanel;
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
v1Ssel: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
v1C_Color: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v2Column5: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1KCKW: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
cxGrid1: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
v2Column4: TcxGridDBColumn;
v2Column7: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TBRafresh: TToolButton;
TBFind: TToolButton;
MovePanel2: TMovePanel;
CDS_MXSel: TClientDataSet;
DS_MXSel: TDataSource;
ADOQueryMain: TADOQuery;
Panel1: TPanel;
Label3: TLabel;
Label4: TLabel;
Label7: TLabel;
Label15: TLabel;
Label1: TLabel;
c_code: TEdit;
C_color: TEdit;
CPType: TComboBox;
Button1: TButton;
PHYG: TBtnEditA;
CheckBox1: TCheckBox;
batchno: TEdit;
Label2: TLabel;
C_Pattern: TEdit;
procedure TBCloseClick(Sender: TObject);
procedure CustomerNoNameBtnDnClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure Tv3FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure FormShow(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure TBSaveClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
fCode, fColor, FPattern, FName: string;
function SaveData(): Boolean;
procedure InitOrder();
procedure InitGrid();
{ Private declarations }
public
FMainid: string;
{ Public declarations }
end;
var
frmTradeMarketDisSel: TfrmTradeMarketDisSel;
newh: hwnd;
implementation
uses
U_DataLink, U_ZDYHelp, U_ZDYHelpSel, U_RTFun, U_CompanySel, U_PictureUpload,
U_ClothInfoSel;
{$R *.dfm}
procedure TfrmTradeMarketDisSel.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTradeMarketDisSel.TBFindClick(Sender: TObject);
begin
inherited;
if ADOQueryMain.Active then
begin
SCreateCDS(ADOQueryMain, cds_mx);
SInitCDSData(ADOQueryMain, cds_mx);
end;
end;
function TfrmTradeMarketDisSel.SaveData(): Boolean;
var
phID: string;
P_ID: integer;
begin
Result := false;
ADOCmd.Connection.BeginTrans;
P_ID := 1;
try
with CDS_MXSel do
begin
DisableControls;
first;
while not eof do
begin
if GetLSNo(adotemp, phID, 'PH', 'Trade_Market_Distribution', 4, 1) = False then
begin
Application.MessageBox('取配货单号失败！', '提示', 0);
Exit;
end;
with ADOCmd do
begin
close;
sql.Clear;
sql.Add('select * from Trade_Market_Distribution ');
sql.Add('where 1=2 ');
open;
end;
ADOCmd.Append;
ADOCmd.FieldByName('TMDID').Value := trim(phID);
ADOCmd.FieldByName('TMMID').Value := trim(cds_1.fieldbyname('TMMID').AsString);
ADOCmd.FieldByName('TMSID').Value := trim(cds_1.fieldbyname('TMSID').AsString);
ADOCmd.FieldByName('STKID').Value := trim(cds_mxsel.fieldbyname('STKID').AsString);
ADOCmd.FieldByName('Filler').Value := trim(DName);
ADOCmd.Post;
with adocmd do
begin
close;
sql.Clear;
sql.Add('select * from Trade_Cloth_Stock ');
sql.Add('where STKID=' + quotedstr(trim(CDS_MXSel.fieldbyname('STKID').AsString)));
open;
edit;
fieldbyname('DisStatus').Value := '1';
post;
end;
next;
end;
first;
EnableControls;
with adocmd do
begin
close;
sql.Clear;
sql.Add('select * from Trade_Market_Sub ');
sql.Add('where TMMID=' + quotedstr(trim(cds_1.fieldbyname('TMMID').AsString)));
sql.Add('and TMSID=' + quotedstr(trim(cds_1.fieldbyname('TMSID').AsString)));
// ShowMessage(sql.Text);
open;
edit;
fieldbyname('substatus').Value := '2';
post;
end;
end;
ADOCmd.Connection.CommitTrans;
Result := true;
except
ADOCmd.Connection.RollbackTrans;
end;
end;
procedure TfrmTradeMarketDisSel.TBRafreshClick(Sender: TObject);
begin
inherited;
MovePanel2.Visible := True;
MovePanel2.Refresh;
initOrder();
MovePanel2.Visible := False;
end;
procedure TfrmTradeMarketDisSel.TBSaveClick(Sender: TObject);
begin
if CDS_MXSel.IsEmpty then
exit;
Panel1.SetFocus;
with CDS_MXSel do
begin
DisableControls;
first;
while not eof do
begin
if (trim(fieldbyname('C_Name').AsString) <> trim(cds_1.FieldByName('C_Name').AsString)) or (uppercase(trim(fieldbyname('C_Pattern').AsString)) <> uppercase(trim(cds_1.FieldByName('C_Pattern').AsString))) then
begin
application.MessageBox('产品名称,花型或者颜色不一样，不能配货！', '提示信息', 0);
EnableControls;
exit;
end;
next;
end;
first;
EnableControls;
end;
if SaveData() then
begin
application.MessageBox('配货成功!', '提示信息');
CDS_1.Delete;
CDS_MXSel.EmptyDataSet;
// TBRafresh.Click;
end
else
begin
application.MessageBox('配货失败!', '提示信息', 0);
end;
end;
procedure TfrmTradeMarketDisSel.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
var
i: Integer;
begin
if cds_mx.IsEmpty then
Exit;
CDS_MXSel.Append;
for i := 0 to CDS_MXSel.FieldCount - 1 do
begin
CDS_MXSel.Fields[i].Value := cds_mx.Fields[i].Value;
end;
CDS_MXSel.Post;
CDS_MX.Delete;
end;
procedure TfrmTradeMarketDisSel.Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
var
i: Integer;
begin
if CDS_MXSel.IsEmpty then
Exit;
CDS_MX.Append;
for i := 0 to CDS_MX.FieldCount - 1 do
begin
CDS_MX.Fields[i].Value := CDS_MXSel.Fields[i].Value;
end;
CDS_MX.FieldByName('ssel').Value := false;
CDS_MX.Post;
CDS_MXSel.Delete;
end;
procedure TfrmTradeMarketDisSel.Tv3FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
inherited;
if CDS_1.IsEmpty then
begin
fCode := '!##@';
fColor := '!##@';
FPattern := '!##@';
fName := '!##@';
end
else
begin
FCode := trim(cds_1.FieldByName('C_Code').AsString);
fColor := trim(cds_1.FieldByName('C_Color').AsString);
FPattern := trim(cds_1.FieldByName('C_Pattern').AsString);
FCode := trim(cds_1.FieldByName('C_Name').AsString);
end;
InitGrid();
end;
procedure TfrmTradeMarketDisSel.Button1Click(Sender: TObject);
var
i: integer;
mfieldName: string;
begin
if CDS_MX.IsEmpty then
Exit;
CDS_mxSel.DisableControls;
with CDS_MX do
begin
DisableControls;
First;
while not eof do
begin
if (CDS_MX.Locate('ssel', true, [])) and not CDS_mxSel.Locate('stkid', CDS_MX.fieldbyname('stkid').AsInteger, []) then
begin
CDS_mxSel.Append;
for i := 0 to CDS_mxSel.FieldCount - 1 do
begin
mfieldName := trim(CDS_mxSel.fields[i].FieldName);
CDS_mxSel.Fields[i].Value := CDS_MX.fieldbyName(mfieldName).Value;
end;
CDS_mxSel.Post;
CDS_MX.Delete;
end;
next;
end;
EnableControls;
First;
end;
with CDS_MX do
begin
DisableControls;
First;
while not eof do
begin
if (CDS_MX.Locate('ssel', true, [])) and not CDS_mxSel.Locate('stkid', CDS_MX.fieldbyname('stkid').AsInteger, []) then
begin
CDS_mxSel.Append;
for i := 0 to CDS_mxSel.FieldCount - 1 do
begin
mfieldName := trim(CDS_mxSel.fields[i].FieldName);
CDS_mxSel.Fields[i].Value := CDS_MX.fieldbyName(mfieldName).Value;
// CDS_SubSel.Fields[i].Value:=CDS_Main.Fields[i].Value;
end;
CDS_mxSel.Post;
CDS_MX.Delete;
end;
next;
end;
EnableControls;
First;
end;
CDS_mxSel.EnableControls;
end;
procedure TfrmTradeMarketDisSel.CheckBox1Click(Sender: TObject);
begin
inherited;
if cds_mx.IsEmpty then
exit;
with cds_mx do
begin
DisableControls;
first;
while not eof do
begin
edit;
fieldbyname('ssel').Value := checkbox1.Checked;
post;
next;
end;
First;
EnableControls;
end;
end;
procedure TfrmTradeMarketDisSel.CustomerNoNameBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmTradeMarketDisSel.InitOrder();
begin
try
with ADOTemp do
begin
close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(' from Trade_Market_Sub A ');
sql.Add(' inner join Trade_Market_Main B on B.TMMID=A.TMMID');
sql.Add(' and isnull(substatus,''0'')=''0''');
sql.Add(' and A.TMMID=' + quotedstr(trim(fmainID)));
open;
end;
SCreateCDS(ADOTemp, cds_1);
SInitCDSData(ADOTemp, cds_1);
finally
// Order_Main.EnableControls;
end;
end;
procedure TfrmTradeMarketDisSel.FormShow(Sender: TObject);
begin
inherited;
TBRafresh.Click;
end;
procedure TfrmTradeMarketDisSel.InitGrid();
begin
try
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
SQL.Add('exec P_Trade_Dispatched_View');
SQL.Add('@C_Code=' + quotedstr(trim(FCode)));
SQL.Add(',@C_Color=' + quotedstr(trim(fColor)));
SQL.Add(',@C_Pattern=' + quotedstr(trim(FPattern)));
SQL.Add(',@C_Name=' + quotedstr(trim(FName)));
// ShowMessage(sql.Text);
Open;
end;
SCreateCDS(ADOQueryMain, cds_mx);
SInitCDSData(ADOQueryMain, cds_mx);
SCreateCDS(ADOQueryMain, cds_mxSel);
finally
TBFind.Click;
end;
end;
end.

872
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketInPut.dfm Normal file
View File

@ -0,0 +1,872 @@
inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Left = 143
Top = 4
Caption = #35746#21333#24405#20837
ClientHeight = 650
ClientWidth = 1540
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307
Position = poMainFormCenter
WindowState = wsMaximized
ExplicitWidth = 1556
ExplicitHeight = 689
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clWhite
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeMarket.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = TBSaveClick
end
object ToolButton3: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 166
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object ToolBar2: TToolBar [1]
Left = 0
Top = 217
Width = 1540
Height = 34
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeMarket.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 1
object ToolButton4: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20135#21697#36873#25321
ImageIndex = 4
OnClick = ToolButton4Click
end
object ToolButton1: TToolButton
Left = 95
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 166
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton2Click
end
object ToolButton5: TToolButton
Left = 237
Top = 0
Caption = #19968#38190#26367#25442
ImageIndex = 17
OnClick = ToolButton3Click
end
end
object Panel2: TPanel [2]
Left = 0
Top = 251
Width = 1540
Height = 399
Align = alClient
Caption = 'Panel2'
TabOrder = 2
object Panel3: TPanel
Left = 1
Top = 1
Width = 900
Height = 397
Align = alLeft
Caption = 'Panel2'
TabOrder = 0
object cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 898
Height = 395
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
Column = v1PRTOrderQty
end
item
Format = '0'
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTOrderQty
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = VC_PRTPs
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsData.Deleting = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_TradeMarket.SHuangSe
Styles.Footer = DataLink_TradeMarket.Default
Styles.Header = DataLink_TradeMarket.Default
Styles.Inactive = DataLink_TradeMarket.SHuangSe
Styles.Selection = DataLink_TradeMarket.SHuangSe
object Tv1Column3: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'SerialNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v1Column11: TcxGridDBColumn
Tag = 99
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 66
end
object Tv1Column1: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column1PropertiesButtonClick
Properties.OnEditValueChanged = Tv1Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column7: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1PRTColor: TcxGridDBColumn
Caption = #20013#25991#39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeMarket.handBlack
Width = 116
end
object Tv1Column9: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column11: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column5: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column10: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object VC_PRTPs: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'TMSPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 112
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'TMSQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeMarket.Default
Width = 98
end
object Tv1Column8: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'TMSUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'M'
'Y'
'Kg'
#21305)
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column4: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column6: TcxGridDBColumn
Caption = #21253#32568#36153
DataBinding.FieldName = 'GangFee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column13: TcxGridDBColumn
Caption = #36816#36153
DataBinding.FieldName = 'Transfee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column14: TcxGridDBColumn
Caption = #20854#23427#36153
DataBinding.FieldName = 'Otherfee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column2: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'OrdSNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 105
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
end
object Panel4: TPanel
Left = 901
Top = 1
Width = 638
Height = 397
Align = alClient
Caption = 'Panel4'
TabOrder = 1
object Panel5: TPanel
Left = 1
Top = 1
Width = 636
Height = 41
Align = alTop
TabOrder = 0
object Label33: TLabel
Left = 20
Top = 8
Width = 44
Height = 21
Caption = #25968#37327
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label38: TLabel
Left = 304
Top = 8
Width = 44
Height = 21
Caption = #24207#21495
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object QtyMX: TEdit
Left = 70
Top = 9
Width = 89
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnKeyPress = QtyMXKeyPress
end
end
object GroupBox2: TGroupBox
Left = 1
Top = 42
Width = 636
Height = 354
Align = alClient
Caption = #21452#20987#21024#38500#26126#32454#20449#24687
TabOrder = 1
object cxGrid2: TcxGrid
Left = 2
Top = 14
Width = 632
Height = 338
Align = alClient
TabOrder = 0
object TvMX: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = TvMXCellDblClick
DataController.DataSource = DS_MX
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skCount
Position = spFooter
end
item
Kind = skSum
Position = spFooter
Column = cxGridDBColumn8
end
item
Kind = skCount
end
item
Kind = skSum
Column = cxGridDBColumn8
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = cxGridDBColumn8
end
item
Kind = skCount
Column = cxGridDBColumn8
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 33
object cxGridDBColumn8: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Width = 66
end
end
object cxGridLevel2: TcxGridLevel
GridView = TvMX
end
end
end
end
end
object Panel1: TPanel [3]
Left = 626
Top = 213
Width = 537
Height = 25
BevelOuter = bvNone
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
object Label22: TLabel
Left = 112
Top = 4
Width = 45
Height = 14
Caption = #21305#25968#65306
end
object Label23: TLabel
Left = 212
Top = 4
Width = 45
Height = 14
Caption = #25968#37327#65306
end
object Label29: TLabel
Left = 12
Top = 4
Width = 45
Height = 14
Caption = #21333#20215#65306
end
object Label34: TLabel
Left = 335
Top = 4
Width = 45
Height = 14
Caption = #21305#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label35: TLabel
Left = 435
Top = 4
Width = 45
Height = 14
Caption = #25968#37327#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
end
object ScrollBox1: TScrollBox [4]
Left = 0
Top = 38
Width = 1540
Height = 179
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 4
OnClick = ScrollBox1Click
object Label3: TLabel
Left = 404
Top = 7
Width = 52
Height = 15
Caption = #21046#21333#26085#26399
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label25: TLabel
Left = 215
Top = 7
Width = 52
Height = 15
Caption = #20132#36135#26085#26399
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 23
Top = 102
Width = 53
Height = 15
Caption = #22791' '#27880
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 37
Top = 6
Width = 39
Height = 15
Caption = #35746#21333#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 217
Top = 35
Width = 50
Height = 15
Caption = #23458' '#25143
Font.Charset = ANSI_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label20: TLabel
Left = 24
Top = 35
Width = 52
Height = 15
Caption = #32463#33829#21333#20301
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 202
Top = 64
Width = 65
Height = 12
Caption = #32852#31995#26041#24335#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label37: TLabel
Left = 11
Top = 64
Width = 65
Height = 12
Caption = #35746#21333#31867#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label18: TLabel
Left = 404
Top = 35
Width = 52
Height = 12
Caption = #21457#36135#22320#22336
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object TMMNo: TEdit
Tag = 2
Left = 78
Top = 6
Width = 100
Height = 18
TabOrder = 0
end
object TMMDate: TDateTimePicker
Tag = 2
Left = 458
Top = 4
Width = 100
Height = 20
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548000
TabOrder = 1
end
object DLYDate: TDateTimePicker
Tag = 2
Left = 273
Top = 4
Width = 100
Height = 20
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548000
ShowCheckbox = True
TabOrder = 2
end
object OrdNote: TMemo
Tag = 2
Left = 82
Top = 107
Width = 476
Height = 58
Hint = 'OrdNote/'#22791#27880
ScrollBars = ssVertical
TabOrder = 3
OnDblClick = PackNoteDblClick
end
object CustName: TBtnEditC
Tag = 2
Left = 273
Top = 32
Width = 100
Height = 20
ReadOnly = True
TabOrder = 4
OnBtnUpClick = CustNameBtnUpClick
OnBtnDnClick = OurCoNameBtnDnClick
end
object OurCoName: TBtnEditC
Tag = 2
Left = 78
Top = 32
Width = 100
Height = 20
ReadOnly = True
TabOrder = 5
OnBtnUpClick = OurCoNameBtnUpClick
OnBtnDnClick = OurCoNameBtnDnClick
end
object CONTACT: TBtnEditC
Tag = 2
Left = 273
Top = 59
Width = 285
Height = 20
TabOrder = 6
OnBtnUpClick = CONTACTBtnUpClick
end
object OrdType: TComboBox
Tag = 2
Left = 78
Top = 59
Width = 100
Height = 20
Style = csDropDownList
Ctl3D = False
Enabled = False
ItemIndex = 0
ParentCtl3D = False
TabOrder = 7
Text = #27491#24120#21333
Items.Strings = (
#27491#24120#21333)
end
object ShippingAddress: TBtnEditC
Tag = 2
Left = 458
Top = 32
Width = 100
Height = 20
TabOrder = 8
OnBtnUpClick = ShippingAddressBtnUpClick
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Left = 265
Top = 504
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Left = 353
Top = 505
end
inherited ImageList_new32: TImageList
Left = 1480
Top = 32
end
object ADOTemp: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 504
Top = 396
end
object ADOCmd: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Parameters = <>
Left = 592
Top = 389
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 584
Top = 512
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 515
Top = 508
end
object GPM_1: TcxGridPopupMenu
PopupMenus = <>
Left = 436
Top = 509
end
object ADOQueryLabel: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Parameters = <>
Left = 932
Top = 421
end
object ADO_I1: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Parameters = <>
Left = 864
Top = 75
end
object DS_I1: TDataSource
DataSet = ADO_I1
Left = 884
Top = 71
end
object IdFTP1: TIdFTP
ConnectTimeout = 0
NATKeepAlive.UseKeepAlive = False
NATKeepAlive.IdleTimeMS = 0
NATKeepAlive.IntervalMS = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
ReadTimeout = 0
Left = 840
Top = 162
end
object ADO_I2: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Parameters = <>
Left = 1048
Top = 75
end
object DS_I2: TDataSource
DataSet = ADO_I2
Left = 1124
Top = 71
end
object DS_MX: TDataSource
DataSet = CDS_MX
Left = 1056
Top = 444
end
object CDS_MX: TClientDataSet
Aggregates = <>
Params = <>
Left = 1008
Top = 412
end
end

1435
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketInPut.pas Normal file
View File

File diff suppressed because it is too large Load Diff

819
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketList.dfm Normal file
View File

@ -0,0 +1,819 @@
inherited frmTradeMarketList: TfrmTradeMarketList
Left = 165
Top = 13
Caption = #29983#20135#35745#21010#21333#31649#29702
ClientHeight = 760
ClientWidth = 1540
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitWidth = 1556
ExplicitHeight = 799
PixelsPerInch = 96
TextHeight = 17
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeMarket.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBAdd: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 9
OnClick = TBAddClick
end
object btnCopy: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #22797#21046
ImageIndex = 13
OnClick = btnCopyClick
end
object TBEdit: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
OnClick = TBEditClick
end
object TBDel: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TBDelClick
end
object TBPrint: TToolButton
Left = 355
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = TBPrintClick
end
object TBCK: TToolButton
Left = 426
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 8
OnClick = TBCKClick
end
object ToolButton4: TToolButton
Left = 497
Top = 0
AutoSize = True
Caption = #38468#20214
ImageIndex = 22
OnClick = ToolButton4Click
end
object TBTJ: TToolButton
Left = 568
Top = 0
AutoSize = True
Caption = #25552#20132
ImageIndex = 12
OnClick = TBTJClick
end
object TBTJCX: TToolButton
Left = 639
Top = 0
AutoSize = True
Caption = #25552#20132#25764#38144
ImageIndex = 11
OnClick = TBTJCXClick
end
object Tchk: TToolButton
Left = 734
Top = 0
AutoSize = True
Caption = #23457#26680
ImageIndex = 12
OnClick = TchkClick
end
object Tnochk: TToolButton
Left = 805
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680
ImageIndex = 11
OnClick = TnochkClick
end
object TWC: TToolButton
Left = 900
Top = 0
AutoSize = True
Caption = #23436#25104
ImageIndex = 12
OnClick = TWCClick
end
object TNowc: TToolButton
Left = 971
Top = 0
AutoSize = True
Caption = #25764#38144#23436#25104
ImageIndex = 11
OnClick = TNowcClick
end
object ToolButton2: TToolButton
Left = 1066
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 1161
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1540
Height = 69
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
object Label3: TLabel
Left = 295
Top = 20
Width = 52
Height = 12
Caption = #35745#21010#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 613
Top = 119
Width = 26
Height = 12
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 319
Top = 47
Width = 26
Height = 12
Caption = #23458#25143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 470
Top = 20
Width = 52
Height = 12
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 480
Top = 47
Width = 39
Height = 12
Caption = #21512#21516#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 152
Top = 16
Width = 101
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464742650459811600
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 152
Top = 42
Width = 102
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009100
TabOrder = 2
end
object TMMNo: TEdit
Tag = 2
Left = 353
Top = 16
Width = 104
Height = 25
TabOrder = 1
OnKeyPress = TMMNoKeyPress
end
object MPRTKZ: TEdit
Tag = 2
Left = 654
Top = 99
Width = 56
Height = 25
TabOrder = 3
OnChange = OrderNoMChange
end
object ComboBox1: TComboBox
Left = 49
Top = 16
Width = 93
Height = 25
TabOrder = 4
Text = #21046#21333#26085#26399
OnChange = ComboBox1Change
Items.Strings = (
#21046#21333#26085#26399
#20132#36135#26085#26399)
end
object CustName: TEdit
Tag = 2
Left = 351
Top = 43
Width = 104
Height = 25
TabOrder = 5
OnKeyPress = TMMNoKeyPress
end
object C_Name: TEdit
Tag = 2
Left = 525
Top = 16
Width = 104
Height = 25
TabOrder = 6
OnKeyPress = TMMNoKeyPress
end
object ConNo: TEdit
Tag = 2
Left = 525
Top = 43
Width = 104
Height = 25
TabOrder = 7
OnKeyPress = TMMNoKeyPress
end
object CheckBox1: TCheckBox
Left = 28
Top = 18
Width = 19
Height = 17
Checked = True
State = cbChecked
TabOrder = 8
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 125
Width = 1540
Height = 431
Align = alClient
PopupMenu = PM_1
TabOrder = 3
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv1Column11
end
item
Kind = skSum
Column = Tv1Column10
end
item
Kind = skSum
Column = Tv1Column7
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.CellHints = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
Styles.Content = DataLink_TradeMarket.Default
Styles.IncSearch = DataLink_TradeMarket.SHuangSe
Styles.Footer = DataLink_TradeMarket.Default
Styles.Header = DataLink_TradeMarket.Default
Styles.Inactive = DataLink_TradeMarket.SHuangSe
Styles.Selection = DataLink_TradeMarket.SHuangSe
object v1Column16: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v1OrdDate: TcxGridDBColumn
Caption = #21046#21333#26085#26399
DataBinding.FieldName = 'TMMDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 66
end
object Tv1Column2: TcxGridDBColumn
Caption = #32463#33829#21333#20301
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.FontBlue
Width = 66
end
object Tv1Column4: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.FoneClMaroon
Width = 66
end
object v1DeliveryDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
OnCustomDrawCell = v1DeliveryDateCustomDrawCell
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 66
end
object Tv1Column11: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'HZPiQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column10: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column11: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'OrdUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column6: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'FILLER'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column1: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'OrdNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column3: TcxGridDBColumn
Caption = #21457#36135#22320#22336
DataBinding.FieldName = 'ShippingAddress'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 134
end
object Tv1Column5: TcxGridDBColumn
Caption = #32852#31995#26041#24335
DataBinding.FieldName = 'CONTACT'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column7: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'OrdMoney'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 102
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object cxSplitter1: TcxSplitter [3]
Left = 0
Top = 556
Width = 1540
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
end
object cxTabControl1: TcxTabControl [4]
Left = 0
Top = 107
Width = 1540
Height = 18
Align = alTop
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
' '#24453#25552#20132' '
' '#24453#23457#26680' '
' '#24050#23457#26680' '
' '#24050#23436#25104' '
' '#20840#37096' ')
OnChange = cxTabControl1Change
ClientRectRight = 0
ClientRectTop = 0
end
object Panel2: TPanel [5]
Left = 0
Top = 564
Width = 1540
Height = 196
Align = alBottom
BevelOuter = bvNone
Caption = 'Panel2'
TabOrder = 5
object cxGrid2: TcxGrid
Left = 0
Top = 0
Width = 1540
Height = 196
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
PopupMenu = PopupMenu2
TabOrder = 0
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
Column = v1PRTOrderQty
end
item
Format = '0'
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTOrderQty
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = VC_PRTPs
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_TradeMarket.SHuangSe
Styles.Footer = DataLink_TradeMarket.Default
Styles.Header = DataLink_TradeMarket.Default
Styles.Inactive = DataLink_TradeMarket.SHuangSe
Styles.Selection = DataLink_TradeMarket.SHuangSe
object cxGridDBColumn1: TcxGridDBColumn
Tag = 99
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Width = 66
end
object TV2Column1: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV2Column2: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1PRTColor: TcxGridDBColumn
Caption = #20013#25991#39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.handBlack
Width = 79
end
object TV2Column4: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object VC_PRTPs: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'TMSPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'TMSQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 66
end
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'OrdUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'M'
'Y'
'Kg')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 66
end
object TV2Column3: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'OrdSNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Left = 257
Top = 152
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Left = 121
Top = 153
end
object cxgrdpmn1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 660
Top = 428
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Parameters = <>
Left = 568
Top = 240
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 420
Top = 216
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 320
Top = 224
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 812
Top = 440
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 724
Top = 432
end
object ADOQuerySub: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Parameters = <>
Left = 312
Top = 600
end
object DataSource2: TDataSource
DataSet = ORDER_SUB
Left = 408
Top = 604
end
object ADOQueryImage: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
EnableBCD = False
Parameters = <>
Left = 316
Top = 283
end
object DSImage: TDataSource
DataSet = ADOQueryImage
Left = 416
Top = 288
end
object IdFTP1: TIdFTP
ConnectTimeout = 0
NATKeepAlive.UseKeepAlive = False
NATKeepAlive.IdleTimeMS = 0
NATKeepAlive.IntervalMS = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
ReadTimeout = 0
Left = 92
Top = 258
end
object ORDER_SUB: TClientDataSet
Aggregates = <>
Params = <>
Left = 212
Top = 608
end
object PopupMenu2: TPopupMenu
Left = 532
Top = 636
object N3: TMenuItem
Caption = #20840#36873
OnClick = N3Click
end
object N4: TMenuItem
Caption = #20840#24323
OnClick = N4Click
end
object N2: TMenuItem
Caption = #22797#21046
OnClick = N2Click
end
end
object cxgrdpmn2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 660
Top = 636
end
object CDS_WXTS: TClientDataSet
Aggregates = <>
Params = <>
Left = 412
Top = 424
end
object PM_1: TPopupMenu
Left = 988
Top = 356
object N1: TMenuItem
Caption = #22797#21046
OnClick = N1Click
end
end
object GPM_3: TcxGridPopupMenu
PopupMenus = <>
Left = 860
Top = 228
end
end

1066
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketList.pas Normal file
View File

File diff suppressed because it is too large Load Diff

77
项目代码/RTBasicsV1/T05贸易门市管理/U_iniParam.pas Normal file
View File

@ -0,0 +1,77 @@
unit U_iniParam;
interface
uses
IniFiles, SysUtils;
var
Filename: string; //文件名
iParam2: integer;
bParam1: Boolean;
bParam2: Boolean;
SCXFlag: string; //生产线 根据此标志获取卷条码前缀 不能包含字母 1,2
SCXCount: string; //机台个数
PortNoStr: string; //端口号
DllName: string; //端口Dll文件
DZCDYDllName: string; //电子秤调用Dll文件
MBDYDllName: string; // 码表调用Dll文件
function IsINIFile(): Boolean; //判断InI配置文件是否存在
procedure ReadINIFile();
procedure WriteINIFile();
implementation
///////////////////////////////////////////////////////////////////
//读取ini文件设置参数
//参数：
////////////////////////////////////////////////////////////////////
procedure ReadINIFile();
var
programIni: Tinifile; //配置文件名
begin
FileName := ExtractFilePath(Paramstr(0)) + 'File.INI';
programIni := Tinifile.create(FileName);
SCXFlag := programIni.ReadString('生产车间配置', '卷条码机台标志', '1');
SCXCount := programIni.ReadString('生产车间配置', '机台个数', '1');
PortNoStr := programIni.ReadString('生产车间配置', '端口号', 'com1');
DllName := programIni.ReadString('生产车间配置', '端口Dll文件', 'JZCRS323C.DLL');
DZCDYDllName := programIni.ReadString('生产车间配置', '电子秤调用Dll文件', '');
MBDYDllName := programIni.ReadString('生产车间配置', '码表调用Dll文件', '');
programIni.Free;
end;
//////////////////////////////////////////////////////////////////
//写设置信息到INI文件
//参数
//////////////////////////////////////////////////////////////////
procedure WriteINIFile();
var
programIni: Tinifile; //配置文件名
begin
FileName := ExtractFilePath(Paramstr(0)) + 'File.INI';
programIni := Tinifile.create(FileName);
programIni.WriteString('生产车间配置', '卷条码机台标志', SCXFlag);
programIni.WriteString('生产车间配置', '机台个数', SCXCount);
programIni.WriteString('生产车间配置', '端口号', PortNoStr);
programIni.WriteString('生产车间配置', '端口Dll文件', DllName);
programIni.Free;
end;
//////////////////////////////////////////////////////////////////
//判断InI文件是否存在
//////////////////////////////////////////////////////////////////
function IsINIFile(): Boolean;
begin
FileName := ExtractFilePath(Paramstr(0)) + 'File.INI';
if FileExists(FileName) then
Result := true
else
Result := false;
end;
end.

220
项目代码/RTBasicsV1/T05贸易门市管理/U_testdll.dfm Normal file
View File

@ -0,0 +1,220 @@
object Form1: TForm1
Left = 203
Top = 121
Caption = 'Form1'
ClientHeight = 426
ClientWidth = 716
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIForm
Menu = MainMenu1
OldCreateOrder = False
WindowState = wsMaximized
OnClose = FormClose
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 13
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 716
Height = 25
ButtonWidth = 57
Caption = 'ToolBar1'
Images = ImageList1
TabOrder = 0
object Edit1: TEdit
Left = 0
Top = 0
Width = 81
Height = 22
TabOrder = 0
Text = '1'
end
object ToolButton1: TToolButton
Left = 81
Top = 0
Caption = #20851#38381
ImageIndex = 0
OnClick = ToolButton1Click
end
object Label1: TLabel
Left = 138
Top = 0
Width = 79
Height = 22
Caption = ' DllName'#65306
end
object DllName: TEdit
Left = 217
Top = 0
Width = 135
Height = 22
TabOrder = 1
end
end
object MainMenu1: TMainMenu
Left = 232
Top = 40
object test1: TMenuItem
Caption = 'test'
OnClick = test1Click
end
end
object ImageList1: TImageList
Left = 320
Top = 56
Bitmap = {
494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000001000000001002000000000000010
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000EFEFEF000000
0000EFEFEF00EFEFEF000000000000000000EFEFEF0000000000000000000000
0000EFEFEF00EFEFEF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000EFEFEF0000000000EFEFEF00EFEFEF0000000000EFEFEF00000000008080
00008080000000000000C0C0C000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000EFEFEF00EFEFEF000000
0000EFEFEF00EFEFEF000000000000000000C0C0C00000000000000000008080
00008080000080800000EFEFEF00EFEFEF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000EFEFEF0000000000000000000000000000000000000000008080
0000808000008080000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000EFEFEF0000000000808080008080800080808000000000008080
0000808000008080000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000008080000000000000808080008080800080808000000000008080
0000000000008080000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000EFEFEF00EFEF
EF0000000000FFFF000080800000000000008080800080808000000000000000
0000000000008080000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000FFFF0000FFFF0000808000000000000080808000000000008080
0000000000008080000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000808000008080
000080800000FFFF0000FFFF0000FFFF00000000000080808000000000008080
0000808000008080000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000FFFF0000FFFF
0000FFFF0000FFFF000000000000FFFF00000000000080808000000000008080
0000808000008080000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000FFFF0000FFFF0000FFFF00000000000080808000000000008080
0000808000008080000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000808000000000000080808000808080008080800080808000FFFF
0000808000008080000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000808080008080800080808000808080000000
0000808000008080000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000424D3E000000000000003E000000
2800000040000000100000000100010000000000800000000000000000000000
000000000000000000000000FFFFFF00FFFF000000000000D343000000000000
F4810000000000009340000000000000F801000000000000F001000000000000
F001000000000000C001000000000000C001000000000000C001000000000000
C201000000000000C001000000000000F001000000000000F001000000000000
FC03000000000000FFFF00000000000000000000000000000000000000000000
000000000000}
end
object ADOConnection1: TADOConnection
ConnectionString =
'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ' +
'ID=sa;Initial Catalog=rzdata;Data Source=6GMFFMYKYMJDZW7'
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 408
Top = 64
end
end

94
项目代码/RTBasicsV1/T05贸易门市管理/U_testdll.pas Normal file
View File

@ -0,0 +1,94 @@
unit U_testdll;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Menus, ToolWin, ComCtrls, ImgList, DB, ADODB,
System.ImageList;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
test1: TMenuItem;
ToolBar1: TToolBar;
Edit1: TEdit;
ToolButton1: TToolButton;
ImageList1: TImageList;
ADOConnection1: TADOConnection;
DllName: TEdit;
Label1: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure test1Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure FormResize(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
newh: hwnd;
implementation
{$R *.dfm}
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
sendmessage(newh, 1034, 4, 0);
Action := cafree;
end;
procedure TForm1.test1Click(Sender: TObject);
type
TMyFunc = function(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; stdcall;
var
Tf: TMyFunc;
Tp: TFarProc;
Th: Thandle;
begin
//静态加载
//newh:=getForm(Application,1,ADOConnection1,PChar('sa'),PChar('dsa'));
//动态加载
// showMessage(intTostr(application.Handle));
Th := LoadLibrary('TradeMarket.dll');
if Th > 0 then
begin
try
Tp := GetProcAddress(Th, 'GetDllForm');
if Tp <> nil then
begin
Tf := TMyFunc(Tp);
newh := Tf(Application, 0, strToint(edit1.text), 0, 0, PChar('ygcode'), PChar('ygname'), PChar('datebase'), PChar('title'), PChar(''), PChar(''), '', '', '', '', '', '', '', '', '');
end
else
begin
ShowMessage('打印执行错误');
end;
finally
// FreeLibrary();
end;
end
else
begin
ShowMessage('找不到' + Trim(DllName.Text));
end;
end;
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
sendmessage(newh, 1034, 1, 0);
end;
end.

64
项目代码/RTBasicsV1/T05贸易门市管理/Unit1.dfm Normal file
View File

@ -0,0 +1,64 @@
inherited Form1: TForm1
Caption = 'Form1'
ClientHeight = 299
ClientWidth = 635
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Height = -11
Font.Name = 'Tahoma'
ExplicitWidth = 651
ExplicitHeight = 338
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton [0]
Left = 32
Top = 16
Width = 75
Height = 25
Caption = #23458#25143
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton [1]
Left = 32
Top = 47
Width = 75
Height = 25
Caption = #26679#21697
TabOrder = 1
OnClick = Button2Click
end
object Button3: TButton [2]
Left = 32
Top = 78
Width = 75
Height = 25
Caption = #24037#24207#36873#25321
TabOrder = 2
end
object Button4: TButton [3]
Left = 32
Top = 118
Width = 75
Height = 25
Caption = #21592#24037#36873#25321
TabOrder = 3
OnClick = Button4Click
end
object Button5: TButton [4]
Left = 32
Top = 174
Width = 75
Height = 25
Caption = #26631#31614#25171#21360
TabOrder = 4
OnClick = Button5Click
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_InformationBase.ADOLink
Left = 345
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_InformationBase.ADOLink
end
end

106
项目代码/RTBasicsV1/T05贸易门市管理/Unit1.pas Normal file
View File

@ -0,0 +1,106 @@
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, U_BaseList,
Data.DB, Data.Win.ADODB, Vcl.StdCtrls;
type
TForm1 = class(TfrmBaseList)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses
U_DataLink, U_CompanySel, U_ClothInfoSel, U_EmployeeSel, U_LabelPrint;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
if ShowModal = 1 then
begin
// Self.InitGrid();
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
try
frmClothInfoSel := TfrmClothInfoSel.Create(Application);
with frmClothInfoSel do
begin
if ShowModal = 1 then
begin
// Self.InitGrid();
end;
end;
finally
frmClothInfoSel.Free;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
try
frmEmployeeSel := TfrmEmployeeSel.Create(Application);
with frmEmployeeSel do
begin
if ShowModal = 1 then
begin
// Self.InitGrid();
end;
end;
finally
frmEmployeeSel.Free;
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
if ShowModal = 1 then
begin
// Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
end;
end.

2
项目代码/RTBasicsV1/T05贸易门市管理/consvr.ini Normal file
View File

@ -0,0 +1,2 @@
[SERVER]
SERVER=192.168.88.254

38
项目代码/RTBasicsV1/T05贸易门市管理/testDll.cfg Normal file
View File

@ -0,0 +1,38 @@
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST

136
项目代码/RTBasicsV1/T05贸易门市管理/testDll.dof Normal file
View File

@ -0,0 +1,136 @@
[FileVersion]
Version=7.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=0
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
NamespacePrefix=
SymbolDeprecated=1
SymbolLibrary=1
SymbolPlatform=1
UnitLibrary=1
UnitPlatform=1
UnitDeprecated=1
HResultCompat=1
HidingMember=1
HiddenVirtual=1
Garbage=1
BoundsError=1
ZeroNilCompat=1
StringConstTruncated=1
ForLoopVarVarPar=1
TypedConstVarPar=1
AsgToTypedConst=1
CaseLabelRange=1
ForVariable=1
ConstructingAbstract=1
ComparisonFalse=1
ComparisonTrue=1
ComparingSignedUnsigned=1
CombiningSignedUnsigned=1
UnsupportedConstruct=1
FileOpen=1
FileOpenUnitSrc=1
BadGlobalSymbol=1
DuplicateConstructorDestructor=1
InvalidDirective=1
PackageNoLink=1
PackageThreadVar=1
ImplicitImport=1
HPPEMITIgnored=1
NoRetVal=1
UseBeforeDef=1
ForLoopVarUndef=1
UnitNameMismatch=1
NoCFGFileFound=1
MessageDirective=1
ImplicitVariants=1
UnicodeToLocale=1
LocaleToUnicode=1
ImagebaseMultiple=1
SuspiciousTypecast=1
PrivatePropAccessor=1
UnsafeType=0
UnsafeCode=0
UnsafeCast=0
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\selfware_83398\selfware\马国钢开发代码\项目代码\self\坯布码单待检DDMD.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=2052
CodePage=936
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=

14
项目代码/RTBasicsV1/T05贸易门市管理/testDll.dpr Normal file
View File

@ -0,0 +1,14 @@
program testDll;
uses
Forms,
U_testdll in 'U_testdll.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

184
项目代码/RTBasicsV1/T05贸易门市管理/testDll.dproj Normal file
View File

@ -0,0 +1,184 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{6ED24B72-E038-4A45-BA13-AC1AB432C410}</ProjectGuid>
<MainSource>testDll.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>38017</TargetedPlatforms>
<AppType>Application</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.2</ProjectVersion>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
<Base_Android64>true</Base_Android64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
<Base_iOSDevice64>true</Base_iOSDevice64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
<Cfg_1_Win32>true</Cfg_1_Win32>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
<Cfg_2_Android64>true</Cfg_2_Android64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
<Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
<Cfg_2_OSX64>true</Cfg_2_OSX64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_E>false</DCC_E>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
<DCC_N>true</DCC_N>
<DCC_S>false</DCC_S>
<DCC_ImageBase>00400000</DCC_ImageBase>
<DCC_DebugInformation>1</DCC_DebugInformation>
<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
<SanitizedProjectName>testDll</SanitizedProjectName>
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;Data.Win;$(DCC_Namespace)</DCC_Namespace>
<VerInfo_Locale>2052</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Android64)'!=''">
<Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
<Icon_MainIcon>testDll_Icon.ico</Icon_MainIcon>
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<Icon_MainIcon>testDll_Icon.ico</Icon_MainIcon>
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_DebugInformation>0</DCC_DebugInformation>
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="U_testdll.pas">
<Form>Form1</Form>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">testDll.dpr</Source>
</Source>
</Delphi.Personality>
<Platforms>
<Platform value="Android64">True</Platform>
<Platform value="iOSDevice64">True</Platform>
<Platform value="Linux64">True</Platform>
<Platform value="OSX64">True</Platform>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
</Project>

2
项目代码/RTBasicsV1/T05贸易门市管理/testDll.dproj.local Normal file
View File

@ -0,0 +1,2 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject/>

BIN
项目代码/RTBasicsV1/T05贸易门市管理/testDll.identcache Normal file
View File

Binary file not shown.

BIN
项目代码/RTBasicsV1/T05贸易门市管理/testDll.res Normal file
View File

Binary file not shown.

38
项目代码/RTBasicsV1/T05贸易门市管理/testDllDJ.cfg Normal file
View File

@ -0,0 +1,38 @@
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST

136
项目代码/RTBasicsV1/T05贸易门市管理/testDllDJ.dof Normal file
View File

@ -0,0 +1,136 @@
[FileVersion]
Version=7.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=0
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
NamespacePrefix=
SymbolDeprecated=1
SymbolLibrary=1
SymbolPlatform=1
UnitLibrary=1
UnitPlatform=1
UnitDeprecated=1
HResultCompat=1
HidingMember=1
HiddenVirtual=1
Garbage=1
BoundsError=1
ZeroNilCompat=1
StringConstTruncated=1
ForLoopVarVarPar=1
TypedConstVarPar=1
AsgToTypedConst=1
CaseLabelRange=1
ForVariable=1
ConstructingAbstract=1
ComparisonFalse=1
ComparisonTrue=1
ComparingSignedUnsigned=1
CombiningSignedUnsigned=1
UnsupportedConstruct=1
FileOpen=1
FileOpenUnitSrc=1
BadGlobalSymbol=1
DuplicateConstructorDestructor=1
InvalidDirective=1
PackageNoLink=1
PackageThreadVar=1
ImplicitImport=1
HPPEMITIgnored=1
NoRetVal=1
UseBeforeDef=1
ForLoopVarUndef=1
UnitNameMismatch=1
NoCFGFileFound=1
MessageDirective=1
ImplicitVariants=1
UnicodeToLocale=1
LocaleToUnicode=1
ImagebaseMultiple=1
SuspiciousTypecast=1
PrivatePropAccessor=1
UnsafeType=0
UnsafeCode=0
UnsafeCast=0
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\selfware_83398\selfware\马国钢开发代码\项目代码\self\长阳针织(CYZZ.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=2052
CodePage=936
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=

BIN
项目代码/RTBasicsV1/T05贸易门市管理/testDllDJ.res Normal file
View File

Binary file not shown.

BIN
项目代码/RTBasicsV1/T05贸易门市管理/testDll_Icon.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 766 B