贸易现货
This commit is contained in:
“zfp”
parent
239a66ccb9
commit
e2605b9981
26
rtnew/U_printPdf.pas
Normal file
26
rtnew/U_printPdf.pas
Normal 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.
|
||||
|
|
@ -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 = <>
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
||||
|
|
|
|||
|
|
@ -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}
|
||||
|
||||
|
|
|
|||
|
|
@ -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>
|
||||
|
|
|
|||
|
|
@ -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"/>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -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
878
项目代码/RTBasicsV1/T02贸易汇总仓库/U_TradeReturnClothInEdit.dfm
Normal 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
1338
项目代码/RTBasicsV1/T02贸易汇总仓库/U_TradeReturnClothInEdit.pas
Normal file
File diff suppressed because it is too large
Load Diff
1039
项目代码/RTBasicsV1/T02贸易汇总仓库/U_TradeReturnClothInList.dfm
Normal file
1039
项目代码/RTBasicsV1/T02贸易汇总仓库/U_TradeReturnClothInList.dfm
Normal file
File diff suppressed because it is too large
Load Diff
678
项目代码/RTBasicsV1/T02贸易汇总仓库/U_TradeReturnClothInList.pas
Normal file
678
项目代码/RTBasicsV1/T02贸易汇总仓库/U_TradeReturnClothInList.pas
Normal 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.
|
||||
|
||||
|
|
@ -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"/>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -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>
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
|
|
@ -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"/>
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
4
项目代码/RTBasicsV1/T05贸易门市管理/File.INI
Normal file
4
项目代码/RTBasicsV1/T05贸易门市管理/File.INI
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
[生产车间配置]
|
||||
卷条码机台标志=99
|
||||
成品DLL文件=CYZZ.dll
|
||||
成品DLL调用号=11
|
||||
7
项目代码/RTBasicsV1/T05贸易门市管理/FileHelp.ini
Normal file
7
项目代码/RTBasicsV1/T05贸易门市管理/FileHelp.ini
Normal 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
BIN
项目代码/RTBasicsV1/T05贸易门市管理/InformationBase_Icon.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 766 B |
23
项目代码/RTBasicsV1/T05贸易门市管理/ProjectGroup1.bpg
Normal file
23
项目代码/RTBasicsV1/T05贸易门市管理/ProjectGroup1.bpg
Normal 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
48
项目代码/RTBasicsV1/T05贸易门市管理/ProjectGroup1.groupproj
Normal 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
7
项目代码/RTBasicsV1/T05贸易门市管理/ProjectGroup1.groupproj.local
Normal 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
6
项目代码/RTBasicsV1/T05贸易门市管理/SYSTEMSET.ini
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
[SERVER]
|
||||
服务器地址=101.132.143.144
|
||||
服务器地址类型=2002
|
||||
是否自动更新=1
|
||||
软件名称=睿特版本库
|
||||
登陆标题=sss
|
||||
61
项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.dpr
Normal file
61
项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.dpr
Normal 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
941
项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.dproj
Normal 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
128
项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.dproj.local
Normal 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
BIN
项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.identcache
Normal file
Binary file not shown.
BIN
项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.res
Normal file
BIN
项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.res
Normal file
Binary file not shown.
62
项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.skincfg
Normal file
62
项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.skincfg
Normal 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
14275
项目代码/RTBasicsV1/T05贸易门市管理/U_DataLink.dfm
Normal file
File diff suppressed because it is too large
Load Diff
143
项目代码/RTBasicsV1/T05贸易门市管理/U_DataLink.pas
Normal file
143
项目代码/RTBasicsV1/T05贸易门市管理/U_DataLink.pas
Normal 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
244
项目代码/RTBasicsV1/T05贸易门市管理/U_GetDllForm.pas
Normal 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
1014
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeDispatchedList.dfm
Normal file
File diff suppressed because it is too large
Load Diff
1488
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeDispatchedList.pas
Normal file
1488
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeDispatchedList.pas
Normal file
File diff suppressed because it is too large
Load Diff
458
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeDispatchedSel.dfm
Normal file
458
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeDispatchedSel.dfm
Normal 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
449
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeDispatchedSel.pas
Normal 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
704
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketDisScan.dfm
Normal 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
603
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketDisScan.pas
Normal 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
834
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketDisSel.dfm
Normal 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
471
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketDisSel.pas
Normal 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
872
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketInPut.dfm
Normal 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
1435
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketInPut.pas
Normal file
File diff suppressed because it is too large
Load Diff
819
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketList.dfm
Normal file
819
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketList.dfm
Normal 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
1066
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketList.pas
Normal file
File diff suppressed because it is too large
Load Diff
77
项目代码/RTBasicsV1/T05贸易门市管理/U_iniParam.pas
Normal file
77
项目代码/RTBasicsV1/T05贸易门市管理/U_iniParam.pas
Normal 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
220
项目代码/RTBasicsV1/T05贸易门市管理/U_testdll.dfm
Normal 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
94
项目代码/RTBasicsV1/T05贸易门市管理/U_testdll.pas
Normal 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
64
项目代码/RTBasicsV1/T05贸易门市管理/Unit1.dfm
Normal 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
106
项目代码/RTBasicsV1/T05贸易门市管理/Unit1.pas
Normal 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
2
项目代码/RTBasicsV1/T05贸易门市管理/consvr.ini
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
[SERVER]
|
||||
SERVER=192.168.88.254
|
||||
38
项目代码/RTBasicsV1/T05贸易门市管理/testDll.cfg
Normal file
38
项目代码/RTBasicsV1/T05贸易门市管理/testDll.cfg
Normal 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
136
项目代码/RTBasicsV1/T05贸易门市管理/testDll.dof
Normal 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
14
项目代码/RTBasicsV1/T05贸易门市管理/testDll.dpr
Normal 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
184
项目代码/RTBasicsV1/T05贸易门市管理/testDll.dproj
Normal 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
2
项目代码/RTBasicsV1/T05贸易门市管理/testDll.dproj.local
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject/>
|
||||
BIN
项目代码/RTBasicsV1/T05贸易门市管理/testDll.identcache
Normal file
BIN
项目代码/RTBasicsV1/T05贸易门市管理/testDll.identcache
Normal file
Binary file not shown.
BIN
项目代码/RTBasicsV1/T05贸易门市管理/testDll.res
Normal file
BIN
项目代码/RTBasicsV1/T05贸易门市管理/testDll.res
Normal file
Binary file not shown.
38
项目代码/RTBasicsV1/T05贸易门市管理/testDllDJ.cfg
Normal file
38
项目代码/RTBasicsV1/T05贸易门市管理/testDllDJ.cfg
Normal 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
136
项目代码/RTBasicsV1/T05贸易门市管理/testDllDJ.dof
Normal 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
BIN
项目代码/RTBasicsV1/T05贸易门市管理/testDllDJ.res
Normal file
Binary file not shown.
BIN
项目代码/RTBasicsV1/T05贸易门市管理/testDll_Icon.ico
Normal file
BIN
项目代码/RTBasicsV1/T05贸易门市管理/testDll_Icon.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 766 B |
Loading…
Reference in New Issue
Block a user