索赔
This commit is contained in:
“ddf”
parent
f3d758f548
commit
24bfda764b
|
|
@ -13,9 +13,6 @@ uses
|
||||||
U_BaseHelp in '..\..\..\public10\design\U_BaseHelp.pas' {frmBaseHelp},
|
U_BaseHelp in '..\..\..\public10\design\U_BaseHelp.pas' {frmBaseHelp},
|
||||||
U_BaseInput in '..\..\..\public10\design\U_BaseInput.pas' {frmBaseInput},
|
U_BaseInput in '..\..\..\public10\design\U_BaseInput.pas' {frmBaseInput},
|
||||||
U_BaseList in '..\..\..\public10\design\U_BaseList.pas' {frmBaseList},
|
U_BaseList in '..\..\..\public10\design\U_BaseList.pas' {frmBaseList},
|
||||||
U_cxGridCustomCss in '..\..\..\public10\design\U_cxGridCustomCss.pas',
|
|
||||||
U_globalVar in '..\..\..\public10\design\U_globalVar.pas',
|
|
||||||
U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas',
|
|
||||||
U_CompressionFun in '..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas',
|
U_CompressionFun in '..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas',
|
||||||
U_RTFun in '..\..\..\public10\ThreeFun\Fun\U_RTFun.pas',
|
U_RTFun in '..\..\..\public10\ThreeFun\Fun\U_RTFun.pas',
|
||||||
U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
|
U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
|
||||||
|
|
@ -26,7 +23,14 @@ uses
|
||||||
U_EmployeeSel in '..\A00通用窗体\U_EmployeeSel.pas' {frmEmployeeSel},
|
U_EmployeeSel in '..\A00通用窗体\U_EmployeeSel.pas' {frmEmployeeSel},
|
||||||
U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
|
U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
|
||||||
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
|
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
|
||||||
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule};
|
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
|
||||||
|
FrameDateSel in '..\A00ͨÓÃ×é¼þ\FrameDateSel.pas' {frmFrameDateSel: TFrame},
|
||||||
|
FramePagingSel in '..\A00ͨÓÃ×é¼þ\FramePagingSel.pas' {frmFramePagingSel: TFrame},
|
||||||
|
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}
|
{$R *.res}
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -124,7 +124,7 @@
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
<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>
|
<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:\Dp10RepoV1\项目代码\RTBasicsV1\A00通用模板\testDll.exe</Debugger_HostApplication>
|
<Debugger_HostApplication>D:\RTFormwork\项目代码\RTBasicsV1\A00通用模板\testDll.exe</Debugger_HostApplication>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
<DelphiCompile Include="$(MainSource)">
|
<DelphiCompile Include="$(MainSource)">
|
||||||
|
|
@ -148,9 +148,6 @@
|
||||||
<Form>frmBaseList</Form>
|
<Form>frmBaseList</Form>
|
||||||
<FormType>dfm</FormType>
|
<FormType>dfm</FormType>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
|
|
||||||
<DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/>
|
|
||||||
<DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/>
|
|
||||||
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
|
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
|
||||||
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
|
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
|
||||||
<DCCReference Include="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas">
|
<DCCReference Include="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas">
|
||||||
|
|
@ -190,6 +187,21 @@
|
||||||
<FormType>dfm</FormType>
|
<FormType>dfm</FormType>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
|
<DCCReference Include="..\A00通用组件\FrameDateSel.pas">
|
||||||
|
<Form>frmFrameDateSel</Form>
|
||||||
|
<FormType>dfm</FormType>
|
||||||
|
<DesignClass>TFrame</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
|
<DCCReference Include="..\A00通用组件\FramePagingSel.pas">
|
||||||
|
<Form>frmFramePagingSel</Form>
|
||||||
|
<FormType>dfm</FormType>
|
||||||
|
<DesignClass>TFrame</DesignClass>
|
||||||
|
</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">
|
<BuildConfiguration Include="Debug">
|
||||||
<Key>Cfg_2</Key>
|
<Key>Cfg_2</Key>
|
||||||
<CfgParent>Base</CfgParent>
|
<CfgParent>Base</CfgParent>
|
||||||
|
|
|
||||||
|
|
@ -1,34 +1,38 @@
|
||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<Transactions>
|
<Transactions>
|
||||||
<Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.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.905,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>2024-09-02 16:59:02.280,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FrameDateSel.pas</Transaction>
|
||||||
<Transaction>2024-03-15 11:53:29.905,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
|
<Transaction>2024-09-02 16:59:02.415,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FramePagingSel.pas</Transaction>
|
||||||
|
<Transaction>2024-09-02 16:59:27.890,=D:\RTFormwork\public10\design\U_cxGridCustomSet.pas</Transaction>
|
||||||
|
<Transaction>2024-09-02 16:59:27.935,=D:\RTFormwork\public10\design\U_FormLayOutDesign.pas</Transaction>
|
||||||
</Transactions>
|
</Transactions>
|
||||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||||
<File Path="android-support-v4.dex.jar"/>
|
<File Path="android-support-v4.dex.jar"/>
|
||||||
|
|
@ -73,7 +77,12 @@
|
||||||
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
|
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
|
||||||
<File Path="..\A00通用窗体\U_LabelPrint.pas"/>
|
<File Path="..\A00通用窗体\U_LabelPrint.pas"/>
|
||||||
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
|
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
|
||||||
<File Path="D:\Dp10RepoV1"/>
|
<File Path="..\A00通用组件"/>
|
||||||
|
<File Path="..\A00通用组件\FrameDateSel.pas"/>
|
||||||
|
<File Path="..\A00通用组件\FrameDateSel.dfm"/>
|
||||||
|
<File Path="..\A00通用组件\FramePagingSel.pas"/>
|
||||||
|
<File Path="..\A00通用组件\FramePagingSel.dfm"/>
|
||||||
|
<File Path="D:\RTFormwork"/>
|
||||||
<File Path="..\..\..\public10"/>
|
<File Path="..\..\..\public10"/>
|
||||||
<File Path="..\..\..\public10\design"/>
|
<File Path="..\..\..\public10\design"/>
|
||||||
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
|
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
|
||||||
|
|
@ -87,6 +96,8 @@
|
||||||
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
|
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
|
||||||
<File Path="..\..\..\public10\design\U_globalVar.pas"/>
|
<File Path="..\..\..\public10\design\U_globalVar.pas"/>
|
||||||
<File Path="..\..\..\public10\design\U_WindowFormdesign.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"/>
|
||||||
<File Path="..\..\..\public10\ThreeFun\Form"/>
|
<File Path="..\..\..\public10\ThreeFun\Form"/>
|
||||||
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
|
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
|
||||||
|
|
|
||||||
Binary file not shown.
|
|
@ -2,6 +2,6 @@
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<Transactions/>
|
<Transactions/>
|
||||||
<Default.Personality>
|
<Default.Personality>
|
||||||
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\RTBasicsV1\A00通用模板\InformationBase.dproj"/>
|
<Projects ActiveProject="D:\RTFormwork\项目代码\RTBasicsV1\A00通用模板\InformationBase.dproj"/>
|
||||||
</Default.Personality>
|
</Default.Personality>
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|
|
||||||
|
|
@ -1,8 +1,11 @@
|
||||||
inherited DataLink_InformationBase: TDataLink_InformationBase
|
inherited DataLink_InformationBase: TDataLink_InformationBase
|
||||||
|
OldCreateOrder = True
|
||||||
OnDestroy = DataModuleDestroy
|
OnDestroy = DataModuleDestroy
|
||||||
Height = 349
|
Height = 349
|
||||||
Width = 482
|
Width = 482
|
||||||
inherited cxEditStyleController1: TcxEditStyleController
|
inherited cxEditStyleController1: TcxEditStyleController
|
||||||
|
Left = 57
|
||||||
|
Top = 70
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
end
|
end
|
||||||
inherited cxDefaultEditStyleController1: TcxDefaultEditStyleController
|
inherited cxDefaultEditStyleController1: TcxDefaultEditStyleController
|
||||||
|
|
@ -10,6 +13,19 @@ inherited DataLink_InformationBase: TDataLink_InformationBase
|
||||||
end
|
end
|
||||||
inherited cxImageList_bar: TcxImageList
|
inherited cxImageList_bar: TcxImageList
|
||||||
FormatVersion = 1
|
FormatVersion = 1
|
||||||
|
Left = 307
|
||||||
|
Top = 163
|
||||||
|
DesignInfo = 10682675
|
||||||
|
end
|
||||||
|
inherited ThreeColorBase: TcxStyleRepository
|
||||||
|
Left = 134
|
||||||
|
Top = 117
|
||||||
|
PixelsPerInch = 96
|
||||||
|
end
|
||||||
|
inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
|
||||||
|
inherited dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel
|
||||||
|
PixelsPerInch = 96
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object AdoDataLink: TADOQuery
|
object AdoDataLink: TADOQuery
|
||||||
Connection = ADOLink
|
Connection = ADOLink
|
||||||
|
|
@ -25,8 +41,8 @@ inherited DataLink_InformationBase: TDataLink_InformationBase
|
||||||
object ThreeImgList: TImageList
|
object ThreeImgList: TImageList
|
||||||
Height = 24
|
Height = 24
|
||||||
Width = 24
|
Width = 24
|
||||||
Left = 48
|
Left = 60
|
||||||
Top = 96
|
Top = 121
|
||||||
Bitmap = {
|
Bitmap = {
|
||||||
494C01018900F000040018001800FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
|
494C01018900F000040018001800FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
|
||||||
00000000000036000000280000006000000048030000010020000000000000EC
|
00000000000036000000280000006000000048030000010020000000000000EC
|
||||||
|
|
@ -10430,145 +10446,18 @@ inherited DataLink_InformationBase: TDataLink_InformationBase
|
||||||
FF800001000000F003FFFE00FFE0000300000000000000000000000000000000
|
FF800001000000F003FFFE00FFE0000300000000000000000000000000000000
|
||||||
000000000000}
|
000000000000}
|
||||||
end
|
end
|
||||||
object ThreeColorBase: TcxStyleRepository
|
|
||||||
Left = 147
|
|
||||||
Top = 80
|
|
||||||
PixelsPerInch = 96
|
|
||||||
object SHuangSe: TcxStyle
|
|
||||||
AssignedValues = [svColor, svFont, svTextColor]
|
|
||||||
Color = 4707838
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -12
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = []
|
|
||||||
TextColor = clBtnText
|
|
||||||
end
|
|
||||||
object SkyBlue: TcxStyle
|
|
||||||
AssignedValues = [svColor, svFont, svTextColor]
|
|
||||||
Color = clSkyBlue
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -12
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = []
|
|
||||||
TextColor = clBlack
|
|
||||||
end
|
|
||||||
object Default: TcxStyle
|
|
||||||
AssignedValues = [svFont]
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -12
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
end
|
|
||||||
object QHuangSe: TcxStyle
|
|
||||||
AssignedValues = [svColor, svFont]
|
|
||||||
Color = 8454143
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -12
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = []
|
|
||||||
end
|
|
||||||
object Red: TcxStyle
|
|
||||||
AssignedValues = [svColor, svFont]
|
|
||||||
Color = clRed
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -12
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = []
|
|
||||||
end
|
|
||||||
object FontBlue: TcxStyle
|
|
||||||
AssignedValues = [svFont, svTextColor]
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clBlue
|
|
||||||
Font.Height = -12
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
TextColor = clBlue
|
|
||||||
end
|
|
||||||
object TextSHuangSe: TcxStyle
|
|
||||||
AssignedValues = [svFont, svTextColor]
|
|
||||||
Font.Charset = ANSI_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -12
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
TextColor = clOlive
|
|
||||||
end
|
|
||||||
object FonePurple: TcxStyle
|
|
||||||
AssignedValues = [svFont, svTextColor]
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindow
|
|
||||||
Font.Height = -12
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
TextColor = clPurple
|
|
||||||
end
|
|
||||||
object FoneClMaroon: TcxStyle
|
|
||||||
AssignedValues = [svFont, svTextColor]
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -12
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
TextColor = clMaroon
|
|
||||||
end
|
|
||||||
object FoneRed: TcxStyle
|
|
||||||
AssignedValues = [svFont, svTextColor]
|
|
||||||
Font.Charset = ANSI_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -12
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
TextColor = clRed
|
|
||||||
end
|
|
||||||
object RowColor: TcxStyle
|
|
||||||
AssignedValues = [svColor]
|
|
||||||
Color = 16311512
|
|
||||||
end
|
|
||||||
object handBlack: TcxStyle
|
|
||||||
AssignedValues = [svFont]
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -12
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
end
|
|
||||||
object cxBlue: TcxStyle
|
|
||||||
AssignedValues = [svColor, svFont]
|
|
||||||
Color = 16711731
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -12
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = []
|
|
||||||
end
|
|
||||||
object SHuangSeCu: TcxStyle
|
|
||||||
AssignedValues = [svColor, svFont, svTextColor]
|
|
||||||
Color = 4707838
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clBlack
|
|
||||||
Font.Height = -12
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
TextColor = clRed
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object Timer_link: TTimer
|
object Timer_link: TTimer
|
||||||
Interval = 15000
|
Interval = 15000
|
||||||
OnTimer = Timer_linkTimer
|
OnTimer = Timer_linkTimer
|
||||||
Left = 248
|
Left = 210
|
||||||
Top = 92
|
Top = 106
|
||||||
end
|
end
|
||||||
object ImageList_new32: TImageList
|
object ImageList_new32: TImageList
|
||||||
DrawingStyle = dsTransparent
|
DrawingStyle = dsTransparent
|
||||||
Height = 32
|
Height = 32
|
||||||
Width = 32
|
Width = 32
|
||||||
Left = 256
|
Left = 200
|
||||||
Top = 184
|
Top = 188
|
||||||
Bitmap = {
|
Bitmap = {
|
||||||
494C010119002400040020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
|
494C010119002400040020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
|
||||||
000000000000360000002800000080000000E0000000010020000000000000C0
|
000000000000360000002800000080000000E0000000010020000000000000C0
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,24 @@ uses
|
||||||
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
|
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
|
||||||
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
|
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
|
||||||
dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, U_BaseDataLink,
|
dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, U_BaseDataLink,
|
||||||
cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm;
|
cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm, 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, dxCore, cxLocalization,
|
||||||
|
dxLayoutLookAndFeels;
|
||||||
|
|
||||||
type
|
type
|
||||||
TMyThread = class(TThread)
|
TMyThread = class(TThread)
|
||||||
|
|
@ -42,21 +59,6 @@ type
|
||||||
AdoDataLink: TADOQuery;
|
AdoDataLink: TADOQuery;
|
||||||
ADOLink: TADOConnection;
|
ADOLink: TADOConnection;
|
||||||
ThreeImgList: TImageList;
|
ThreeImgList: TImageList;
|
||||||
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;
|
Timer_link: TTimer;
|
||||||
ImageList_new32: TImageList;
|
ImageList_new32: TImageList;
|
||||||
procedure DataModuleDestroy(Sender: TObject);
|
procedure DataModuleDestroy(Sender: TObject);
|
||||||
|
|
|
||||||
Binary file not shown.
|
|
@ -38,7 +38,9 @@ uses
|
||||||
U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
|
U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
|
||||||
U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
|
U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
|
||||||
U_globalVar in '..\..\..\public10\design\U_globalVar.pas',
|
U_globalVar in '..\..\..\public10\design\U_globalVar.pas',
|
||||||
U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas';
|
U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas',
|
||||||
|
U_PrintLabFun in '..\A00通用方法\U_PrintLabFun.pas',
|
||||||
|
U_CustomFun in '..\A00通用方法\U_CustomFun.pas';
|
||||||
|
|
||||||
{$R *.res}
|
{$R *.res}
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -227,6 +227,8 @@
|
||||||
<DCCReference Include="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
|
<DCCReference Include="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
|
||||||
<DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/>
|
<DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/>
|
||||||
<DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/>
|
<DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/>
|
||||||
|
<DCCReference Include="..\A00通用方法\U_PrintLabFun.pas"/>
|
||||||
|
<DCCReference Include="..\A00通用方法\U_CustomFun.pas"/>
|
||||||
<BuildConfiguration Include="Debug">
|
<BuildConfiguration Include="Debug">
|
||||||
<Key>Cfg_2</Key>
|
<Key>Cfg_2</Key>
|
||||||
<CfgParent>Base</CfgParent>
|
<CfgParent>Base</CfgParent>
|
||||||
|
|
|
||||||
|
|
@ -1,34 +1,37 @@
|
||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<Transactions>
|
<Transactions>
|
||||||
<Transaction>1899/12/30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.692,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.387,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.387,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.692,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.829,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_EmployeeInPut.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.829,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_EmployeeInPut.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas=</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.222,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Company.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.222,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Company.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||||
<Transaction>2024/07/16 15:31:52.854,=D:\RTFormwork\public10\design\U_cxGridCustomSet.pas</Transaction>
|
<Transaction>2024-07-16 15:31:52.000.899,=D:\RTFormwork\public10\design\U_FormLayOutDesign.pas</Transaction>
|
||||||
<Transaction>2024/07/16 15:31:52.899,=D:\RTFormwork\public10\design\U_FormLayOutDesign.pas</Transaction>
|
<Transaction>2024-07-16 15:31:52.000.854,=D:\RTFormwork\public10\design\U_cxGridCustomSet.pas</Transaction>
|
||||||
|
<Transaction>2024-08-27 15:25:13.650,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用方法\U_PrintLabFun.pas</Transaction>
|
||||||
|
<Transaction>2024-08-27 15:26:25.613,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用方法\U_HttpFun.pas</Transaction>
|
||||||
|
<Transaction>2024-08-27 15:27:23.119,D:\RTFormwork\项目代码\RTBasicsV1\A00通用方法\U_CustomFun.pas=D:\RTFormwork\项目代码\RTBasicsV1\A00通用方法\U_HttpFun.pas</Transaction>
|
||||||
</Transactions>
|
</Transactions>
|
||||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||||
<File Path="android-support-v4.dex.jar"/>
|
<File Path="android-support-v4.dex.jar"/>
|
||||||
|
|
@ -60,6 +63,9 @@
|
||||||
<File Path="google-play-billing.dex.jar"/>
|
<File Path="google-play-billing.dex.jar"/>
|
||||||
<File Path="google-play-licensing.dex.jar"/>
|
<File Path="google-play-licensing.dex.jar"/>
|
||||||
<File Path="..\..\RTBasicsV1"/>
|
<File Path="..\..\RTBasicsV1"/>
|
||||||
|
<File Path="..\A00通用方法"/>
|
||||||
|
<File Path="..\A00通用方法\U_CustomFun.pas"/>
|
||||||
|
<File Path="..\A00通用方法\U_PrintLabFun.pas"/>
|
||||||
<File Path="..\A00通用窗体"/>
|
<File Path="..\A00通用窗体"/>
|
||||||
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
|
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
|
||||||
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
|
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
|
||||||
|
|
@ -67,12 +73,12 @@
|
||||||
<File Path="..\A00通用窗体\U_ClothInfoSel.dfm"/>
|
<File Path="..\A00通用窗体\U_ClothInfoSel.dfm"/>
|
||||||
<File Path="..\A00通用窗体\U_CompanySel.pas"/>
|
<File Path="..\A00通用窗体\U_CompanySel.pas"/>
|
||||||
<File Path="..\A00通用窗体\U_CompanySel.dfm"/>
|
<File Path="..\A00通用窗体\U_CompanySel.dfm"/>
|
||||||
<File Path="..\A00通用窗体\U_UserSel.pas"/>
|
|
||||||
<File Path="..\A00通用窗体\U_UserSel.dfm"/>
|
|
||||||
<File Path="..\A00通用窗体\U_LabelMapSet.pas"/>
|
<File Path="..\A00通用窗体\U_LabelMapSet.pas"/>
|
||||||
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
|
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
|
||||||
<File Path="..\A00通用窗体\U_LabelPrint.pas"/>
|
<File Path="..\A00通用窗体\U_LabelPrint.pas"/>
|
||||||
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
|
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
|
||||||
|
<File Path="..\A00通用窗体\U_UserSel.pas"/>
|
||||||
|
<File Path="..\A00通用窗体\U_UserSel.dfm"/>
|
||||||
<File Path="D:\RTFormwork"/>
|
<File Path="D:\RTFormwork"/>
|
||||||
<File Path="..\..\..\public10"/>
|
<File Path="..\..\..\public10"/>
|
||||||
<File Path="..\..\..\public10\design"/>
|
<File Path="..\..\..\public10\design"/>
|
||||||
|
|
@ -85,10 +91,10 @@
|
||||||
<File Path="..\..\..\public10\design\U_BaseList.pas"/>
|
<File Path="..\..\..\public10\design\U_BaseList.pas"/>
|
||||||
<File Path="..\..\..\public10\design\U_BaseList.dfm"/>
|
<File Path="..\..\..\public10\design\U_BaseList.dfm"/>
|
||||||
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
|
<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_cxGridCustomSet.pas"/>
|
||||||
<File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
|
<File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
|
||||||
|
<File Path="..\..\..\public10\design\U_globalVar.pas"/>
|
||||||
|
<File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
|
||||||
<File Path="..\..\..\public10\ThreeFun"/>
|
<File Path="..\..\..\public10\ThreeFun"/>
|
||||||
<File Path="..\..\..\public10\ThreeFun\Form"/>
|
<File Path="..\..\..\public10\ThreeFun\Form"/>
|
||||||
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
|
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
|
||||||
|
|
@ -98,29 +104,29 @@
|
||||||
<File Path="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
|
<File Path="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
|
||||||
<File Path="U_BankList.pas"/>
|
<File Path="U_BankList.pas"/>
|
||||||
<File Path="U_BankList.dfm"/>
|
<File Path="U_BankList.dfm"/>
|
||||||
|
<File Path="U_Company.pas"/>
|
||||||
|
<File Path="U_Company.dfm"/>
|
||||||
<File Path="U_CustInput.pas"/>
|
<File Path="U_CustInput.pas"/>
|
||||||
<File Path="U_CustInput.dfm"/>
|
<File Path="U_CustInput.dfm"/>
|
||||||
|
<File Path="U_Customer.pas"/>
|
||||||
|
<File Path="U_Customer.dfm"/>
|
||||||
|
<File Path="U_CustomerInput.pas"/>
|
||||||
|
<File Path="U_CustomerInput.dfm"/>
|
||||||
<File Path="U_DataLink.pas"/>
|
<File Path="U_DataLink.pas"/>
|
||||||
<File Path="U_DataLink.dfm"/>
|
<File Path="U_DataLink.dfm"/>
|
||||||
|
<File Path="U_EmployeeInPut.pas"/>
|
||||||
|
<File Path="U_EmployeeInPut.dfm"/>
|
||||||
<File Path="U_EmployeeList.pas"/>
|
<File Path="U_EmployeeList.pas"/>
|
||||||
<File Path="U_EmployeeList.dfm"/>
|
<File Path="U_EmployeeList.dfm"/>
|
||||||
<File Path="U_Factory.pas"/>
|
<File Path="U_Factory.pas"/>
|
||||||
<File Path="U_Factory.dfm"/>
|
<File Path="U_Factory.dfm"/>
|
||||||
|
<File Path="U_FactoryInput.pas"/>
|
||||||
|
<File Path="U_FactoryInput.dfm"/>
|
||||||
<File Path="U_GetDllForm.pas"/>
|
<File Path="U_GetDllForm.pas"/>
|
||||||
<File Path="U_iniParam.pas"/>
|
<File Path="U_iniParam.pas"/>
|
||||||
<File Path="U_ModuleNote.pas"/>
|
<File Path="U_ModuleNote.pas"/>
|
||||||
<File Path="U_ModuleNote.dfm"/>
|
<File Path="U_ModuleNote.dfm"/>
|
||||||
<File Path="U_Customer.pas"/>
|
|
||||||
<File Path="U_Customer.dfm"/>
|
|
||||||
<File Path="U_FactoryInput.pas"/>
|
|
||||||
<File Path="U_FactoryInput.dfm"/>
|
|
||||||
<File Path="U_Company.pas"/>
|
|
||||||
<File Path="U_Company.dfm"/>
|
|
||||||
<File Path="U_CustomerInput.pas"/>
|
|
||||||
<File Path="U_CustomerInput.dfm"/>
|
|
||||||
<File Path="U_SYDept.pas"/>
|
<File Path="U_SYDept.pas"/>
|
||||||
<File Path="U_SYDept.dfm"/>
|
<File Path="U_SYDept.dfm"/>
|
||||||
<File Path="U_EmployeeInPut.pas"/>
|
|
||||||
<File Path="U_EmployeeInPut.dfm"/>
|
|
||||||
</ProjectSortOrder>
|
</ProjectSortOrder>
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|
|
||||||
Binary file not shown.
|
|
@ -26,6 +26,11 @@ inherited DataLink_Company: TDataLink_Company
|
||||||
Top = 179
|
Top = 179
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
end
|
end
|
||||||
|
inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
|
||||||
|
inherited dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel
|
||||||
|
PixelsPerInch = 96
|
||||||
|
end
|
||||||
|
end
|
||||||
object AdoDataLink: TADOQuery
|
object AdoDataLink: TADOQuery
|
||||||
Connection = ADOLink
|
Connection = ADOLink
|
||||||
Parameters = <>
|
Parameters = <>
|
||||||
|
|
|
||||||
|
|
@ -7,7 +7,7 @@ uses
|
||||||
Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, dxSkinsCore,
|
Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, dxSkinsCore,
|
||||||
dxSkinsDefaultPainters, System.ImageList, Vcl.ExtCtrls, SyncObjs,
|
dxSkinsDefaultPainters, System.ImageList, Vcl.ExtCtrls, SyncObjs,
|
||||||
U_BaseDataLink, cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm,
|
U_BaseDataLink, cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm,
|
||||||
cxLocalization;
|
cxLocalization, dxSkinWXI, dxCore, dxLayoutLookAndFeels;
|
||||||
|
|
||||||
type
|
type
|
||||||
TMyThread = class(TThread)
|
TMyThread = class(TThread)
|
||||||
|
|
|
||||||
|
|
@ -3,8 +3,8 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
|
||||||
Top = 231
|
Top = 231
|
||||||
Anchors = []
|
Anchors = []
|
||||||
Caption = #20135#21697#20449#24687#24405#20837
|
Caption = #20135#21697#20449#24687#24405#20837
|
||||||
ClientHeight = 208
|
ClientHeight = 773
|
||||||
ClientWidth = 735
|
ClientWidth = 1187
|
||||||
Color = clWhite
|
Color = clWhite
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
|
|
@ -19,11 +19,11 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 735
|
Width = 1187
|
||||||
Height = 38
|
Height = 38
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ButtonHeight = 38
|
ButtonHeight = 38
|
||||||
ButtonWidth = 75
|
ButtonWidth = 109
|
||||||
Caption = 'ToolBar1'
|
Caption = 'ToolBar1'
|
||||||
Color = clWhite
|
Color = clWhite
|
||||||
DisabledImages = DataLink_ClothInfo.ImageList_new32
|
DisabledImages = DataLink_ClothInfo.ImageList_new32
|
||||||
|
|
@ -32,6 +32,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
ShowCaptions = True
|
ShowCaptions = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
|
ExplicitWidth = 735
|
||||||
object ToolButton1: TToolButton
|
object ToolButton1: TToolButton
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 0
|
Left = 0
|
||||||
|
|
@ -57,12 +58,19 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
|
||||||
ImageIndex = 7
|
ImageIndex = 7
|
||||||
OnClick = TBCloseClick
|
OnClick = TBCloseClick
|
||||||
end
|
end
|
||||||
|
object ToolButton2: TToolButton
|
||||||
|
Left = 213
|
||||||
|
Top = 0
|
||||||
|
Caption = 'ToolButton2'
|
||||||
|
ImageIndex = 8
|
||||||
|
OnClick = ToolButton2Click
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object ScrollBox1: TScrollBox
|
object ScrollBox1: TScrollBox
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 38
|
Top = 38
|
||||||
Width = 735
|
Width = 1187
|
||||||
Height = 170
|
Height = 735
|
||||||
Align = alClient
|
Align = alClient
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
BevelInner = bvNone
|
BevelInner = bvNone
|
||||||
|
|
@ -72,6 +80,8 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
ParentCtl3D = False
|
ParentCtl3D = False
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
|
ExplicitWidth = 735
|
||||||
|
ExplicitHeight = 170
|
||||||
object Label1: TLabel
|
object Label1: TLabel
|
||||||
Left = 31
|
Left = 31
|
||||||
Top = 33
|
Top = 33
|
||||||
|
|
@ -151,8 +161,8 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
end
|
end
|
||||||
object Label3: TLabel
|
object Label3: TLabel
|
||||||
Left = 46
|
Left = 369
|
||||||
Top = 302
|
Top = 139
|
||||||
Width = 51
|
Width = 51
|
||||||
Height = 16
|
Height = 16
|
||||||
Caption = #26465#30721#65306
|
Caption = #26465#30721#65306
|
||||||
|
|
@ -328,8 +338,8 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
|
||||||
OnKeyPress = CYColorKeyPress
|
OnKeyPress = CYColorKeyPress
|
||||||
end
|
end
|
||||||
object BCIID: TEdit
|
object BCIID: TEdit
|
||||||
Left = 103
|
Left = 426
|
||||||
Top = 300
|
Top = 137
|
||||||
Width = 218
|
Width = 218
|
||||||
Height = 22
|
Height = 22
|
||||||
Enabled = False
|
Enabled = False
|
||||||
|
|
@ -359,6 +369,34 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
|
||||||
OnBtnUpClick = C_WidthBtnUpClick
|
OnBtnUpClick = C_WidthBtnUpClick
|
||||||
OnBtnDnClick = C_WidthBtnDnClick
|
OnBtnDnClick = C_WidthBtnDnClick
|
||||||
end
|
end
|
||||||
|
object dxSpreadSheet1: TdxSpreadSheet
|
||||||
|
Left = 0
|
||||||
|
Top = 201
|
||||||
|
Width = 1027
|
||||||
|
Height = 445
|
||||||
|
Data = {
|
||||||
|
8C02000044585353763242461000000042465320000000000000000001000101
|
||||||
|
010100000100000001004246532000000000424653200100000001000000200B
|
||||||
|
00000007000000430061006C0069006200720069000000000000002000000020
|
||||||
|
0000000020000000000020000000000020000000000020000007000000470045
|
||||||
|
004E004500520041004C00000000000002000000000000000001424653200100
|
||||||
|
0000424653201700000054006400780053007000720065006100640053006800
|
||||||
|
6500650074005400610062006C00650056006900650077000600000053006800
|
||||||
|
650065007400310001FFFFFFFFFFFFFFFF640000000200000002000000020000
|
||||||
|
0055000000140000000200000002000000000200000002000000000000010000
|
||||||
|
0000000101000042465320550000000000000042465320000000004246532014
|
||||||
|
0000000000000042465320000000000000000000000000010000000000000000
|
||||||
|
0000000000000000000000424653200000000002020000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000064000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000200020200020000000000000000000000000000000000020000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000202
|
||||||
|
0000000000000000424653200000000000000000030000006400640066000000
|
||||||
|
00000000000003000000640064006600000000000000000043832737E93BE640
|
||||||
|
E5F62E37E93BE6400000000000000000}
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object ADOQueryMain: TADOQuery
|
object ADOQueryMain: TADOQuery
|
||||||
Connection = DataLink_ClothInfo.ADOLink
|
Connection = DataLink_ClothInfo.ADOLink
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,30 @@ uses
|
||||||
cxGrid, ComCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit,
|
cxGrid, ComCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit,
|
||||||
cxButtonEdit, StdCtrls, ExtCtrls, cxCurrencyEdit, BtnEdit, U_BaseList,
|
cxButtonEdit, StdCtrls, ExtCtrls, cxCurrencyEdit, BtnEdit, U_BaseList,
|
||||||
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
|
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
|
||||||
cxNavigator, dxDateRanges, dxBarBuiltInMenu;
|
cxNavigator, dxDateRanges, dxBarBuiltInMenu, 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, dxCore, dxCoreClasses, dxHashUtils, dxSpreadSheetCore,
|
||||||
|
dxSpreadSheetCoreFormulas, dxSpreadSheetCoreHistory, dxSpreadSheetCoreStyles,
|
||||||
|
dxSpreadSheetCoreStrs, dxSpreadSheetConditionalFormatting,
|
||||||
|
dxSpreadSheetConditionalFormattingRules, dxSpreadSheetClasses,
|
||||||
|
dxSpreadSheetContainers, dxSpreadSheetFormulas, dxSpreadSheetHyperlinks,
|
||||||
|
dxSpreadSheetFunctions, dxSpreadSheetStyles, dxSpreadSheetGraphics,
|
||||||
|
dxSpreadSheetPrinting, dxSpreadSheetTypes, dxSpreadSheetUtils,
|
||||||
|
dxSpreadSheetFormattedTextUtils, dxSpreadSheet;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmKnitClothInfoInput = class(TForm)
|
TfrmKnitClothInfoInput = class(TForm)
|
||||||
|
|
@ -42,6 +65,8 @@ type
|
||||||
BCIID: TEdit;
|
BCIID: TEdit;
|
||||||
Label6: TLabel;
|
Label6: TLabel;
|
||||||
C_Spec: TBtnEditC;
|
C_Spec: TBtnEditC;
|
||||||
|
dxSpreadSheet1: TdxSpreadSheet;
|
||||||
|
ToolButton2: TToolButton;
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure TBCloseClick(Sender: TObject);
|
procedure TBCloseClick(Sender: TObject);
|
||||||
procedure ToolButton1Click(Sender: TObject);
|
procedure ToolButton1Click(Sender: TObject);
|
||||||
|
|
@ -50,6 +75,7 @@ type
|
||||||
procedure C_WidthBtnDnClick(Sender: TObject);
|
procedure C_WidthBtnDnClick(Sender: TObject);
|
||||||
procedure C_WidthBtnUpClick(Sender: TObject);
|
procedure C_WidthBtnUpClick(Sender: TObject);
|
||||||
procedure ToolButton6Click(Sender: TObject);
|
procedure ToolButton6Click(Sender: TObject);
|
||||||
|
procedure ToolButton2Click(Sender: TObject);
|
||||||
private
|
private
|
||||||
canshu1: string;
|
canshu1: string;
|
||||||
Fint: Integer;
|
Fint: Integer;
|
||||||
|
|
@ -221,6 +247,11 @@ begin
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKnitClothInfoInput.ToolButton2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
dxSpreadSheet1.SaveToFile('xx.xls');
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrmKnitClothInfoInput.CYColorKeyPress(Sender: TObject; var Key: Char);
|
procedure TfrmKnitClothInfoInput.CYColorKeyPress(Sender: TObject; var Key: Char);
|
||||||
begin
|
begin
|
||||||
if Key = #13 then
|
if Key = #13 then
|
||||||
|
|
|
||||||
BIN
项目代码/RTBasicsV1/A02基础产品管理/xx.xls
Normal file
BIN
项目代码/RTBasicsV1/A02基础产品管理/xx.xls
Normal file
Binary file not shown.
62
项目代码/RTBasicsV1/A08索赔管理/Claim.dpr
Normal file
62
项目代码/RTBasicsV1/A08索赔管理/Claim.dpr
Normal file
|
|
@ -0,0 +1,62 @@
|
||||||
|
library Claim;
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils,
|
||||||
|
classes,
|
||||||
|
forms,
|
||||||
|
WinTypes,
|
||||||
|
WinProcs,
|
||||||
|
midaslib,
|
||||||
|
U_GetDllForm in 'U_GetDllForm.pas',
|
||||||
|
U_DataLink in 'U_DataLink.pas' {DataLink_Claim: 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_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
|
||||||
|
FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame},
|
||||||
|
FramePagingSel in '..\A00通用组件\FramePagingSel.pas' {frmFramePagingSel: TFrame},
|
||||||
|
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',
|
||||||
|
U_ClaimList in 'U_ClaimList.pas' {frmClaimList},
|
||||||
|
U_ClaimInput in 'U_ClaimInput.pas' {frmClaimInput};
|
||||||
|
|
||||||
|
{$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.
|
||||||
|
|
||||||
948
项目代码/RTBasicsV1/A08索赔管理/Claim.dproj
Normal file
948
项目代码/RTBasicsV1/A08索赔管理/Claim.dproj
Normal file
|
|
@ -0,0 +1,948 @@
|
||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{7B70AA99-C84C-40AE-B4AE-13C5223B874C}</ProjectGuid>
|
||||||
|
<MainSource>Claim.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>Claim</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\A08索赔管理\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_Claim</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\design\U_BaseDataLink.pas">
|
||||||
|
<Form>BaseDataLink</Form>
|
||||||
|
<FormType>dfm</FormType>
|
||||||
|
<DesignClass>TDataModule</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
|
<DCCReference Include="..\A00通用组件\FrameDateSel.pas">
|
||||||
|
<Form>frmFrameDateSel</Form>
|
||||||
|
<FormType>dfm</FormType>
|
||||||
|
<DesignClass>TFrame</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
|
<DCCReference Include="..\A00通用组件\FramePagingSel.pas">
|
||||||
|
<Form>frmFramePagingSel</Form>
|
||||||
|
<FormType>dfm</FormType>
|
||||||
|
<DesignClass>TFrame</DesignClass>
|
||||||
|
</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"/>
|
||||||
|
<DCCReference Include="U_ClaimList.pas">
|
||||||
|
<Form>frmClaimList</Form>
|
||||||
|
<FormType>dfm</FormType>
|
||||||
|
</DCCReference>
|
||||||
|
<DCCReference Include="U_ClaimInput.pas">
|
||||||
|
<Form>frmClaimInput</Form>
|
||||||
|
<FormType>dfm</FormType>
|
||||||
|
</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">Claim.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="Claim.dll" Configuration="Debug" Class="ProjectOutput">
|
||||||
|
<Platform Name="Win32">
|
||||||
|
<RemoteName>Claim.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>
|
||||||
122
项目代码/RTBasicsV1/A08索赔管理/Claim.dproj.local
Normal file
122
项目代码/RTBasicsV1/A08索赔管理/Claim.dproj.local
Normal file
|
|
@ -0,0 +1,122 @@
|
||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<BorlandProject>
|
||||||
|
<Transactions>
|
||||||
|
<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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\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.905,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.890,=D:\RTFormwork\public10\design\U_cxGridCustomSet.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.280,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FrameDateSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.415,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FramePagingSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.935,=D:\RTFormwork\public10\design\U_FormLayOutDesign.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
|
<Transaction>2024-09-02 17:17:44.938,D:\RTFormwork\项目代码\RTBasicsV1\A08索赔管理\Claim.dproj=D:\RTFormwork\项目代码\RTBasicsV1\A08索赔管理\InformationBase.dproj</Transaction>
|
||||||
|
<Transaction>2024-09-02 17:23:16.730,=D:\RTFormwork\项目代码\RTBasicsV1\A08索赔管理\U_ClaimList.pas</Transaction>
|
||||||
|
<Transaction>2024-09-03 10:10:59.306,=D:\RTFormwork\项目代码\RTBasicsV1\A08索赔管理\U_ClaimInput.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通用组件"/>
|
||||||
|
<File Path="..\A00通用组件\FrameDateSel.pas"/>
|
||||||
|
<File Path="..\A00通用组件\FrameDateSel.dfm"/>
|
||||||
|
<File Path="..\A00通用组件\FramePagingSel.pas"/>
|
||||||
|
<File Path="..\A00通用组件\FramePagingSel.dfm"/>
|
||||||
|
<File Path="D:\RTFormwork"/>
|
||||||
|
<File Path="..\..\..\public10"/>
|
||||||
|
<File Path="..\..\..\public10\design"/>
|
||||||
|
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
|
||||||
|
<File Path="..\..\..\public10\design\U_BaseDataLink.dfm"/>
|
||||||
|
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
|
||||||
|
<File Path="..\..\..\public10\design\U_BaseHelp.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_cxGridCustomSet.pas"/>
|
||||||
|
<File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
|
||||||
|
<File Path="..\..\..\public10\design\U_globalVar.pas"/>
|
||||||
|
<File Path="..\..\..\public10\design\U_WindowFormdesign.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\Fun"/>
|
||||||
|
<File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
|
||||||
|
<File Path="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
|
||||||
|
<File Path="U_DataLink.pas"/>
|
||||||
|
<File Path="U_DataLink.dfm"/>
|
||||||
|
<File Path="U_GetDllForm.pas"/>
|
||||||
|
<File Path="U_iniParam.pas"/>
|
||||||
|
<File Path="Unit1.pas"/>
|
||||||
|
<File Path="Unit1.dfm"/>
|
||||||
|
<File Path="U_ClaimList.pas"/>
|
||||||
|
<File Path="U_ClaimList.dfm"/>
|
||||||
|
<File Path="U_ClaimInput.pas"/>
|
||||||
|
<File Path="U_ClaimInput.dfm"/>
|
||||||
|
</ProjectSortOrder>
|
||||||
|
</BorlandProject>
|
||||||
BIN
项目代码/RTBasicsV1/A08索赔管理/Claim.identcache
Normal file
BIN
项目代码/RTBasicsV1/A08索赔管理/Claim.identcache
Normal file
Binary file not shown.
BIN
项目代码/RTBasicsV1/A08索赔管理/Claim.res
Normal file
BIN
项目代码/RTBasicsV1/A08索赔管理/Claim.res
Normal file
Binary file not shown.
62
项目代码/RTBasicsV1/A08索赔管理/Claim.skincfg
Normal file
62
项目代码/RTBasicsV1/A08索赔管理/Claim.skincfg
Normal file
|
|
@ -0,0 +1,62 @@
|
||||||
|
[ExpressSkins]
|
||||||
|
Default=1
|
||||||
|
ShowNotifications=1
|
||||||
|
Enabled=1
|
||||||
|
dxSkinBasic=1
|
||||||
|
dxSkinBlack=1
|
||||||
|
dxSkinBlue=1
|
||||||
|
dxSkinBlueprint=1
|
||||||
|
dxSkinCaramel=1
|
||||||
|
dxSkinCoffee=1
|
||||||
|
dxSkinDarkroom=1
|
||||||
|
dxSkinDarkSide=1
|
||||||
|
dxSkinDevExpressDarkStyle=1
|
||||||
|
dxSkinDevExpressStyle=1
|
||||||
|
dxSkinFoggy=1
|
||||||
|
dxSkinGlassOceans=1
|
||||||
|
dxSkinHighContrast=1
|
||||||
|
dxSkiniMaginary=1
|
||||||
|
dxSkinLilian=1
|
||||||
|
dxSkinLiquidSky=1
|
||||||
|
dxSkinLondonLiquidSky=1
|
||||||
|
dxSkinMcSkin=1
|
||||||
|
dxSkinMetropolis=1
|
||||||
|
dxSkinMetropolisDark=1
|
||||||
|
dxSkinMoneyTwins=1
|
||||||
|
dxSkinOffice2007Black=1
|
||||||
|
dxSkinOffice2007Blue=1
|
||||||
|
dxSkinOffice2007Green=1
|
||||||
|
dxSkinOffice2007Pink=1
|
||||||
|
dxSkinOffice2007Silver=1
|
||||||
|
dxSkinOffice2010Black=1
|
||||||
|
dxSkinOffice2010Blue=1
|
||||||
|
dxSkinOffice2010Silver=1
|
||||||
|
dxSkinOffice2013DarkGray=1
|
||||||
|
dxSkinOffice2013LightGray=1
|
||||||
|
dxSkinOffice2013White=1
|
||||||
|
dxSkinOffice2016Colorful=1
|
||||||
|
dxSkinOffice2016Dark=1
|
||||||
|
dxSkinOffice2019Black=1
|
||||||
|
dxSkinOffice2019Colorful=1
|
||||||
|
dxSkinOffice2019DarkGray=1
|
||||||
|
dxSkinOffice2019White=1
|
||||||
|
dxSkinPumpkin=1
|
||||||
|
dxSkinSeven=1
|
||||||
|
dxSkinSevenClassic=1
|
||||||
|
dxSkinSharp=1
|
||||||
|
dxSkinSharpPlus=1
|
||||||
|
dxSkinSilver=1
|
||||||
|
dxSkinSpringtime=1
|
||||||
|
dxSkinStardust=1
|
||||||
|
dxSkinSummer2008=1
|
||||||
|
dxSkinTheAsphaltWorld=1
|
||||||
|
dxSkinTheBezier=1
|
||||||
|
dxSkinsDefaultPainters=1
|
||||||
|
dxSkinValentine=1
|
||||||
|
dxSkinVisualStudio2013Blue=1
|
||||||
|
dxSkinVisualStudio2013Dark=1
|
||||||
|
dxSkinVisualStudio2013Light=1
|
||||||
|
dxSkinVS2010=1
|
||||||
|
dxSkinWhiteprint=1
|
||||||
|
dxSkinWXI=1
|
||||||
|
dxSkinXmas2008Blue=1
|
||||||
4
项目代码/RTBasicsV1/A08索赔管理/File.INI
Normal file
4
项目代码/RTBasicsV1/A08索赔管理/File.INI
Normal file
|
|
@ -0,0 +1,4 @@
|
||||||
|
[生产车间配置]
|
||||||
|
卷条码机台标志=99
|
||||||
|
成品DLL文件=CYZZ.dll
|
||||||
|
成品DLL调用号=11
|
||||||
7
项目代码/RTBasicsV1/A08索赔管理/FileHelp.ini
Normal file
7
项目代码/RTBasicsV1/A08索赔管理/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/A08索赔管理/InformationBase_Icon.ico
Normal file
BIN
项目代码/RTBasicsV1/A08索赔管理/InformationBase_Icon.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 766 B |
23
项目代码/RTBasicsV1/A08索赔管理/ProjectGroup1.bpg
Normal file
23
项目代码/RTBasicsV1/A08索赔管理/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/A08索赔管理/ProjectGroup1.groupproj
Normal file
48
项目代码/RTBasicsV1/A08索赔管理/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="Claim.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="Claim">
|
||||||
|
<MSBuild Projects="Claim.dproj"/>
|
||||||
|
</Target>
|
||||||
|
<Target Name="Claim:Clean">
|
||||||
|
<MSBuild Projects="Claim.dproj" Targets="Clean"/>
|
||||||
|
</Target>
|
||||||
|
<Target Name="Claim:Make">
|
||||||
|
<MSBuild Projects="Claim.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="Claim;testDll"/>
|
||||||
|
</Target>
|
||||||
|
<Target Name="Clean">
|
||||||
|
<CallTarget Targets="Claim:Clean;testDll:Clean"/>
|
||||||
|
</Target>
|
||||||
|
<Target Name="Make">
|
||||||
|
<CallTarget Targets="Claim:Make;testDll:Make"/>
|
||||||
|
</Target>
|
||||||
|
<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
|
||||||
|
</Project>
|
||||||
7
项目代码/RTBasicsV1/A08索赔管理/ProjectGroup1.groupproj.local
Normal file
7
项目代码/RTBasicsV1/A08索赔管理/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\A08索赔管理\Claim.dproj"/>
|
||||||
|
</Default.Personality>
|
||||||
|
</BorlandProject>
|
||||||
6
项目代码/RTBasicsV1/A08索赔管理/SYSTEMSET.ini
Normal file
6
项目代码/RTBasicsV1/A08索赔管理/SYSTEMSET.ini
Normal file
|
|
@ -0,0 +1,6 @@
|
||||||
|
[SERVER]
|
||||||
|
服务器地址=101.132.143.144
|
||||||
|
服务器地址类型=2002
|
||||||
|
是否自动更新=1
|
||||||
|
软件名称=睿特版本库
|
||||||
|
登陆标题=sss
|
||||||
478
项目代码/RTBasicsV1/A08索赔管理/U_ClaimInput.dfm
Normal file
478
项目代码/RTBasicsV1/A08索赔管理/U_ClaimInput.dfm
Normal file
|
|
@ -0,0 +1,478 @@
|
||||||
|
object frmClaimInput: TfrmClaimInput
|
||||||
|
Left = 261
|
||||||
|
Top = 149
|
||||||
|
Caption = #32034#36180#30331#35760
|
||||||
|
ClientHeight = 488
|
||||||
|
ClientWidth = 1324
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = #24494#36719#38597#40657
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = True
|
||||||
|
Position = poScreenCenter
|
||||||
|
OnClose = FormClose
|
||||||
|
OnDestroy = FormDestroy
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 21
|
||||||
|
object ToolBar1: TToolBar
|
||||||
|
Tag = 1
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 1324
|
||||||
|
Height = 30
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 30
|
||||||
|
ButtonWidth = 67
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
Color = clWhite
|
||||||
|
DisabledImages = DataLink_Claim.ImageList_new32
|
||||||
|
Images = DataLink_Claim.cxImageList_bar
|
||||||
|
List = True
|
||||||
|
ParentColor = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 0
|
||||||
|
object ToolButton3: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20445#23384
|
||||||
|
ImageIndex = 16
|
||||||
|
OnClick = ToolButton3Click
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 71
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 7
|
||||||
|
OnClick = TBCloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ScrollBox1: TScrollBox
|
||||||
|
Left = 0
|
||||||
|
Top = 30
|
||||||
|
Width = 1324
|
||||||
|
Height = 458
|
||||||
|
Align = alClient
|
||||||
|
BevelInner = bvNone
|
||||||
|
BevelOuter = bvNone
|
||||||
|
BorderStyle = bsNone
|
||||||
|
Color = clWhite
|
||||||
|
Ctl3D = False
|
||||||
|
ParentColor = False
|
||||||
|
ParentCtl3D = False
|
||||||
|
TabOrder = 1
|
||||||
|
OnClick = ScrollBox1Click
|
||||||
|
ExplicitTop = 29
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 503
|
||||||
|
Top = 18
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #23545#26041#21333#20301
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 28
|
||||||
|
Top = 100
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #32534#21495
|
||||||
|
end
|
||||||
|
object Label7: TLabel
|
||||||
|
Left = 28
|
||||||
|
Top = 264
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #22791#27880
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 262
|
||||||
|
Top = 100
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #21697#21517
|
||||||
|
end
|
||||||
|
object Label8: TLabel
|
||||||
|
Left = 507
|
||||||
|
Top = 227
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #20184#27454#26041#24335
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 269
|
||||||
|
Top = 18
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #25105#26041#21333#20301
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 262
|
||||||
|
Top = 227
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #37329#39069
|
||||||
|
end
|
||||||
|
object Label10: TLabel
|
||||||
|
Left = 28
|
||||||
|
Top = 185
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #21305#25968
|
||||||
|
end
|
||||||
|
object Label11: TLabel
|
||||||
|
Left = 262
|
||||||
|
Top = 185
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #25968#37327
|
||||||
|
end
|
||||||
|
object Label12: TLabel
|
||||||
|
Left = 508
|
||||||
|
Top = 185
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #21333#20215
|
||||||
|
end
|
||||||
|
object Label13: TLabel
|
||||||
|
Left = 28
|
||||||
|
Top = 143
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #38376#24133
|
||||||
|
end
|
||||||
|
object Label14: TLabel
|
||||||
|
Left = 262
|
||||||
|
Top = 143
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #20811#37325
|
||||||
|
end
|
||||||
|
object Label15: TLabel
|
||||||
|
Left = 508
|
||||||
|
Top = 100
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #33457#22411
|
||||||
|
end
|
||||||
|
object Label16: TLabel
|
||||||
|
Left = 769
|
||||||
|
Top = 100
|
||||||
|
Width = 62
|
||||||
|
Height = 21
|
||||||
|
Caption = #39068' '#33394
|
||||||
|
end
|
||||||
|
object Label17: TLabel
|
||||||
|
Left = 508
|
||||||
|
Top = 143
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #33394#21495
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 766
|
||||||
|
Top = 185
|
||||||
|
Width = 68
|
||||||
|
Height = 21
|
||||||
|
Caption = #20854' '#20182' '#36153
|
||||||
|
end
|
||||||
|
object Label20: TLabel
|
||||||
|
Left = 766
|
||||||
|
Top = 15
|
||||||
|
Width = 67
|
||||||
|
Height = 21
|
||||||
|
Caption = #26085' '#26399
|
||||||
|
end
|
||||||
|
object Label21: TLabel
|
||||||
|
Left = 28
|
||||||
|
Top = 227
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #20943#20813
|
||||||
|
end
|
||||||
|
object Label22: TLabel
|
||||||
|
Left = 262
|
||||||
|
Top = 57
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #35745#21010#21333#21495
|
||||||
|
end
|
||||||
|
object Label23: TLabel
|
||||||
|
Left = 28
|
||||||
|
Top = 57
|
||||||
|
Width = 68
|
||||||
|
Height = 21
|
||||||
|
Caption = #21512' '#21516' '#21495
|
||||||
|
end
|
||||||
|
object Label24: TLabel
|
||||||
|
Left = 508
|
||||||
|
Top = 57
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #25688#35201
|
||||||
|
end
|
||||||
|
object Label9: TLabel
|
||||||
|
Left = 28
|
||||||
|
Top = 18
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #31867#22411
|
||||||
|
end
|
||||||
|
object F_Code: TcxTextEdit
|
||||||
|
Left = 99
|
||||||
|
Top = 94
|
||||||
|
TabOrder = 0
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object F_Name: TcxTextEdit
|
||||||
|
Left = 337
|
||||||
|
Top = 94
|
||||||
|
TabOrder = 1
|
||||||
|
Width = 159
|
||||||
|
end
|
||||||
|
object Amount: TcxCurrencyEdit
|
||||||
|
Left = 337
|
||||||
|
Top = 221
|
||||||
|
Properties.AssignedValues.DisplayFormat = True
|
||||||
|
TabOrder = 2
|
||||||
|
OnExit = QtyExit
|
||||||
|
Width = 84
|
||||||
|
end
|
||||||
|
object Price: TcxCurrencyEdit
|
||||||
|
Left = 578
|
||||||
|
Top = 179
|
||||||
|
Properties.AssignedValues.DisplayFormat = True
|
||||||
|
TabOrder = 3
|
||||||
|
OnExit = QtyExit
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object Qty: TcxCurrencyEdit
|
||||||
|
Left = 337
|
||||||
|
Top = 179
|
||||||
|
Properties.AssignedValues.DisplayFormat = True
|
||||||
|
TabOrder = 4
|
||||||
|
OnExit = QtyExit
|
||||||
|
Width = 101
|
||||||
|
end
|
||||||
|
object Piece: TcxCurrencyEdit
|
||||||
|
Left = 99
|
||||||
|
Top = 179
|
||||||
|
Properties.AssignedValues.DisplayFormat = True
|
||||||
|
TabOrder = 5
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object F_Width: TcxTextEdit
|
||||||
|
Left = 99
|
||||||
|
Top = 137
|
||||||
|
TabOrder = 6
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object F_GramWeight: TcxTextEdit
|
||||||
|
Left = 337
|
||||||
|
Top = 137
|
||||||
|
TabOrder = 7
|
||||||
|
Width = 159
|
||||||
|
end
|
||||||
|
object F_Pattern: TcxTextEdit
|
||||||
|
Left = 578
|
||||||
|
Top = 94
|
||||||
|
TabOrder = 8
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object F_Color: TcxTextEdit
|
||||||
|
Left = 838
|
||||||
|
Top = 94
|
||||||
|
TabOrder = 9
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object F_ColorNo: TcxTextEdit
|
||||||
|
Left = 578
|
||||||
|
Top = 137
|
||||||
|
TabOrder = 10
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object OtherFee: TcxCurrencyEdit
|
||||||
|
Left = 838
|
||||||
|
Top = 179
|
||||||
|
Properties.AssignedValues.DisplayFormat = True
|
||||||
|
TabOrder = 11
|
||||||
|
OnExit = QtyExit
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object Deduction: TcxCurrencyEdit
|
||||||
|
Left = 99
|
||||||
|
Top = 221
|
||||||
|
Properties.AssignedValues.DisplayFormat = True
|
||||||
|
TabOrder = 12
|
||||||
|
OnExit = QtyExit
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object OurCoName: TcxButtonEdit
|
||||||
|
Left = 340
|
||||||
|
Top = 12
|
||||||
|
Properties.Buttons = <
|
||||||
|
item
|
||||||
|
Default = True
|
||||||
|
Kind = bkEllipsis
|
||||||
|
end>
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
Properties.OnButtonClick = OurCoNamePropertiesButtonClick
|
||||||
|
Style.ButtonStyle = btsDefault
|
||||||
|
TabOrder = 13
|
||||||
|
OnDblClick = OurCoNameDblClick
|
||||||
|
Width = 151
|
||||||
|
end
|
||||||
|
object OppCoName: TcxButtonEdit
|
||||||
|
Left = 578
|
||||||
|
Top = 12
|
||||||
|
Properties.Buttons = <
|
||||||
|
item
|
||||||
|
Default = True
|
||||||
|
Kind = bkEllipsis
|
||||||
|
end>
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
Properties.OnButtonClick = OppCoNamePropertiesButtonClick
|
||||||
|
Style.ButtonStyle = btsDefault
|
||||||
|
TabOrder = 14
|
||||||
|
OnDblClick = OurCoNameDblClick
|
||||||
|
Width = 159
|
||||||
|
end
|
||||||
|
object FCTime: TcxDateEdit
|
||||||
|
Left = 839
|
||||||
|
Top = 9
|
||||||
|
Enabled = False
|
||||||
|
Properties.ShowTime = False
|
||||||
|
TabOrder = 15
|
||||||
|
Width = 151
|
||||||
|
end
|
||||||
|
object ConNo: TcxButtonEdit
|
||||||
|
Left = 99
|
||||||
|
Top = 51
|
||||||
|
Properties.Buttons = <
|
||||||
|
item
|
||||||
|
Default = True
|
||||||
|
Kind = bkEllipsis
|
||||||
|
end>
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
Properties.OnButtonClick = ConNoPropertiesButtonClick
|
||||||
|
Style.ButtonStyle = btsDefault
|
||||||
|
TabOrder = 16
|
||||||
|
OnDblClick = OurCoNameDblClick
|
||||||
|
Width = 151
|
||||||
|
end
|
||||||
|
object OrderNo: TcxButtonEdit
|
||||||
|
Left = 337
|
||||||
|
Top = 51
|
||||||
|
Properties.Buttons = <
|
||||||
|
item
|
||||||
|
Default = True
|
||||||
|
Kind = bkEllipsis
|
||||||
|
end>
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
Properties.OnButtonClick = OrderNoPropertiesButtonClick
|
||||||
|
Style.ButtonStyle = btsDefault
|
||||||
|
TabOrder = 17
|
||||||
|
OnDblClick = OurCoNameDblClick
|
||||||
|
Width = 159
|
||||||
|
end
|
||||||
|
object FFAbstract: TcxButtonEdit
|
||||||
|
Left = 578
|
||||||
|
Top = 51
|
||||||
|
Hint = 'FFAbstract/'#25688#35201
|
||||||
|
Properties.Buttons = <
|
||||||
|
item
|
||||||
|
Default = True
|
||||||
|
Kind = bkEllipsis
|
||||||
|
end>
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
Properties.OnButtonClick = FFAbstractPropertiesButtonClick
|
||||||
|
Style.ButtonStyle = btsDefault
|
||||||
|
TabOrder = 18
|
||||||
|
OnDblClick = OurCoNameDblClick
|
||||||
|
Width = 411
|
||||||
|
end
|
||||||
|
object PayMent: TcxButtonEdit
|
||||||
|
Left = 578
|
||||||
|
Top = 221
|
||||||
|
Hint = 'PayMent/'#20184#27454#26041#24335
|
||||||
|
Properties.Buttons = <
|
||||||
|
item
|
||||||
|
Default = True
|
||||||
|
Kind = bkEllipsis
|
||||||
|
end>
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
Properties.OnButtonClick = FFAbstractPropertiesButtonClick
|
||||||
|
Style.ButtonStyle = btsDefault
|
||||||
|
TabOrder = 19
|
||||||
|
OnDblClick = OurCoNameDblClick
|
||||||
|
Width = 151
|
||||||
|
end
|
||||||
|
object QtyUnit: TcxComboBox
|
||||||
|
Left = 440
|
||||||
|
Top = 179
|
||||||
|
Properties.DropDownListStyle = lsEditFixedList
|
||||||
|
Properties.Items.Strings = (
|
||||||
|
'Kg'
|
||||||
|
'M'
|
||||||
|
'Y'
|
||||||
|
#20010
|
||||||
|
#20214)
|
||||||
|
TabOrder = 20
|
||||||
|
Text = 'Kg'
|
||||||
|
Width = 57
|
||||||
|
end
|
||||||
|
object Currency: TcxComboBox
|
||||||
|
Left = 424
|
||||||
|
Top = 221
|
||||||
|
Properties.DropDownListStyle = lsEditFixedList
|
||||||
|
Properties.Items.Strings = (
|
||||||
|
'CNY'
|
||||||
|
'USD'
|
||||||
|
'EUR')
|
||||||
|
TabOrder = 21
|
||||||
|
Text = 'CNY'
|
||||||
|
Width = 73
|
||||||
|
end
|
||||||
|
object Note: TcxMemo
|
||||||
|
Left = 99
|
||||||
|
Top = 265
|
||||||
|
TabOrder = 22
|
||||||
|
Height = 127
|
||||||
|
Width = 886
|
||||||
|
end
|
||||||
|
object fctype: TcxComboBox
|
||||||
|
Left = 98
|
||||||
|
Top = 12
|
||||||
|
Properties.DropDownListStyle = lsEditFixedList
|
||||||
|
Properties.Items.Strings = (
|
||||||
|
#23458#25143#32034#36180
|
||||||
|
#20379#24212#21830#32034#36180)
|
||||||
|
TabOrder = 23
|
||||||
|
Text = #23458#25143#32034#36180
|
||||||
|
Width = 151
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ADOQueryTemp: TADOQuery
|
||||||
|
Connection = DataLink_Claim.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 498
|
||||||
|
Top = 372
|
||||||
|
end
|
||||||
|
object ADOQueryCmd: TADOQuery
|
||||||
|
Connection = DataLink_Claim.ADOLink
|
||||||
|
Parameters = <>
|
||||||
|
Left = 397
|
||||||
|
Top = 369
|
||||||
|
end
|
||||||
|
object ADOQueryMain: TADOQuery
|
||||||
|
Connection = DataLink_Claim.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 313
|
||||||
|
Top = 371
|
||||||
|
end
|
||||||
|
end
|
||||||
486
项目代码/RTBasicsV1/A08索赔管理/U_ClaimInput.pas
Normal file
486
项目代码/RTBasicsV1/A08索赔管理/U_ClaimInput.pas
Normal file
|
|
@ -0,0 +1,486 @@
|
||||||
|
unit U_ClaimInput;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
|
||||||
|
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
|
||||||
|
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
|
||||||
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
|
||||||
|
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
|
||||||
|
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
|
||||||
|
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
||||||
|
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||||
|
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
|
||||||
|
cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
|
||||||
|
dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit, 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, dxCore, cxDateUtils, cxMemo;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmClaimInput = class(TForm)
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
TBClose: TToolButton;
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
ADOQueryMain: TADOQuery;
|
||||||
|
ToolButton3: TToolButton;
|
||||||
|
ScrollBox1: TScrollBox;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label6: TLabel;
|
||||||
|
Label7: TLabel;
|
||||||
|
F_Code: TcxTextEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
F_Name: TcxTextEdit;
|
||||||
|
Label8: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
Amount: TcxCurrencyEdit;
|
||||||
|
Label3: TLabel;
|
||||||
|
Price: TcxCurrencyEdit;
|
||||||
|
Qty: TcxCurrencyEdit;
|
||||||
|
Piece: TcxCurrencyEdit;
|
||||||
|
Label10: TLabel;
|
||||||
|
Label11: TLabel;
|
||||||
|
Label12: TLabel;
|
||||||
|
Label13: TLabel;
|
||||||
|
Label14: TLabel;
|
||||||
|
F_Width: TcxTextEdit;
|
||||||
|
F_GramWeight: TcxTextEdit;
|
||||||
|
Label15: TLabel;
|
||||||
|
Label16: TLabel;
|
||||||
|
F_Pattern: TcxTextEdit;
|
||||||
|
F_Color: TcxTextEdit;
|
||||||
|
Label17: TLabel;
|
||||||
|
F_ColorNo: TcxTextEdit;
|
||||||
|
OtherFee: TcxCurrencyEdit;
|
||||||
|
Label4: TLabel;
|
||||||
|
Label20: TLabel;
|
||||||
|
Deduction: TcxCurrencyEdit;
|
||||||
|
Label21: TLabel;
|
||||||
|
Label22: TLabel;
|
||||||
|
Label23: TLabel;
|
||||||
|
Label24: TLabel;
|
||||||
|
OurCoName: TcxButtonEdit;
|
||||||
|
OppCoName: TcxButtonEdit;
|
||||||
|
FCTime: TcxDateEdit;
|
||||||
|
ConNo: TcxButtonEdit;
|
||||||
|
OrderNo: TcxButtonEdit;
|
||||||
|
FFAbstract: TcxButtonEdit;
|
||||||
|
PayMent: TcxButtonEdit;
|
||||||
|
QtyUnit: TcxComboBox;
|
||||||
|
Currency: TcxComboBox;
|
||||||
|
Note: TcxMemo;
|
||||||
|
fctype: TcxComboBox;
|
||||||
|
Label9: TLabel;
|
||||||
|
procedure FormDestroy(Sender: TObject);
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure TBRafreshClick(Sender: TObject);
|
||||||
|
procedure ToolButton3Click(Sender: TObject);
|
||||||
|
procedure PayMentBtnDnClick(Sender: TObject);
|
||||||
|
procedure PayMentBtnUpClick(Sender: TObject);
|
||||||
|
procedure QtyExit(Sender: TObject);
|
||||||
|
procedure ScrollBox1Click(Sender: TObject);
|
||||||
|
procedure OrderNoBtnUpClick(Sender: TObject);
|
||||||
|
procedure ConNoBtnUpClick(Sender: TObject);
|
||||||
|
procedure OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
procedure OppCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
procedure OurCoNameDblClick(Sender: TObject);
|
||||||
|
procedure ConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
procedure OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
procedure FFAbstractPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
procedure InitGrid();
|
||||||
|
procedure HJJE();
|
||||||
|
function SaveData(): Boolean;
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
FFCID: string;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmClaimInput: TfrmClaimInput;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_FinTradePlanSel,
|
||||||
|
U_FinTradeSalesContractSel;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmClaimInput.HJJE();
|
||||||
|
var
|
||||||
|
MPrice, MQty, MOtherFee, MDeduction, MAmount: double;
|
||||||
|
begin
|
||||||
|
MPrice := Strtofloatdef(Price.Text, 0);
|
||||||
|
MQty := Strtofloatdef(Qty.Text, 0);
|
||||||
|
MOtherFee := Strtofloatdef(OtherFee.Text, 0);
|
||||||
|
MDeduction := Strtofloatdef(Deduction.Text, 0);
|
||||||
|
MAmount := Strtofloatdef(Amount.Text, 0);
|
||||||
|
|
||||||
|
if MQty * MPrice >= 0 then
|
||||||
|
begin
|
||||||
|
MAmount := RoundFloat((MQty * MPrice + MOtherFee - MDeduction), 2);
|
||||||
|
end;
|
||||||
|
// Price.Text := FloatToStr(MPrice);
|
||||||
|
// Qty.Text := FloatToStr(MQty);
|
||||||
|
// OtherFee.Text := FloatToStr(MOtherFee);
|
||||||
|
// Deduction.Text := FloatToStr(MDeduction);
|
||||||
|
Amount.Text := FloatToStr(MAmount);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimInput.InitGrid();
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
|
||||||
|
ADOQueryMain.DisableControls;
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
Filtered := False;
|
||||||
|
Close;
|
||||||
|
SQL.Clear;
|
||||||
|
sql.Add(' select * from Finance_Claim where FCID=''' + Trim(FFCID) + '''');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
if not ADOQueryMain.IsEmpty then
|
||||||
|
begin
|
||||||
|
SCSHData(ADOQueryMain, ScrollBox1, 0);
|
||||||
|
OppCoName.Properties.LookupItems.Text := Trim(ADOQueryMain.FieldByName('OppCoNo').AsString);
|
||||||
|
OurCoName.Properties.LookupItems.Text := Trim(ADOQueryMain.FieldByName('OurCoNo').AsString);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
FCTime.Date := SGetServerDateTime(ADOQueryTemp);
|
||||||
|
end;
|
||||||
|
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimInput.OppCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmCompanySel := TfrmCompanySel.Create(Application);
|
||||||
|
with frmCompanySel do
|
||||||
|
begin
|
||||||
|
if trim(fctype.Text) = '客户索赔' then
|
||||||
|
FCoType := '客户'
|
||||||
|
else
|
||||||
|
FCoType := '供应商';
|
||||||
|
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
OppCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
|
||||||
|
OppCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmCompanySel.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimInput.OrderNoBtnUpClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmFinTradePlanSel := TfrmFinTradePlanSel.Create(Application);
|
||||||
|
with frmFinTradePlanSel do
|
||||||
|
begin
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
with frmFinTradePlanSel.CDS_1 do
|
||||||
|
begin
|
||||||
|
self.ConNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConNo').AsString);
|
||||||
|
self.OrderNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmFinTradePlanSel.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimInput.OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmFinTradePlanSel := TfrmFinTradePlanSel.Create(Application);
|
||||||
|
with frmFinTradePlanSel do
|
||||||
|
begin
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
with frmFinTradePlanSel.CDS_1 do
|
||||||
|
begin
|
||||||
|
self.ConNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConNo').AsString);
|
||||||
|
self.OrderNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmFinTradePlanSel.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimInput.OurCoNameDblClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
TcxButtonEdit(Sender).Text := '';
|
||||||
|
TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimInput.OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmCompanySel := TfrmCompanySel.Create(Application);
|
||||||
|
with frmCompanySel do
|
||||||
|
begin
|
||||||
|
FCoType := '我司';
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
|
||||||
|
OurCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmCompanySel.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimInput.FormDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
frmClaimInput := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimInput.PayMentBtnDnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
TBtnEditC(Sender).Text := '';
|
||||||
|
TBtnEditC(Sender).TxtCode := '';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimInput.PayMentBtnUpClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
fsj: string;
|
||||||
|
FWZ: Integer;
|
||||||
|
begin
|
||||||
|
fsj := Trim(TcxTextEdit(Sender).Hint);
|
||||||
|
FWZ := Pos('/', fsj);
|
||||||
|
try
|
||||||
|
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||||
|
with frmZDYHelp do
|
||||||
|
begin
|
||||||
|
MainType := '应收款';
|
||||||
|
flag := Copy(fsj, 1, FWZ - 1);
|
||||||
|
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmZDYHelp.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimInput.QtyExit(Sender: TObject);
|
||||||
|
begin
|
||||||
|
HJJE();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimInput.ConNoBtnUpClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmFinTradeSalesContractSel := TfrmFinTradeSalesContractSel.Create(Application);
|
||||||
|
with frmFinTradeSalesContractSel do
|
||||||
|
begin
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
|
||||||
|
self.ConNo.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString);
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmFinTradeSalesContractSel.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimInput.ConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmFinTradeSalesContractSel := TfrmFinTradeSalesContractSel.Create(Application);
|
||||||
|
with frmFinTradeSalesContractSel do
|
||||||
|
begin
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
self.ConNo.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmFinTradeSalesContractSel.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimInput.FFAbstractPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
var
|
||||||
|
fsj: string;
|
||||||
|
FWZ: Integer;
|
||||||
|
begin
|
||||||
|
fsj := Trim(TcxTextEdit(Sender).Hint);
|
||||||
|
FWZ := Pos('/', fsj);
|
||||||
|
try
|
||||||
|
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||||
|
with frmZDYHelp do
|
||||||
|
begin
|
||||||
|
MainType := '应收款';
|
||||||
|
flag := Copy(fsj, 1, FWZ - 1);
|
||||||
|
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmZDYHelp.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimInput.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
|
||||||
|
Action := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimInput.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimInput.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if Trim(FFCID) = '' then
|
||||||
|
begin
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
SQL.Clear;
|
||||||
|
sql.Add(' select top 1 * from BS_Company where CoType=''我司'' order by CoCode ');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
OurCoName.Text := Trim(ADOQueryTemp.fieldbyname('CoAbbrName').AsString);
|
||||||
|
OurCoName.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('CoCode').AsString);
|
||||||
|
end;
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimInput.TBRafreshClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrmClaimInput.SaveData(): Boolean;
|
||||||
|
var
|
||||||
|
MaxId, MaxSubId, FCoCode, FCCID: string;
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
ADOQueryCmd.Connection.BeginTrans;
|
||||||
|
if Trim(FFCID) = '' then
|
||||||
|
begin
|
||||||
|
if not GetLSNo(ADOQueryCmd, MaxId, 'YS', 'Finance_Claim', 4, 1) then
|
||||||
|
raise Exception.Create('取最大号失败！');
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
MaxId := Trim(FFCID);
|
||||||
|
end;
|
||||||
|
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
SQL.Clear;
|
||||||
|
sql.Add('select * from Finance_Claim where FCID=''' + Trim(FFCID) + '''');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
if Trim(FFCID) = '' then
|
||||||
|
begin
|
||||||
|
Append;
|
||||||
|
FieldByName('FillId').Value := Trim(DCode);
|
||||||
|
FieldByName('Filler').Value := Trim(DName);
|
||||||
|
FieldByName('status').Value := '0';
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName('EditId').Value := Trim(DCode);
|
||||||
|
FieldByName('Editer').Value := Trim(DName);
|
||||||
|
FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
|
||||||
|
end;
|
||||||
|
FieldByName('OppCoNo').Value := Trim(OppCoName.Properties.LookupItems.Text);
|
||||||
|
FieldByName('OurCoNo').Value := Trim(OurCoName.Properties.LookupItems.Text);
|
||||||
|
FieldByName('FCID').Value := Trim(MaxId);
|
||||||
|
RTSetsavedata(ADOQueryCmd, 'Finance_Claim', ScrollBox1, 0);
|
||||||
|
Post;
|
||||||
|
end;
|
||||||
|
|
||||||
|
ADOQueryCmd.Connection.CommitTrans;
|
||||||
|
FCCID := Trim(MaxSubId);
|
||||||
|
Result := True;
|
||||||
|
except
|
||||||
|
Result := false;
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimInput.ScrollBox1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
HJJE();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimInput.ToolButton3Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ToolBar1.SetFocus;
|
||||||
|
if Trim(OppCoName.Text) = '' then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('对方单位不能为空!', '提示', 0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
if Trim(OurCoName.Text) = '' then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('我方单位不能为空!', '提示', 0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
if Trim(Currency.Text) = '' then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('币种不能为空!', '提示', 0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
if SaveData() then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('保存成功!', '提示', 0);
|
||||||
|
ModalResult := 1;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
682
项目代码/RTBasicsV1/A08索赔管理/U_ClaimList.dfm
Normal file
682
项目代码/RTBasicsV1/A08索赔管理/U_ClaimList.dfm
Normal file
|
|
@ -0,0 +1,682 @@
|
||||||
|
inherited frmClaimList: TfrmClaimList
|
||||||
|
Left = 315
|
||||||
|
Top = 101
|
||||||
|
Caption = #32034#36180#31649#29702
|
||||||
|
ClientHeight = 590
|
||||||
|
ClientWidth = 1625
|
||||||
|
Font.Height = -16
|
||||||
|
FormStyle = fsMDIChild
|
||||||
|
Visible = True
|
||||||
|
ExplicitWidth = 1641
|
||||||
|
ExplicitHeight = 629
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 21
|
||||||
|
object ToolBar1: TToolBar [0]
|
||||||
|
Tag = 1
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 1625
|
||||||
|
Height = 30
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 30
|
||||||
|
ButtonWidth = 99
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
Color = clSkyBlue
|
||||||
|
DisabledImages = DataLink_Claim.cxImageList_bar
|
||||||
|
Images = DataLink_Claim.cxImageList_bar
|
||||||
|
List = True
|
||||||
|
ParentColor = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 0
|
||||||
|
object TBRafresh: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21047#26032
|
||||||
|
ImageIndex = 1
|
||||||
|
OnClick = TBRafreshClick
|
||||||
|
end
|
||||||
|
object btnAdd: TToolButton
|
||||||
|
Left = 71
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #26032#22686
|
||||||
|
ImageIndex = 9
|
||||||
|
OnClick = btnAddClick
|
||||||
|
end
|
||||||
|
object TBFind: TToolButton
|
||||||
|
Left = 142
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #36807#28388
|
||||||
|
ImageIndex = 0
|
||||||
|
OnClick = TBFindClick
|
||||||
|
end
|
||||||
|
object btnEdit: TToolButton
|
||||||
|
Left = 213
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20462#25913
|
||||||
|
ImageIndex = 3
|
||||||
|
OnClick = btnEditClick
|
||||||
|
end
|
||||||
|
object btnDel: TToolButton
|
||||||
|
Left = 284
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21024#38500
|
||||||
|
ImageIndex = 5
|
||||||
|
OnClick = btnDelClick
|
||||||
|
end
|
||||||
|
object btnChk: TToolButton
|
||||||
|
Left = 355
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #23457#26680
|
||||||
|
ImageIndex = 12
|
||||||
|
OnClick = btnChkClick
|
||||||
|
end
|
||||||
|
object btnReChk: TToolButton
|
||||||
|
Left = 426
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #25764#38144#23457#26680
|
||||||
|
ImageIndex = 11
|
||||||
|
OnClick = btnReChkClick
|
||||||
|
end
|
||||||
|
object ToolButton2: TToolButton
|
||||||
|
Left = 529
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #23548#20837
|
||||||
|
ImageIndex = 18
|
||||||
|
end
|
||||||
|
object ToolButton4: TToolButton
|
||||||
|
Left = 600
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #23548#20986
|
||||||
|
ImageIndex = 20
|
||||||
|
OnClick = ToolButton4Click
|
||||||
|
end
|
||||||
|
object ToolButton3: TToolButton
|
||||||
|
Left = 671
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #38468#20214
|
||||||
|
ImageIndex = 22
|
||||||
|
OnClick = ToolButton3Click
|
||||||
|
end
|
||||||
|
object ToolButton5: TToolButton
|
||||||
|
Left = 742
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20445#23384#26684#24335
|
||||||
|
ImageIndex = 16
|
||||||
|
OnClick = ToolButton5Click
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 845
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 7
|
||||||
|
OnClick = TBCloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel1: TPanel [1]
|
||||||
|
Left = 0
|
||||||
|
Top = 30
|
||||||
|
Width = 1625
|
||||||
|
Height = 121
|
||||||
|
Align = alTop
|
||||||
|
BevelInner = bvRaised
|
||||||
|
BevelOuter = bvLowered
|
||||||
|
Color = clWhite
|
||||||
|
ParentBackground = False
|
||||||
|
TabOrder = 1
|
||||||
|
ExplicitTop = 24
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 21
|
||||||
|
Top = 50
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #23545#26041#21333#20301
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 267
|
||||||
|
Top = 50
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #21697#21517
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 267
|
||||||
|
Top = 87
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #32534#21495
|
||||||
|
end
|
||||||
|
object Label10: TLabel
|
||||||
|
Left = 488
|
||||||
|
Top = 87
|
||||||
|
Width = 68
|
||||||
|
Height = 21
|
||||||
|
Caption = #21512' '#21516' '#21495
|
||||||
|
end
|
||||||
|
object Label11: TLabel
|
||||||
|
Left = 488
|
||||||
|
Top = 50
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #23458#25143#21333#21495
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 21
|
||||||
|
Top = 87
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #35745#21010#21333#21495
|
||||||
|
end
|
||||||
|
object OppCoName: TcxTextEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 89
|
||||||
|
Top = 44
|
||||||
|
ParentFont = False
|
||||||
|
Properties.OnChange = OppCoNamePropertiesChange
|
||||||
|
TabOrder = 0
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object F_Name: TcxTextEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 302
|
||||||
|
Top = 44
|
||||||
|
ParentFont = False
|
||||||
|
Properties.OnChange = OppCoNamePropertiesChange
|
||||||
|
TabOrder = 1
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object P_Code: TcxTextEdit
|
||||||
|
Tag = 1
|
||||||
|
Left = 302
|
||||||
|
Top = 83
|
||||||
|
ParentFont = False
|
||||||
|
Properties.OnChange = OppCoNamePropertiesChange
|
||||||
|
TabOrder = 2
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object ConNo: TcxTextEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 561
|
||||||
|
Top = 83
|
||||||
|
ParentFont = False
|
||||||
|
Properties.OnChange = OppCoNamePropertiesChange
|
||||||
|
TabOrder = 3
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object BuyConNo: TcxTextEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 561
|
||||||
|
Top = 44
|
||||||
|
ParentFont = False
|
||||||
|
Properties.OnChange = OppCoNamePropertiesChange
|
||||||
|
TabOrder = 4
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
inline frmFrameDateSel1: TfrmFrameDateSel
|
||||||
|
Left = 0
|
||||||
|
Top = 6
|
||||||
|
Width = 1078
|
||||||
|
Height = 37
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = ANSI_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = #24494#36719#38597#40657
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 5
|
||||||
|
ExplicitTop = 6
|
||||||
|
end
|
||||||
|
object OrderNo: TcxTextEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 91
|
||||||
|
Top = 83
|
||||||
|
ParentFont = False
|
||||||
|
Properties.OnChange = OppCoNamePropertiesChange
|
||||||
|
TabOrder = 6
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid1: TcxGrid [2]
|
||||||
|
Left = 0
|
||||||
|
Top = 179
|
||||||
|
Width = 1625
|
||||||
|
Height = 411
|
||||||
|
Align = alClient
|
||||||
|
PopupMenu = PopupMenu1
|
||||||
|
TabOrder = 2
|
||||||
|
ExplicitTop = 176
|
||||||
|
ExplicitHeight = 414
|
||||||
|
object Tv1: TcxGridDBTableView
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
Navigator.Buttons.Delete.Enabled = False
|
||||||
|
Navigator.Buttons.Delete.Visible = False
|
||||||
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
DataController.DataSource = DS_1
|
||||||
|
DataController.Filter.AutoDataSetFilter = True
|
||||||
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = Tv1Column12
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = Tv1Column15
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = Tv1Column16
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = Tv1Column17
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = Tv1Column11
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsBehavior.GoToNextCellOnEnter = True
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsData.Deleting = False
|
||||||
|
OptionsData.DeletingConfirmation = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
object Tv1Column22: TcxGridDBColumn
|
||||||
|
Caption = #36873#25321
|
||||||
|
DataBinding.FieldName = 'SSel'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 44
|
||||||
|
end
|
||||||
|
object Tv1Column25: TcxGridDBColumn
|
||||||
|
Caption = #32034#36180#21333#21495
|
||||||
|
DataBinding.FieldName = 'fcid'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
object v2CRTime: TcxGridDBColumn
|
||||||
|
Tag = 7
|
||||||
|
Caption = #26085#26399
|
||||||
|
DataBinding.FieldName = 'FCTime'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxDateEditProperties'
|
||||||
|
Properties.SaveTime = False
|
||||||
|
Properties.ShowTime = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 82
|
||||||
|
end
|
||||||
|
object v2Column2: TcxGridDBColumn
|
||||||
|
Caption = #25105#26041#21333#20301
|
||||||
|
DataBinding.FieldName = 'OurCoName'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 100
|
||||||
|
end
|
||||||
|
object v2FactoryName: TcxGridDBColumn
|
||||||
|
Caption = #23545#26041#21333#20301
|
||||||
|
DataBinding.FieldName = 'OppCoName'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 102
|
||||||
|
end
|
||||||
|
object Tv1Column3: TcxGridDBColumn
|
||||||
|
Caption = #20184#27454#26041#24335
|
||||||
|
DataBinding.FieldName = 'PayMent'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 91
|
||||||
|
end
|
||||||
|
object Tv1Column19: TcxGridDBColumn
|
||||||
|
Caption = #21512#21516#21495
|
||||||
|
DataBinding.FieldName = 'ConNo'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 77
|
||||||
|
end
|
||||||
|
object Tv1Column24: TcxGridDBColumn
|
||||||
|
Caption = #25688#35201
|
||||||
|
DataBinding.FieldName = 'FFAbstract'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 79
|
||||||
|
end
|
||||||
|
object Tv1Column20: TcxGridDBColumn
|
||||||
|
Caption = #35745#21010#21333#21495
|
||||||
|
DataBinding.FieldName = 'OrderNo'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 112
|
||||||
|
end
|
||||||
|
object Tv1Column21: TcxGridDBColumn
|
||||||
|
Caption = #23458#25143#21333#21495
|
||||||
|
DataBinding.FieldName = 'BuyConNo'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 74
|
||||||
|
end
|
||||||
|
object Tv1Column4: TcxGridDBColumn
|
||||||
|
Caption = #32534#21495
|
||||||
|
DataBinding.FieldName = 'F_Code'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column5: TcxGridDBColumn
|
||||||
|
Caption = #21697#21517
|
||||||
|
DataBinding.FieldName = 'F_Name'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column23: TcxGridDBColumn
|
||||||
|
Caption = #31867#22411
|
||||||
|
DataBinding.FieldName = 'fctype'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
end
|
||||||
|
object Tv1Column6: TcxGridDBColumn
|
||||||
|
Caption = #33457#22411
|
||||||
|
DataBinding.FieldName = 'F_Pattern'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column7: TcxGridDBColumn
|
||||||
|
Caption = #39068#33394
|
||||||
|
DataBinding.FieldName = 'F_Color'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column28: TcxGridDBColumn
|
||||||
|
Caption = #27454#21495
|
||||||
|
DataBinding.FieldName = 'F_StyleNo'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 72
|
||||||
|
end
|
||||||
|
object Tv1Column8: TcxGridDBColumn
|
||||||
|
Caption = #38376#24133
|
||||||
|
DataBinding.FieldName = 'F_Width'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column9: TcxGridDBColumn
|
||||||
|
Caption = #20811#37325
|
||||||
|
DataBinding.FieldName = 'F_GramWeight'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column29: TcxGridDBColumn
|
||||||
|
Caption = #24067#31181
|
||||||
|
DataBinding.FieldName = 'GC_Name'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 78
|
||||||
|
end
|
||||||
|
object Tv1Column30: TcxGridDBColumn
|
||||||
|
Caption = #21152#24037#21035
|
||||||
|
DataBinding.FieldName = 'CraftCode'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 87
|
||||||
|
end
|
||||||
|
object Tv1Column10: TcxGridDBColumn
|
||||||
|
Caption = #33394#21495
|
||||||
|
DataBinding.FieldName = 'F_ColorNo'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column31: TcxGridDBColumn
|
||||||
|
Caption = #32568#21495
|
||||||
|
DataBinding.FieldName = 'F_BatchNO'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 99
|
||||||
|
end
|
||||||
|
object Tv1Column27: TcxGridDBColumn
|
||||||
|
Caption = #38468#20214
|
||||||
|
DataBinding.FieldName = 'FJFlag'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 48
|
||||||
|
end
|
||||||
|
object Tv1Column11: TcxGridDBColumn
|
||||||
|
Caption = #21305#25968
|
||||||
|
DataBinding.FieldName = 'Piece'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column12: TcxGridDBColumn
|
||||||
|
Caption = #25968#37327
|
||||||
|
DataBinding.FieldName = 'Qty'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column13: TcxGridDBColumn
|
||||||
|
Caption = #21333#20301
|
||||||
|
DataBinding.FieldName = 'QtyUnit'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column14: TcxGridDBColumn
|
||||||
|
Caption = #21333#20215
|
||||||
|
DataBinding.FieldName = 'Price'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column15: TcxGridDBColumn
|
||||||
|
Caption = #20854#20182#36153
|
||||||
|
DataBinding.FieldName = 'OtherFee'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column16: TcxGridDBColumn
|
||||||
|
Caption = #20943#20813
|
||||||
|
DataBinding.FieldName = 'Deduction'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column17: TcxGridDBColumn
|
||||||
|
Caption = #37329#39069
|
||||||
|
DataBinding.FieldName = 'Amount'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column18: TcxGridDBColumn
|
||||||
|
Caption = #24065#31181
|
||||||
|
DataBinding.FieldName = 'Currency'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column1: TcxGridDBColumn
|
||||||
|
Caption = #26469#28304
|
||||||
|
DataBinding.FieldName = 'FromID1'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object Tv1Column2: TcxGridDBColumn
|
||||||
|
Caption = #22791#27880
|
||||||
|
DataBinding.FieldName = 'Note'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGridLevel1: TcxGridLevel
|
||||||
|
GridView = Tv1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxTabControl1: TcxTabControl [3]
|
||||||
|
Left = 0
|
||||||
|
Top = 151
|
||||||
|
Width = 1625
|
||||||
|
Height = 28
|
||||||
|
Align = alTop
|
||||||
|
TabOrder = 3
|
||||||
|
Properties.CustomButtons.Buttons = <>
|
||||||
|
Properties.Style = 9
|
||||||
|
Properties.TabIndex = 0
|
||||||
|
Properties.Tabs.Strings = (
|
||||||
|
#26410#23457#26680
|
||||||
|
#24050#23457#26680
|
||||||
|
#20840#37096)
|
||||||
|
LookAndFeel.Kind = lfUltraFlat
|
||||||
|
OnChange = cxTabControl1Change
|
||||||
|
ExplicitTop = 148
|
||||||
|
ClientRectRight = 0
|
||||||
|
ClientRectTop = 0
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseCmd: TADOQuery
|
||||||
|
Connection = DataLink_Claim.ADOLink
|
||||||
|
Left = 249
|
||||||
|
Top = 240
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseTemp: TADOQuery
|
||||||
|
Connection = DataLink_Claim.ADOLink
|
||||||
|
Left = 121
|
||||||
|
Top = 209
|
||||||
|
end
|
||||||
|
object ADOQueryTemp: TADOQuery
|
||||||
|
Connection = DataLink_Claim.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 197
|
||||||
|
Top = 433
|
||||||
|
end
|
||||||
|
object ADOQueryCmd: TADOQuery
|
||||||
|
Connection = DataLink_Claim.ADOLink
|
||||||
|
Parameters = <>
|
||||||
|
Left = 101
|
||||||
|
Top = 433
|
||||||
|
end
|
||||||
|
object ADOQueryMain: TADOQuery
|
||||||
|
Connection = DataLink_Claim.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 293
|
||||||
|
Top = 433
|
||||||
|
end
|
||||||
|
object RM1: TRMGridReport
|
||||||
|
ThreadPrepareReport = True
|
||||||
|
InitialZoom = pzDefault
|
||||||
|
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
|
||||||
|
DefaultCollate = 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_Main
|
||||||
|
CompressLevel = rmzcFastest
|
||||||
|
CompressThread = False
|
||||||
|
LaterBuildEvents = True
|
||||||
|
OnlyOwnerDataSet = False
|
||||||
|
Left = 232
|
||||||
|
Top = 288
|
||||||
|
ReportData = {}
|
||||||
|
end
|
||||||
|
object RMDB_Main: TRMDBDataSet
|
||||||
|
Visible = True
|
||||||
|
Left = 168
|
||||||
|
Top = 280
|
||||||
|
end
|
||||||
|
object GPM_1: TcxGridPopupMenu
|
||||||
|
Grid = cxGrid1
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 504
|
||||||
|
Top = 312
|
||||||
|
end
|
||||||
|
object DS_1: TDataSource
|
||||||
|
DataSet = CDS_1
|
||||||
|
Left = 595
|
||||||
|
Top = 315
|
||||||
|
end
|
||||||
|
object CDS_1: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 552
|
||||||
|
Top = 336
|
||||||
|
end
|
||||||
|
object PopupMenu1: TPopupMenu
|
||||||
|
Left = 776
|
||||||
|
Top = 304
|
||||||
|
object N1: TMenuItem
|
||||||
|
Caption = #20840#36873
|
||||||
|
OnClick = N1Click
|
||||||
|
end
|
||||||
|
object N3: TMenuItem
|
||||||
|
Caption = #20840#24323
|
||||||
|
OnClick = N3Click
|
||||||
|
end
|
||||||
|
object N2: TMenuItem
|
||||||
|
Caption = #22797#21046
|
||||||
|
OnClick = N2Click
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
541
项目代码/RTBasicsV1/A08索赔管理/U_ClaimList.pas
Normal file
541
项目代码/RTBasicsV1/A08索赔管理/U_ClaimList.pas
Normal file
|
|
@ -0,0 +1,541 @@
|
||||||
|
unit U_ClaimList;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
|
||||||
|
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
|
||||||
|
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
|
||||||
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
|
||||||
|
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
|
||||||
|
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
|
||||||
|
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
||||||
|
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||||
|
cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
|
||||||
|
cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters,
|
||||||
|
dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, cxContainer, dxCore,
|
||||||
|
cxDateUtils, 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, FrameDateSel;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmClaimList = class(TfrmBaseList)
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
TBRafresh: TToolButton;
|
||||||
|
btnDel: TToolButton;
|
||||||
|
TBClose: TToolButton;
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
Panel1: TPanel;
|
||||||
|
ADOQueryMain: TADOQuery;
|
||||||
|
RM1: TRMGridReport;
|
||||||
|
RMDB_Main: TRMDBDataSet;
|
||||||
|
Label3: TLabel;
|
||||||
|
OppCoName: TcxTextEdit;
|
||||||
|
cxGrid1: TcxGrid;
|
||||||
|
Tv1: TcxGridDBTableView;
|
||||||
|
v2CRTime: TcxGridDBColumn;
|
||||||
|
cxGridLevel1: TcxGridLevel;
|
||||||
|
GPM_1: TcxGridPopupMenu;
|
||||||
|
DS_1: TDataSource;
|
||||||
|
CDS_1: TClientDataSet;
|
||||||
|
btnAdd: TToolButton;
|
||||||
|
v2FactoryName: TcxGridDBColumn;
|
||||||
|
F_Name: TcxTextEdit;
|
||||||
|
Label4: TLabel;
|
||||||
|
Label6: TLabel;
|
||||||
|
P_Code: TcxTextEdit;
|
||||||
|
cxTabControl1: TcxTabControl;
|
||||||
|
Label10: TLabel;
|
||||||
|
ConNo: TcxTextEdit;
|
||||||
|
Label11: TLabel;
|
||||||
|
BuyConNo: TcxTextEdit;
|
||||||
|
v2Column2: TcxGridDBColumn;
|
||||||
|
btnChk: TToolButton;
|
||||||
|
btnReChk: TToolButton;
|
||||||
|
PopupMenu1: TPopupMenu;
|
||||||
|
N1: TMenuItem;
|
||||||
|
ToolButton4: TToolButton;
|
||||||
|
ToolButton5: TToolButton;
|
||||||
|
N2: TMenuItem;
|
||||||
|
btnEdit: TToolButton;
|
||||||
|
Tv1Column3: TcxGridDBColumn;
|
||||||
|
Tv1Column4: TcxGridDBColumn;
|
||||||
|
Tv1Column5: TcxGridDBColumn;
|
||||||
|
Tv1Column6: TcxGridDBColumn;
|
||||||
|
Tv1Column7: TcxGridDBColumn;
|
||||||
|
Tv1Column8: TcxGridDBColumn;
|
||||||
|
Tv1Column9: TcxGridDBColumn;
|
||||||
|
Tv1Column10: TcxGridDBColumn;
|
||||||
|
Tv1Column11: TcxGridDBColumn;
|
||||||
|
Tv1Column12: TcxGridDBColumn;
|
||||||
|
Tv1Column13: TcxGridDBColumn;
|
||||||
|
Tv1Column14: TcxGridDBColumn;
|
||||||
|
Tv1Column15: TcxGridDBColumn;
|
||||||
|
Tv1Column16: TcxGridDBColumn;
|
||||||
|
Tv1Column17: TcxGridDBColumn;
|
||||||
|
Tv1Column18: TcxGridDBColumn;
|
||||||
|
Tv1Column19: TcxGridDBColumn;
|
||||||
|
Tv1Column20: TcxGridDBColumn;
|
||||||
|
Tv1Column21: TcxGridDBColumn;
|
||||||
|
Tv1Column22: TcxGridDBColumn;
|
||||||
|
N3: TMenuItem;
|
||||||
|
Tv1Column24: TcxGridDBColumn;
|
||||||
|
Tv1Column1: TcxGridDBColumn;
|
||||||
|
Tv1Column2: TcxGridDBColumn;
|
||||||
|
ToolButton2: TToolButton;
|
||||||
|
ToolButton3: TToolButton;
|
||||||
|
Tv1Column27: TcxGridDBColumn;
|
||||||
|
Tv1Column28: TcxGridDBColumn;
|
||||||
|
frmFrameDateSel1: TfrmFrameDateSel;
|
||||||
|
TBFind: TToolButton;
|
||||||
|
Tv1Column29: TcxGridDBColumn;
|
||||||
|
Tv1Column30: TcxGridDBColumn;
|
||||||
|
Tv1Column31: TcxGridDBColumn;
|
||||||
|
Label1: TLabel;
|
||||||
|
OrderNo: TcxTextEdit;
|
||||||
|
Tv1Column23: TcxGridDBColumn;
|
||||||
|
Tv1Column25: TcxGridDBColumn;
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
procedure btnDelClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure TBRafreshClick(Sender: TObject);
|
||||||
|
procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
|
||||||
|
procedure btnAddClick(Sender: TObject);
|
||||||
|
procedure cxTabControl1Change(Sender: TObject);
|
||||||
|
procedure btnChkClick(Sender: TObject);
|
||||||
|
procedure btnReChkClick(Sender: TObject);
|
||||||
|
procedure N1Click(Sender: TObject);
|
||||||
|
procedure ToolButton4Click(Sender: TObject);
|
||||||
|
procedure ToolButton5Click(Sender: TObject);
|
||||||
|
procedure N2Click(Sender: TObject);
|
||||||
|
procedure btnEditClick(Sender: TObject);
|
||||||
|
procedure N3Click(Sender: TObject);
|
||||||
|
procedure ToolButton3Click(Sender: TObject);
|
||||||
|
procedure TBFindClick(Sender: TObject);
|
||||||
|
procedure OppCoNamePropertiesChange(Sender: TObject);
|
||||||
|
private
|
||||||
|
procedure InitGrid();
|
||||||
|
procedure SetStatus();
|
||||||
|
public
|
||||||
|
FAuthority: string;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_RTFun, U_ZDYHelp, U_ClaimInput, U_AttachmentUpload;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
procedure TfrmClaimList.SetStatus();
|
||||||
|
begin
|
||||||
|
|
||||||
|
btnChk.Enabled := false; //审核
|
||||||
|
btnReChk.Enabled := false; //撤销
|
||||||
|
|
||||||
|
btnAdd.Enabled := false; //新增
|
||||||
|
btnEdit.Enabled := false; //修改
|
||||||
|
btnDel.Enabled := false; //删除
|
||||||
|
// if Trim(FAuthority) = '管理' then
|
||||||
|
begin
|
||||||
|
btnAdd.Enabled := true;
|
||||||
|
case cxTabControl1.TabIndex of
|
||||||
|
0:
|
||||||
|
begin
|
||||||
|
btnEdit.Enabled := true;
|
||||||
|
btnDel.Enabled := true;
|
||||||
|
btnChk.Enabled := true;
|
||||||
|
end;
|
||||||
|
1:
|
||||||
|
begin
|
||||||
|
btnReChk.Enabled := true;
|
||||||
|
end;
|
||||||
|
2:
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimList.InitGrid();
|
||||||
|
var
|
||||||
|
Msql, mbegdate, menddate: string;
|
||||||
|
SqlStr: string;
|
||||||
|
begin
|
||||||
|
|
||||||
|
SqlStr := ' select A.* ';
|
||||||
|
SqlStr := SqlStr + ',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''索赔'' and X.WBID=A.FCID)>0 THEN 1 ELSE 0 END) AS BIT)';
|
||||||
|
|
||||||
|
SqlStr := SqlStr + ' from Finance_Claim A ';
|
||||||
|
SqlStr := SqlStr + ' where A.FCTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''';
|
||||||
|
SqlStr := SqlStr + ' and A.FCTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
|
||||||
|
case cxTabControl1.TabIndex of
|
||||||
|
0:
|
||||||
|
begin
|
||||||
|
SqlStr := SqlStr + ' and isnull(status,''0'')=''0'' ';
|
||||||
|
end;
|
||||||
|
1:
|
||||||
|
begin
|
||||||
|
SqlStr := SqlStr + ' and isnull(status,''0'')=''9'' ';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'FCID');
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimList.N1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SelOKNo(CDS_1, true)
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimList.N2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimList.N3Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SelOKNo(CDS_1, false)
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimList.OppCoNamePropertiesChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
TBFind.Click;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimList.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
Action := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimList.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimList.TBFindClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.Active = False then
|
||||||
|
Exit;
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS(ADOQueryMain, CDS_1);
|
||||||
|
SInitCDSData(ADOQueryMain, CDS_1);
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimList.btnDelClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
FFCIDS: string;
|
||||||
|
begin
|
||||||
|
if CDS_1.IsEmpty then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
if not CDS_1.Locate('SSel', True, []) then
|
||||||
|
begin
|
||||||
|
application.MessageBox('请选择数据', '提示');
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
with CDS_1 do
|
||||||
|
begin
|
||||||
|
DisableControls;
|
||||||
|
while CDS_1.Locate('SSel', True, []) do
|
||||||
|
begin
|
||||||
|
FFCIDS := FFCIDS + Trim(CDS_1.fieldbyname('FCID').AsString) + ',';
|
||||||
|
CDS_1.Delete;
|
||||||
|
end;
|
||||||
|
EnableControls;
|
||||||
|
end;
|
||||||
|
try
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add(' exec P_Fin_Claim_Del ');
|
||||||
|
sql.Add(' @FCIDS=' + QuotedStr(FFCIDS));
|
||||||
|
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)));
|
||||||
|
application.MessageBox('删除成功', '提示');
|
||||||
|
except
|
||||||
|
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimList.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ReadCxGrid(trim(Self.Caption), Tv1, '财务管理');
|
||||||
|
frmFrameDateSel1.Enddate.Date := SGetServerDate(ADOQueryTemp);
|
||||||
|
frmFrameDateSel1.begdate.Date := frmFrameDateSel1.Enddate.Date - 30;
|
||||||
|
SetStatus();
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimList.TBRafreshClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
toolbar1.SetFocus;
|
||||||
|
|
||||||
|
InitGrid();
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimList.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
|
||||||
|
var
|
||||||
|
mvalue, FFieldName: string;
|
||||||
|
FPS, FQty, FPrice, FQTFee, FMoney, FZKMoney: Double;
|
||||||
|
begin
|
||||||
|
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||||||
|
mvalue := TcxTextEdit(Sender).EditingText;
|
||||||
|
if Trim(mvalue) = '' then
|
||||||
|
begin
|
||||||
|
mvalue := '0';
|
||||||
|
end;
|
||||||
|
|
||||||
|
with CDS_1 do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName(FFieldName).Value := Trim(mvalue);
|
||||||
|
Post;
|
||||||
|
FPS := CDS_1.fieldbyname('PS').AsFloat;
|
||||||
|
FQty := CDS_1.fieldbyname('Qty').AsFloat;
|
||||||
|
FQTFee := CDS_1.fieldbyname('QTFee').AsFloat;
|
||||||
|
FPrice := CDS_1.fieldbyname('Price').AsFloat;
|
||||||
|
FMoney := CDS_1.fieldbyname('Money').AsFloat;
|
||||||
|
|
||||||
|
FZKMoney := CDS_1.fieldbyname('ZKMoney').AsFloat;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if Trim(FFieldName) <> 'Money' then
|
||||||
|
begin
|
||||||
|
FMoney := FQty * FPrice + FQTFee - FZKMoney;
|
||||||
|
end;
|
||||||
|
with CDS_1 do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName('Money').Value := FMoney;
|
||||||
|
Post;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
SQL.Clear;
|
||||||
|
sql.Add('update Finance_Claim set ' + FFieldName + '=' + Trim(mvalue));
|
||||||
|
if Trim(FFieldName) <> 'Money' then
|
||||||
|
sql.Add(' ,Money=' + FloatToStr(FMoney));
|
||||||
|
sql.Add('where FCID=' + quotedstr(Trim(CDS_1.fieldbyname('FCID').AsString)));
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Tv1.Controller.EditingController.ShowEdit();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimList.btnChkClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
FFCIDS: string;
|
||||||
|
begin
|
||||||
|
if CDS_1.IsEmpty then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
if not CDS_1.Locate('SSel', True, []) then
|
||||||
|
begin
|
||||||
|
application.MessageBox('请选择数据', '提示');
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
with CDS_1 do
|
||||||
|
begin
|
||||||
|
DisableControls;
|
||||||
|
while CDS_1.Locate('SSel', True, []) do
|
||||||
|
begin
|
||||||
|
FFCIDS := FFCIDS + Trim(CDS_1.fieldbyname('FCID').AsString) + ',';
|
||||||
|
CDS_1.Delete;
|
||||||
|
end;
|
||||||
|
EnableControls;
|
||||||
|
end;
|
||||||
|
|
||||||
|
try
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add(' exec P_Fin_Claim_SetStatus ');
|
||||||
|
sql.Add(' @FCIDS=' + QuotedStr(FFCIDS));
|
||||||
|
sql.Add(',@Operation=''审核'' ');
|
||||||
|
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)));
|
||||||
|
application.MessageBox('审核成功', '提示');
|
||||||
|
except
|
||||||
|
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimList.btnReChkClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
FFCIDS: string;
|
||||||
|
begin
|
||||||
|
if CDS_1.IsEmpty then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
if not CDS_1.Locate('SSel', True, []) then
|
||||||
|
begin
|
||||||
|
application.MessageBox('请选择数据', '提示');
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
with CDS_1 do
|
||||||
|
begin
|
||||||
|
DisableControls;
|
||||||
|
while CDS_1.Locate('SSel', True, []) do
|
||||||
|
begin
|
||||||
|
FFCIDS := FFCIDS + Trim(CDS_1.fieldbyname('FCID').AsString) + ',';
|
||||||
|
CDS_1.Delete;
|
||||||
|
end;
|
||||||
|
EnableControls;
|
||||||
|
end;
|
||||||
|
|
||||||
|
try
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add(' exec P_Fin_Claim_SetStatus ');
|
||||||
|
sql.Add(' @FCIDS=' + QuotedStr(FFCIDS));
|
||||||
|
sql.Add(',@Operation=''撤销审核'' ');
|
||||||
|
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)));
|
||||||
|
application.MessageBox('撤销审核成功', '提示');
|
||||||
|
except
|
||||||
|
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimList.btnAddClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
try
|
||||||
|
frmClaimInput := TfrmClaimInput.Create(Application);
|
||||||
|
with frmClaimInput do
|
||||||
|
begin
|
||||||
|
FFCID := '';
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmClaimInput.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimList.ToolButton3Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if CDS_1.IsEmpty then
|
||||||
|
Exit;
|
||||||
|
try
|
||||||
|
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
|
||||||
|
with frmAttachmentUpload do
|
||||||
|
begin
|
||||||
|
fkeyNO := Trim(Self.CDS_1.fieldbyname('FCID').AsString);
|
||||||
|
fType := '财务流水';
|
||||||
|
FEditAuthority := True;
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmAttachmentUpload.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimList.ToolButton4Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.IsEmpty then
|
||||||
|
Exit;
|
||||||
|
TcxGridToExcel(self.Caption, cxgrid1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimList.ToolButton5Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WriteCxGrid(trim(Self.Caption), Tv1, '财务管理');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimList.btnEditClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add(' exec P_Fin_Claim_Judge ');
|
||||||
|
sql.Add(' @FCIDS=' + QuotedStr(Trim(SELF.CDS_1.fieldbyname('FCID').AsString)));
|
||||||
|
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)));
|
||||||
|
except
|
||||||
|
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
try
|
||||||
|
frmClaimInput := TfrmClaimInput.Create(Application);
|
||||||
|
with frmClaimInput do
|
||||||
|
begin
|
||||||
|
FFCID := Trim(SELF.CDS_1.fieldbyname('FCID').AsString);
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmClaimInput.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClaimList.cxTabControl1Change(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SetStatus();
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
14165
项目代码/RTBasicsV1/A08索赔管理/U_DataLink.dfm
Normal file
14165
项目代码/RTBasicsV1/A08索赔管理/U_DataLink.dfm
Normal file
File diff suppressed because it is too large
Load Diff
131
项目代码/RTBasicsV1/A08索赔管理/U_DataLink.pas
Normal file
131
项目代码/RTBasicsV1/A08索赔管理/U_DataLink.pas
Normal file
|
|
@ -0,0 +1,131 @@
|
||||||
|
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, U_BaseDataLink,
|
||||||
|
cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm, 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, dxCore, cxLocalization,
|
||||||
|
dxLayoutLookAndFeels;
|
||||||
|
|
||||||
|
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_Claim = class(TBaseDataLink)
|
||||||
|
AdoDataLink: TADOQuery;
|
||||||
|
ADOLink: TADOConnection;
|
||||||
|
ThreeImgList: TImageList;
|
||||||
|
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_Claim: TDataLink_Claim;
|
||||||
|
CriticalSection: TCriticalSection; {声明临界}
|
||||||
|
|
||||||
|
implementation
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TMyThread.Execute;
|
||||||
|
begin
|
||||||
|
FreeOnTerminate := True;
|
||||||
|
CriticalSection.Enter;
|
||||||
|
try
|
||||||
|
with DataLink_Claim.AdoDataLink do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select getdate()');
|
||||||
|
open;
|
||||||
|
end;
|
||||||
|
except
|
||||||
|
try
|
||||||
|
with DataLink_Claim.ADOLink do
|
||||||
|
begin
|
||||||
|
Connected := false;
|
||||||
|
ConnectionString := DConString;
|
||||||
|
LoginPrompt := false;
|
||||||
|
Connected := true;
|
||||||
|
end;
|
||||||
|
except
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
CriticalSection.Leave;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TDataLink_Claim.DataModuleDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
CriticalSection.Free;
|
||||||
|
DataLink_Claim := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TDataLink_Claim.Timer_linkTimer(Sender: TObject);
|
||||||
|
begin
|
||||||
|
TMyThread.Create(False);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TDataLink_Claim.DataModuleCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
CriticalSection := TCriticalSection.Create;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
4734
项目代码/RTBasicsV1/A08索赔管理/U_FinTradePlanSel.dfm
Normal file
4734
项目代码/RTBasicsV1/A08索赔管理/U_FinTradePlanSel.dfm
Normal file
File diff suppressed because it is too large
Load Diff
190
项目代码/RTBasicsV1/A08索赔管理/U_FinTradePlanSel.pas
Normal file
190
项目代码/RTBasicsV1/A08索赔管理/U_FinTradePlanSel.pas
Normal file
|
|
@ -0,0 +1,190 @@
|
||||||
|
unit U_FinTradePlanSel;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||||||
|
cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseHelp, cxGridCustomTableView,
|
||||||
|
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
|
||||||
|
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
|
||||||
|
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
|
||||||
|
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
|
||||||
|
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxCheckBox,
|
||||||
|
cxCalendar;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmFinTradePlanSel = class(TfrmBaseHelp)
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
ADOQueryMain: TADOQuery;
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
DS_1: TDataSource;
|
||||||
|
CDS_1: TClientDataSet;
|
||||||
|
TBSave: TToolButton;
|
||||||
|
TBClose: TToolButton;
|
||||||
|
ToolButton1: TToolButton;
|
||||||
|
ADOConnection1: TADOConnection;
|
||||||
|
Panel1: TPanel;
|
||||||
|
GPM_1: TcxGridPopupMenu;
|
||||||
|
ImageList1: TImageList;
|
||||||
|
cxStyleRepository1: TcxStyleRepository;
|
||||||
|
cxStyle1: TcxStyle;
|
||||||
|
cxGrid1: TcxGrid;
|
||||||
|
Tv1: TcxGridDBTableView;
|
||||||
|
v1Column7: TcxGridDBColumn;
|
||||||
|
v1OrderNo: TcxGridDBColumn;
|
||||||
|
v1ConNo: TcxGridDBColumn;
|
||||||
|
Tv1Column11: TcxGridDBColumn;
|
||||||
|
v1OrdDefStr1: TcxGridDBColumn;
|
||||||
|
v1MPRTCodeName: TcxGridDBColumn;
|
||||||
|
v1MPRTSpec: TcxGridDBColumn;
|
||||||
|
Tv1Column1: TcxGridDBColumn;
|
||||||
|
v1MPRTMF: TcxGridDBColumn;
|
||||||
|
v1MPRTKZ: TcxGridDBColumn;
|
||||||
|
v1PRTColor: TcxGridDBColumn;
|
||||||
|
v1Column1: TcxGridDBColumn;
|
||||||
|
v1Column6: TcxGridDBColumn;
|
||||||
|
v1PRTOrderQty: TcxGridDBColumn;
|
||||||
|
v1Column4: TcxGridDBColumn;
|
||||||
|
v1Column5: TcxGridDBColumn;
|
||||||
|
v1DeliveryDate: TcxGridDBColumn;
|
||||||
|
v1Column3: TcxGridDBColumn;
|
||||||
|
Tv1Column3: TcxGridDBColumn;
|
||||||
|
Tv1Column4: TcxGridDBColumn;
|
||||||
|
Tv1Column5: TcxGridDBColumn;
|
||||||
|
cxGrid1Level1: TcxGridLevel;
|
||||||
|
Tv1Column2: TcxGridDBColumn;
|
||||||
|
Label3: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
Label6: TLabel;
|
||||||
|
Label7: TLabel;
|
||||||
|
Label8: TLabel;
|
||||||
|
OrderNo: TEdit;
|
||||||
|
C_Name: TEdit;
|
||||||
|
C_Color: TEdit;
|
||||||
|
C_ColorNo: TEdit;
|
||||||
|
C_Pattern: TEdit;
|
||||||
|
C_Code: TEdit;
|
||||||
|
ConNo: TEdit;
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure ToolButton1Click(Sender: TObject);
|
||||||
|
procedure TBSaveClick(Sender: TObject);
|
||||||
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
procedure OrderNoChange(Sender: TObject);
|
||||||
|
procedure FormDestroy(Sender: TObject);
|
||||||
|
procedure Tv1DblClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
procedure InitGrid();
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
FCoType, FAuthority: string;
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmFinTradePlanSel: TfrmFinTradePlanSel;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_RTFun;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmFinTradePlanSel.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
try
|
||||||
|
with ADOConnection1 do
|
||||||
|
begin
|
||||||
|
Connected := false;
|
||||||
|
ConnectionString := DConString;
|
||||||
|
Connected := true;
|
||||||
|
end;
|
||||||
|
ADOQueryBaseCmd.Connection := ADOConnection1;
|
||||||
|
ADOQueryBaseTemp.Connection := ADOConnection1;
|
||||||
|
except
|
||||||
|
application.MessageBox('网络连接失败！', '提示信息');
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFinTradePlanSel.FormDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
frmFinTradePlanSel := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFinTradePlanSel.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
|
||||||
|
Action := cahide;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFinTradePlanSel.InitGrid();
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
ADOQueryMain.DisableControls;
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select A.* from V_Trade_Plan_Fty A ');
|
||||||
|
sql.add('where Status=''9'' ');
|
||||||
|
// ShowMessage(sql.Text);
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS(ADOQueryMain, CDS_1);
|
||||||
|
SInitCDSData(ADOQueryMain, CDS_1);
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFinTradePlanSel.OrderNoChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.Active then
|
||||||
|
begin
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS(ADOQueryMain, CDS_1);
|
||||||
|
SInitCDSData(ADOQueryMain, CDS_1);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFinTradePlanSel.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ReadCxGrid('单位名称' + Trim(FCoType), TV1, '自定义数据');
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFinTradePlanSel.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFinTradePlanSel.TBSaveClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WriteCxGrid('单位名称' + Trim(FCoType), TV1, '自定义数据');
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFinTradePlanSel.ToolButton1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ModalResult := 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFinTradePlanSel.Tv1DblClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ModalResult := 1;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
4810
项目代码/RTBasicsV1/A08索赔管理/U_FinTradeSalesContractSel.dfm
Normal file
4810
项目代码/RTBasicsV1/A08索赔管理/U_FinTradeSalesContractSel.dfm
Normal file
File diff suppressed because it is too large
Load Diff
221
项目代码/RTBasicsV1/A08索赔管理/U_FinTradeSalesContractSel.pas
Normal file
221
项目代码/RTBasicsV1/A08索赔管理/U_FinTradeSalesContractSel.pas
Normal file
|
|
@ -0,0 +1,221 @@
|
||||||
|
unit U_FinTradeSalesContractSel;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||||||
|
cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseHelp, cxGridCustomTableView,
|
||||||
|
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
|
||||||
|
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
|
||||||
|
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
|
||||||
|
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
|
||||||
|
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit,
|
||||||
|
cxDropDownEdit, cxCheckBox, Vcl.Menus;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmFinTradeSalesContractSel = class(TfrmBaseHelp)
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
ADOQueryMain: TADOQuery;
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
DS_1: TDataSource;
|
||||||
|
CDS_1: TClientDataSet;
|
||||||
|
TBSave: TToolButton;
|
||||||
|
TBClose: TToolButton;
|
||||||
|
ToolButton1: TToolButton;
|
||||||
|
ADOConnection1: TADOConnection;
|
||||||
|
Panel1: TPanel;
|
||||||
|
Label1: TLabel;
|
||||||
|
ConNo: TEdit;
|
||||||
|
GPM_1: TcxGridPopupMenu;
|
||||||
|
ImageList1: TImageList;
|
||||||
|
cxStyleRepository1: TcxStyleRepository;
|
||||||
|
cxStyle1: TcxStyle;
|
||||||
|
cxGrid1: TcxGrid;
|
||||||
|
TV1: TcxGridDBTableView;
|
||||||
|
VC_SCSCode: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn2: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn3: TcxGridDBColumn;
|
||||||
|
v1Column5: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn4: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn5: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn6: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn7: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn8: TcxGridDBColumn;
|
||||||
|
v1Column6: TcxGridDBColumn;
|
||||||
|
v1Column7: TcxGridDBColumn;
|
||||||
|
v1PRTOrderQty: TcxGridDBColumn;
|
||||||
|
v1OrderUnit: TcxGridDBColumn;
|
||||||
|
v1Column2: TcxGridDBColumn;
|
||||||
|
cxGridLevel1: TcxGridLevel;
|
||||||
|
TV1Column1: TcxGridDBColumn;
|
||||||
|
TV1Column2: TcxGridDBColumn;
|
||||||
|
TV1Column3: TcxGridDBColumn;
|
||||||
|
TV1Column4: TcxGridDBColumn;
|
||||||
|
TV1Column5: TcxGridDBColumn;
|
||||||
|
TV1Column6: TcxGridDBColumn;
|
||||||
|
ThreeColorBase: TcxStyleRepository;
|
||||||
|
SHuangSe: TcxStyle;
|
||||||
|
SkyBlue: TcxStyle;
|
||||||
|
Default: TcxStyle;
|
||||||
|
QHuangSe: TcxStyle;
|
||||||
|
Red: TcxStyle;
|
||||||
|
FontBlue: TcxStyle;
|
||||||
|
TextSHuangSe: TcxStyle;
|
||||||
|
FonePurple: TcxStyle;
|
||||||
|
FoneClMaroon: TcxStyle;
|
||||||
|
FoneRed: TcxStyle;
|
||||||
|
RowColor: TcxStyle;
|
||||||
|
handBlack: TcxStyle;
|
||||||
|
cxBlue: TcxStyle;
|
||||||
|
SHuangSeCu: TcxStyle;
|
||||||
|
TV1Column7: TcxGridDBColumn;
|
||||||
|
PM_1: TPopupMenu;
|
||||||
|
N1: TMenuItem;
|
||||||
|
N2: TMenuItem;
|
||||||
|
Label2: TLabel;
|
||||||
|
C_Name: TEdit;
|
||||||
|
Label3: TLabel;
|
||||||
|
BuyName: TEdit;
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure ToolButton1Click(Sender: TObject);
|
||||||
|
procedure FormDestroy(Sender: TObject);
|
||||||
|
procedure TBSaveClick(Sender: TObject);
|
||||||
|
procedure TV1DblClick(Sender: TObject);
|
||||||
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
procedure N1Click(Sender: TObject);
|
||||||
|
procedure N2Click(Sender: TObject);
|
||||||
|
procedure ConNoChange(Sender: TObject);
|
||||||
|
private
|
||||||
|
procedure InitGrid();
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
FCoType, FAuthority, FConNo, FC_Code: string;
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmFinTradeSalesContractSel: TfrmFinTradeSalesContractSel;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_RTFun;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmFinTradeSalesContractSel.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
try
|
||||||
|
with ADOConnection1 do
|
||||||
|
begin
|
||||||
|
Connected := false;
|
||||||
|
ConnectionString := DConString;
|
||||||
|
Connected := true;
|
||||||
|
end;
|
||||||
|
ADOQueryBaseCmd.Connection := ADOConnection1;
|
||||||
|
ADOQueryBaseTemp.Connection := ADOConnection1;
|
||||||
|
except
|
||||||
|
application.MessageBox('网络连接失败！', '提示信息');
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFinTradeSalesContractSel.ConNoChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.Active = False then
|
||||||
|
Exit;
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS(ADOQueryMain, CDS_1);
|
||||||
|
SInitCDSData(ADOQueryMain, CDS_1);
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFinTradeSalesContractSel.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
|
||||||
|
ConNo.SetFocus;
|
||||||
|
|
||||||
|
Action := cahide;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFinTradeSalesContractSel.InitGrid();
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
ADOQueryMain.DisableControls;
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select A.*,B.* from BS_Contract_Main A inner join BS_Contract_Sub B on A.ConMId=B.ConMId ');
|
||||||
|
sql.Add(' where isnull(A.status,''0'')=''9''');
|
||||||
|
sql.Add(' and A.ConType in (''内销'',''外销'') ');
|
||||||
|
if trim(fconNo) <> '' then
|
||||||
|
sql.Add(' and conNo=' + quotedstr(fconNo));
|
||||||
|
if trim(fC_Code) <> '' then
|
||||||
|
sql.Add(' and C_Code=' + quotedstr(fC_Code));
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS(ADOQueryMain, CDS_1);
|
||||||
|
SInitCDSData(ADOQueryMain, CDS_1);
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFinTradeSalesContractSel.N1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SelOKNo(CDS_1, True);
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFinTradeSalesContractSel.N2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SelOKNo(CDS_1, False);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFinTradeSalesContractSel.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
InitGrid();
|
||||||
|
|
||||||
|
ReadCxGrid(Trim(self.Caption), TV1, '自定义数据');
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFinTradeSalesContractSel.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFinTradeSalesContractSel.TBSaveClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WriteCxGrid(Trim(self.Caption), TV1, '自定义数据');
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFinTradeSalesContractSel.ToolButton1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ConNo.SetFocus;
|
||||||
|
ModalResult := 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFinTradeSalesContractSel.TV1DblClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ModalResult := 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFinTradeSalesContractSel.FormDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
frmFinTradeSalesContractSel := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
217
项目代码/RTBasicsV1/A08索赔管理/U_GetDllForm.pas
Normal file
217
项目代码/RTBasicsV1/A08索赔管理/U_GetDllForm.pas
Normal file
|
|
@ -0,0 +1,217 @@
|
||||||
|
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_ClaimList;
|
||||||
|
|
||||||
|
/////////////////////////////////////////////////////////////////
|
||||||
|
// 功能说明:取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 TfrmClaimList.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_Claim.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_Claim) then
|
||||||
|
DataLink_Claim := TDataLink_Claim.Create(Application);
|
||||||
|
try
|
||||||
|
with DataLink_Claim.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_Claim.Free;
|
||||||
|
application := NewDllApp;
|
||||||
|
dxUnitsLoader.Finalize;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
77
项目代码/RTBasicsV1/A08索赔管理/U_iniParam.pas
Normal file
77
项目代码/RTBasicsV1/A08索赔管理/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/A08索赔管理/U_testdll.dfm
Normal file
220
项目代码/RTBasicsV1/A08索赔管理/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/A08索赔管理/U_testdll.pas
Normal file
94
项目代码/RTBasicsV1/A08索赔管理/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('Claim.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/A08索赔管理/Unit1.dfm
Normal file
64
项目代码/RTBasicsV1/A08索赔管理/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/A08索赔管理/Unit1.pas
Normal file
106
项目代码/RTBasicsV1/A08索赔管理/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/A08索赔管理/consvr.ini
Normal file
2
项目代码/RTBasicsV1/A08索赔管理/consvr.ini
Normal file
|
|
@ -0,0 +1,2 @@
|
||||||
|
[SERVER]
|
||||||
|
SERVER=192.168.88.254
|
||||||
38
项目代码/RTBasicsV1/A08索赔管理/testDll.cfg
Normal file
38
项目代码/RTBasicsV1/A08索赔管理/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/A08索赔管理/testDll.dof
Normal file
136
项目代码/RTBasicsV1/A08索赔管理/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/A08索赔管理/testDll.dpr
Normal file
14
项目代码/RTBasicsV1/A08索赔管理/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/A08索赔管理/testDll.dproj
Normal file
184
项目代码/RTBasicsV1/A08索赔管理/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/A08索赔管理/testDll.dproj.local
Normal file
2
项目代码/RTBasicsV1/A08索赔管理/testDll.dproj.local
Normal file
|
|
@ -0,0 +1,2 @@
|
||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<BorlandProject/>
|
||||||
BIN
项目代码/RTBasicsV1/A08索赔管理/testDll.identcache
Normal file
BIN
项目代码/RTBasicsV1/A08索赔管理/testDll.identcache
Normal file
Binary file not shown.
BIN
项目代码/RTBasicsV1/A08索赔管理/testDll.res
Normal file
BIN
项目代码/RTBasicsV1/A08索赔管理/testDll.res
Normal file
Binary file not shown.
38
项目代码/RTBasicsV1/A08索赔管理/testDllDJ.cfg
Normal file
38
项目代码/RTBasicsV1/A08索赔管理/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/A08索赔管理/testDllDJ.dof
Normal file
136
项目代码/RTBasicsV1/A08索赔管理/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/A08索赔管理/testDllDJ.res
Normal file
BIN
项目代码/RTBasicsV1/A08索赔管理/testDllDJ.res
Normal file
Binary file not shown.
BIN
项目代码/RTBasicsV1/A08索赔管理/testDll_Icon.ico
Normal file
BIN
项目代码/RTBasicsV1/A08索赔管理/testDll_Icon.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 766 B |
Binary file not shown.
|
|
@ -2,6 +2,6 @@
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<Transactions/>
|
<Transactions/>
|
||||||
<Default.Personality>
|
<Default.Personality>
|
||||||
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10myXushang\A09财务通用管理\Financial.dproj"/>
|
<Projects ActiveProject="D:\RTFormwork\项目代码\RTBasicsV1\A09财务通用管理\Financial.dproj"/>
|
||||||
</Default.Personality>
|
</Default.Personality>
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|
|
||||||
|
|
@ -246,19 +246,16 @@ inherited frmReceivableList: TfrmReceivableList
|
||||||
Width = 1078
|
Width = 1078
|
||||||
Height = 37
|
Height = 37
|
||||||
Color = clWhite
|
Color = clWhite
|
||||||
|
Font.Charset = ANSI_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = #24494#36719#38597#40657
|
||||||
|
Font.Style = []
|
||||||
ParentBackground = False
|
ParentBackground = False
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
TabOrder = 6
|
TabOrder = 6
|
||||||
ExplicitTop = 6
|
ExplicitTop = 6
|
||||||
inherited BegDate: TcxDateEdit
|
|
||||||
ExplicitHeight = 33
|
|
||||||
end
|
|
||||||
inherited EndDate: TcxDateEdit
|
|
||||||
ExplicitHeight = 33
|
|
||||||
end
|
|
||||||
inherited cbbType: TcxComboBox
|
|
||||||
ExplicitHeight = 33
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object cxGrid1: TcxGrid [2]
|
object cxGrid1: TcxGrid [2]
|
||||||
|
|
|
||||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user