Group_01/D10SZKaiXiYa
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1234

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-08-20 16:06:38 +08:00
parent ea8c56c805
commit bf5567aecf
57 changed files with 9424 additions and 333 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4789
A00通用窗体/U_SalesContractCPSel.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

211
A00通用窗体/U_SalesContractCPSel.pas Normal file
View File

@ -0,0 +1,211 @@
unit U_SalesContractCPSel;
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, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox,
Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations;
type
TfrmSalesContractCPSel = 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;
v1Column5: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
TV1Column3: 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: string;
{ Public declarations }
end;
var
frmSalesContractCPSel: TfrmSalesContractCPSel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmSalesContractCPSel.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 TfrmSalesContractCPSel.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 TfrmSalesContractCPSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ConNo.SetFocus;
Action := cahide;
end;
procedure TfrmSalesContractCPSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select A.*,B.* from CP_Contract_Main A inner join CP_Contract_SUB B on A.ConMId=B.ConMId ');
sql.Add(' and isnull(A.status,''0'')=''9''');
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmSalesContractCPSel.N1Click(Sender: TObject);
begin
SelOKNo(CDS_1, True);
end;
procedure TfrmSalesContractCPSel.N2Click(Sender: TObject);
begin
SelOKNo(CDS_1, False);
end;
procedure TfrmSalesContractCPSel.FormShow(Sender: TObject);
begin
inherited;
InitGrid();
ReadCxGrid(Trim(self.Caption), TV1, '自定义数据');
end;
procedure TfrmSalesContractCPSel.TBCloseClick(Sender: TObject);
begin
inherited;
Close;
end;
procedure TfrmSalesContractCPSel.TBSaveClick(Sender: TObject);
begin
WriteCxGrid(Trim(self.Caption), TV1, '自定义数据');
end;
procedure TfrmSalesContractCPSel.ToolButton1Click(Sender: TObject);
begin
ConNo.SetFocus;
ModalResult := 1;
end;
procedure TfrmSalesContractCPSel.TV1DblClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmSalesContractCPSel.FormDestroy(Sender: TObject);
begin
inherited;
frmSalesContractCPSel := nil;
end;
end.

76
A01基础公司管理/Company.dproj.local
View File

@ -1,44 +1,44 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<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.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.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.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm</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.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.pas</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.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.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.175,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.dfm</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.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.dfm</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.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.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.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.069,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.385,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.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.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.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.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>1899/12/30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.dfm</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.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</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.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.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.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.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.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.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.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.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.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.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.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.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.175,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.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.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</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.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\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.069,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.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.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.385,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.dfm</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.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.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.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.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>

BIN
A01基础公司管理/Company.identcache
View File

Binary file not shown.

19
A01基础公司管理/U_BankList.pas
View File

@ -15,23 +15,8 @@ uses
cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, cxContainer, dxScrollbarAnnotations,
cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI;
type
TfrmBankList = class(TfrmBaseList)

330
A01基础公司管理/U_CompanyImport.dfm Normal file
View File

@ -0,0 +1,330 @@
inherited frmCOMpanyImport: TfrmCOMpanyImport
Left = 189
Top = 138
Caption = #26679#21697#23548#20837
ClientHeight = 562
ClientWidth = 1484
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Position = poMainFormCenter
ExplicitLeft = -175
ExplicitWidth = 1500
ExplicitHeight = 601
PixelsPerInch = 107
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1484
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_Company.cxImageList_bar
Images = DataLink_Company.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 ToolButton5: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36873#25321#25991#20214
ImageIndex = 12
OnClick = ToolButton5Click
end
object ToolButton3: TToolButton
Left = 174
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 14
OnClick = ToolButton3Click
end
object ToolButton2: TToolButton
Left = 245
Top = 0
AutoSize = True
Caption = #20445#23384#25968#25454
ImageIndex = 16
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 348
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 451
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid [1]
Left = 0
Top = 30
Width = 1484
Height = 532
Align = alClient
TabOrder = 1
ExplicitLeft = 71
ExplicitTop = 36
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsSelection.MultiSelect = True
OptionsSelection.CheckBoxVisibility = [cbvDataRow, cbvColumnHeader]
OptionsView.GroupByBox = False
object v2Column2: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'CoCode'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 86
end
object v2Column6: TcxGridDBColumn
Caption = #20840#31216
DataBinding.FieldName = 'CoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 127
end
object v2Column15: TcxGridDBColumn
Caption = #31616#31216
DataBinding.FieldName = 'CoAbbrName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object v2Column10: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
end
object v2Column7: TcxGridDBColumn
Caption = #20844#21496#22320#22336
DataBinding.FieldName = 'CoAddress'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v2Column1: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'CONote'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 163
end
object v2Column3: TcxGridDBColumn
Caption = #22269#23478
DataBinding.FieldName = 'cocountry'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object Tv1Column2: TcxGridDBColumn
Caption = #23458#25143#31561#32423
DataBinding.FieldName = 'CoLevel'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 115
end
object Tv1Column5: TcxGridDBColumn
Caption = #29702#21333
DataBinding.FieldName = 'Tallyer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object Tv1Column7: TcxGridDBColumn
Caption = #19978#32423#21333#20301
DataBinding.FieldName = 'ParentCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 86
end
object Tv1Column6: TcxGridDBColumn
Caption = #23458#25143#31867#22411
DataBinding.FieldName = 'CoBusinessType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 94
end
object Tv1Column8: TcxGridDBColumn
Caption = #31246#21495
DataBinding.FieldName = 'ShuiNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.ExpressionEditing = False
Width = 100
end
object Tv1Column9: TcxGridDBColumn
Caption = #24320#25143#38134#34892
DataBinding.FieldName = 'BankName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.ExpressionEditing = False
Width = 100
end
object Tv1Column10: TcxGridDBColumn
Caption = #34892#21495
DataBinding.FieldName = 'BankNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.ExpressionEditing = False
Width = 100
end
object Tv1Column11: TcxGridDBColumn
Caption = #38134#34892#36134#21495
DataBinding.FieldName = 'BankCode'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.ExpressionEditing = False
Width = 100
end
object Tv1Column13: TcxGridDBColumn
Caption = 'SWIFT CODE'
DataBinding.FieldName = 'SC'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
object Tv1Column12: TcxGridDBColumn
Caption = #38134#34892#22320#22336
DataBinding.FieldName = 'YHDZ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Company.ADOLink
Left = 121
Top = 160
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Company.ADOLink
Left = 249
Top = 161
end
inherited ImageList_new32: TImageList
Left = 528
Top = 144
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Company.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 853
Top = 201
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Company.ADOLink
Parameters = <>
Left = 941
Top = 209
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Company.ADOLink
Parameters = <>
Left = 741
Top = 209
end
object GPM_1: TcxGridPopupMenu
PopupMenus = <>
Left = 648
Top = 328
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 795
Top = 323
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 720
Top = 328
end
object cxStyleRepository1: TcxStyleRepository
Left = 600
Top = 200
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svTextColor]
TextColor = clRed
end
end
object OpenDialog1: TOpenDialog
Left = 226
Top = 290
end
object CDS_LM: TClientDataSet
Aggregates = <>
Params = <>
Left = 560
Top = 328
end
end

289
A01基础公司管理/U_CompanyImport.pas Normal file
View File

@ -0,0 +1,289 @@
unit U_CompanyImport;
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, cxPC, U_BaseHelp, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, ComObj,
U_BaseList, System.ImageList, Vcl.ImgList, dxScrollbarAnnotations,
dxSkinsDefaultPainters, dxSkinsCore;
type
TfrmCOMpanyImport = class(TfrmBaseHelp)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
GPM_1: TcxGridPopupMenu;
DS_1: TDataSource;
CDS_1: TClientDataSet;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
OpenDialog1: TOpenDialog;
ToolButton5: TToolButton;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
CDS_LM: TClientDataSet;
ToolButton3: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v2Column2: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v2Column15: TcxGridDBColumn;
v2Column10: TcxGridDBColumn;
v2Column7: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
public
{ Public declarations }
FCTID: string;
end;
var
frmCOMpanyImport: TfrmCOMpanyImport;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmCOMpanyImport.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add(' select * from Bs_COMPANY where 2= 1 ');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmCOMpanyImport.FormDestroy(Sender: TObject);
begin
inherited;
frmCOMpanyImport := nil;
end;
procedure TfrmCOMpanyImport.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := cafree;
end;
procedure TfrmCOMpanyImport.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmCOMpanyImport.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(self.Caption, Tv1, '样品管理');
with CDS_LM do
begin
FieldDefs.Clear;
FieldDefs.Add('LXH', ftInteger, 0);
FieldDefs.Add('lCode', ftString, 40);
FieldDefs.Add('LName', ftString, 40);
close;
CreateDataSet;
end;
InitGrid();
end;
procedure TfrmCOMpanyImport.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmCOMpanyImport.ToolButton1Click(Sender: TObject);
begin
WriteCxGrid(self.Caption, Tv1, '样品管理');
end;
procedure TfrmCOMpanyImport.ToolButton2Click(Sender: TObject);
begin
try
ADOQueryCmd.Connection.BeginTrans;
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not eof do
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select top 1 * from Bs_Company where CoCode=' + quotedstr(Trim(CDS_1.fieldbyname('CoCode').AsString)));
open;
end;
if not ADOQueryCmd.IsEmpty then
raise Exception.Create(PChar('编号：' + Trim(ADOQueryCmd.fieldbyname('CoCode').AsString) + ' 重复！'));
with ADOQueryCmd do
begin
Append;
FieldByName('Fillid').Value := Trim(Dcode);
FieldByName('Filler').Value := Trim(DName);
FieldByName('COTYPE').Value := Trim('客户');
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Bs_Company', 0);
FieldByName('coid').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Post;
end;
Next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
CDS_1.EnableControls;
except
CDS_1.EnableControls;
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message + '编号' + Trim(CDS_1.fieldbyname('C_Code').AsString)), '提示信息', 0);
end;
end;
procedure TfrmCOMpanyImport.ToolButton3Click(Sender: TObject);
begin
CDS_1.Delete;
end;
procedure TfrmCOMpanyImport.ToolButton5Click(Sender: TObject);
var
excelApp, WorkBook: Variant;
i, j, k, LX, ExcelRowCount: integer;
maxId, FCPID, FCPName, t1, t2, t3, FFID: string;
begin
try
excelApp := CreateOleObject('Excel.Application');
openDialog1.Filter := '*.CSV;*.xls';
if opendialog1.Execute then
begin
WorkBook := excelApp.WorkBooks.Open(OpenDialog1.FileName);
end
else
exit;
excelApp.Visible := false;
ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;
except
application.MessageBox('加载EXCEL错误！', '错误信息', MB_ICONERROR);
exit;
end;
CDS_LM.EmptyDataSet;
for j := 0 to Tv1.ColumnCount - 1 do
begin
with CDS_LM do
begin
Append;
FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName);
FieldByName('LName').Value := trim(Tv1.Columns[j].Caption);
Post;
end;
end;
try
for i := 1 to 50 do
begin
if trim(WorkBook.WorkSheets[1].Cells[1, i].value) = '' then
continue;
if CDS_LM.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[1, i].value), []) then
begin
with CDS_LM do
begin
Edit;
FieldByName('LXH').Value := i;
Post;
end;
end;
end;
except
application.MessageBox('加载数组错误！', '错误信息', MB_ICONERROR);
exit;
end;
try
for i := 2 to ExcelRowCount do
begin
with CDS_1 do
begin
Append;
CDS_LM.First;
while not CDS_LM.Eof do
begin
if CDS_LM.FieldByName('LXH').AsInteger > 0 then
CDS_1.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value;
CDS_LM.Next;
end;
Post;
end;
end;
WorkBook.Close;
excelApp.Quit;
excelApp := Unassigned;
WorkBook := Unassigned;
except
WorkBook.Close;
excelApp.Quit;
excelApp := Unassigned;
WorkBook := Unassigned;
application.MessageBox('写入数据异常，导入中断！', '错误信息', MB_ICONERROR);
exit;
end;
end;
end.

20
A01基础公司管理/U_Customer.dfm
View File

@ -118,10 +118,26 @@ inherited frmCustomer: TfrmCustomer
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
object ToolButton2: TToolButton
Left = 925
Top = 0
AutoSize = True
Caption = #23548#20837
ImageIndex = 17
OnClick = ToolButton2Click
end
object ToolButton4: TToolButton
Left = 996
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 1067
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
@ -277,7 +293,7 @@ inherited frmCustomer: TfrmCustomer
end
object v2Column1: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.FieldName = 'CONote'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter

49
A01基础公司管理/U_Customer.pas
View File

@ -18,22 +18,7 @@ uses
FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async,
FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, cxContainer,
dxScrollbarAnnotations, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmCustomer = class(TfrmBaseList)
@ -104,6 +89,8 @@ type
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
ToolButton2: TToolButton;
ToolButton4: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -124,6 +111,8 @@ type
procedure ToolButton3Click(Sender: TObject);
procedure CoCodePropertiesChange(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
private
fFlileFlag: string;
{ Private declarations }
@ -140,7 +129,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CustomerInput, U_CustInput, U_UserSel,
U_AttachmentUpload;
U_AttachmentUpload, U_CompanyImport;
{$R *.dfm}
procedure TfrmCustomer.SetStatus();
@ -208,7 +197,7 @@ begin
case cxTabControl1.TabIndex of
0:
begin
SqlStr := SqlStr + ' and status=''0'''; //已审核是1，未审核是0
SqlStr := SqlStr + ' and ISNULL(status,''0'')=''0'''; //ÒÑÉóºËÊÇ1£¬Î´ÉóºËÊÇ0
end;
1:
begin
@ -299,6 +288,23 @@ begin
WriteCxGrid(trim(self.caption) + 'Tv2', Tv2, '¿Í»§¹ÜÀí');
end;
procedure TfrmCustomer.ToolButton2Click(Sender: TObject);
begin
try
frmCOMPANYImport := tfrmCOMPANYImport.Create(Application);
with frmCOMPANYImport do
begin
// FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
if ShowModal = 1 then
begin
Self.InitGrid();
end;
end;
finally
frmCOMPANYImport.Free;
end;
end;
procedure TfrmCustomer.ToolButton3Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
@ -322,6 +328,13 @@ begin
end;
procedure TfrmCustomer.ToolButton4Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
TcxGridToExcel(self.Caption, cxGrid1);
end;
procedure TfrmCustomer.CoCodePropertiesChange(Sender: TObject);
begin
TBFind.Click;

41
A01基础公司管理/U_DataLink.pas
View File

@ -4,42 +4,11 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses,
System.ImageList, Vcl.ExtCtrls, SyncObjs,
U_BaseDataLink, cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm,
cxLocalization,
dxCore, dxLayoutLookAndFeels, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, System.ImageList,
Vcl.ExtCtrls, SyncObjs, U_BaseDataLink, cxImageList, cxGraphics, cxEdit,
cxContainer, dxSkinsForm, cxLocalization, dxCore, dxLayoutLookAndFeels,
dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI;
type
TMyThread = class(TThread)

1
A01基础公司管理/U_EmployeeInPut.dfm
View File

@ -40,6 +40,7 @@ object frmYGInPut: TfrmYGInPut
ParentFont = False
ShowCaptions = True
TabOrder = 0
ExplicitTop = -6
object TBSave: TToolButton
Left = 0
Top = 0

23
A01基础公司管理/U_EmployeeInPut.pas
View File

@ -13,22 +13,7 @@ uses
IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, Menus,
ExtDlgs, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmYGInPut = class(TForm)
@ -117,8 +102,7 @@ type
procedure v1SYRNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure btn1Click(Sender: TObject);
procedure v1GangWeiPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v1GangWeiPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
TPInt: Integer;
procedure InitData();
@ -401,8 +385,7 @@ begin
end;
end;
procedure TfrmYGInPut.v1GangWeiPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure TfrmYGInPut.v1GangWeiPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);

2
A01基础公司管理/U_EmployeeList.dfm
View File

@ -408,8 +408,6 @@ inherited frmEmployeeList: TfrmEmployeeList
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 1
ExplicitLeft = 6
ExplicitTop = 37
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

17
A01基础公司管理/U_EmployeeList.pas
View File

@ -14,22 +14,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, dxBarBuiltInMenu,
cxNavigator, U_BaseList, dxDateRanges, cxContainer, cxTextEdit,
dxScrollbarAnnotations, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmEmployeeList = class(TfrmBaseList)

11
A02基础产品管理/U_TatClothInfoInput.dfm
View File

@ -82,7 +82,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
ParentCtl3D = False
ParentFont = False
TabOrder = 1
ExplicitTop = 36
object Label1: TLabel
Left = 10
Top = 26
@ -375,9 +374,15 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object Label31: TLabel
Left = 1145
Top = 25
Width = 32
Width = 39
Height = 21
Caption = #26426#22411
Caption = #26426#22411'*'
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label29: TLabel
Left = 95

5
A02基础产品管理/U_TatClothInfoInput.pas
View File

@ -1182,6 +1182,11 @@ begin
Application.MessageBox('日产量不能为空！', '提示', 0);
Exit;
end;
if LoomType.Text = '' then
begin
Application.MessageBox('机型不能为空！', '提示', 0);
Exit;
end;
if trim(C_Code.Text) = '' then
begin

2
A05基础资料管理/BaseInfo.dpr
View File

@ -32,7 +32,7 @@ uses
FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame},
U_EmployeeSel in '..\A00通用窗体\U_EmployeeSel.pas' {frmEmployeeSel},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_GKInput in 'U_GKInput.pas' {frmGKInput},
U_GKInput in '..\E02ËóÖ¯¾­Öá²Ö¿â\U_GKInput.pas' {frmGKInput},
U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel},
U_GKDRList in 'U_GKDRList.pas' {frmGKDRList},
U_GKDRtInPut in 'U_GKDRtInPut.pas' {frmGKDRtInPut},

2
A05基础资料管理/BaseInfo.dproj
View File

@ -158,7 +158,7 @@
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<DCCReference Include="U_GKInput.pas">
<DCCReference Include="..\E02梭织经轴仓库\U_GKInput.pas">
<Form>frmGKInput</Form>
<FormType>dfm</FormType>
</DCCReference>

50
A05基础资料管理/BaseInfo.dproj.local
View File

@ -1,32 +1,34 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.657,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.471,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRtInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.446,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.144,=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.824,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.467,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.888,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.824,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.144,=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.409,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.116,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.500,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.471,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRtInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.657,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.293,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.500,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.116,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.409,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.446,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>2025-08-20 09:43:17.847,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A05基础资料管理\U_GKInput.pas</Transaction>
<Transaction>2025-08-20 09:43:17.847,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A05基础资料管理\U_GKInput.dfm</Transaction>
</Transactions>
</BorlandProject>

BIN
A05基础资料管理/BaseInfo.identcache
View File

Binary file not shown.

21
A05基础资料管理/U_GKManage.dfm
View File

@ -201,6 +201,27 @@ inherited frmGKManage: TfrmGKManage
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv2Column9: TcxGridDBColumn
Caption = '7'#22825#19979#26426#20010#25968
DataBinding.FieldName = 'D1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 102
end
object Tv2Column11: TcxGridDBColumn
Caption = '15'#22825#19979#26426#20010#25968
DataBinding.FieldName = 'D2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 130
end
object Tv2Column12: TcxGridDBColumn
Caption = '30'#22825#19979#26426#20010#25968
DataBinding.FieldName = 'D3'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 121
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2

16
A05基础资料管理/U_GKManage.pas
View File

@ -52,6 +52,9 @@ type
Tv2Column7: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
Tv2Column8: TcxGridDBColumn;
Tv2Column9: TcxGridDBColumn;
Tv2Column11: TcxGridDBColumn;
Tv2Column12: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -100,8 +103,11 @@ begin
Close;
SQL.Clear;
sql.Add(' select A.* ');
SQL.Add(', d1=(SELECT COUNT(1) FROM V_JT_ZC e where ce<=7 and e.gkbh=a.gkbh) ');
SQL.Add(', d2=(SELECT COUNT(1) FROM V_JT_ZC e where ce>7 and ce<=15 and e.gkbh=a.gkbh) ');
SQL.Add(', d3=(SELECT COUNT(1) FROM V_JT_ZC e where ce>15 and ce<=30 and e.gkbh=a.gkbh) ');
sql.Add(' ,kcqty=( select sum(e.IOQtyFlag*e.qty) from Bs_Product_IO e JOIN BS_GK a on e.p_code=a.GKBH where e.stkname=''ÎïÁÏ'')');
SQL.Add(' from BS_GK A');
SQL.Add(' from BS_GK A ');
// showmessage(Sql.text);
Open;
end;
@ -194,6 +200,14 @@ begin
Close;
sql.Clear;
sql.Add('delete BS_GK where GKID=' + QuotedStr(CDS_HZ.FieldByName('GKID').AsString));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('¸ÖóØɾ³ý')));
sql.Add(',' + quotedstr(trim('GKID£º' + trim(CDS_HZ.FieldByName('GKID').AsString) + ';GKno:' + trim(CDS_HZ.FieldByName('GKBH').AsString))));
sql.Add(',' + quotedstr(trim('³É¹¦')));
sql.Add(')');
ExecSQL;
end;

3
B01基础合同管理/Contract.dpr
View File

@ -38,7 +38,8 @@ uses
FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_BankSel in '..\A00通用窗体\U_BankSel.pas' {frmBankSel},
U_finishSalesConInput in 'U_finishSalesConInput.pas' {frmfinishSalesConInput};
U_finishSalesConInput in 'U_finishSalesConInput.pas' {frmfinishSalesConInput},
U_SalesContractCPSel in '..\A00通用窗体\U_SalesContractCPSel.pas' {frmSalesContractCPSel};
{$R *.res}

4
B01基础合同管理/Contract.dproj
View File

@ -186,6 +186,10 @@
<Form>frmfinishSalesConInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_SalesContractCPSel.pas">
<Form>frmSalesContractCPSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

163
B01基础合同管理/Contract.dproj.local
View File

@ -1,86 +1,87 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.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.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.575,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.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.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.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj</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.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.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.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.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.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.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.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>2025/08/12 14:52:54.247,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\U_finishSalesConInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.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.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.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.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.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.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj</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.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.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.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\U_finishSalesConInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.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.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.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.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm</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.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>2025-08-18 11:22:33.284,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractCPSel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>
@ -103,6 +104,8 @@
<File Path="..\A00通用窗体\U_PictureUpload.dfm"/>
<File Path="..\A00通用窗体\U_BankSel.pas"/>
<File Path="..\A00通用窗体\U_BankSel.dfm"/>
<File Path="..\A00通用窗体\U_SalesContractCPSel.pas"/>
<File Path="..\A00通用窗体\U_SalesContractCPSel.dfm"/>
<File Path="..\A00通用组件"/>
<File Path="..\A00通用组件\FrameDateSel.pas"/>
<File Path="..\A00通用组件\FrameDateSel.dfm"/>

BIN
B01基础合同管理/Contract.identcache
View File

Binary file not shown.

14
B01基础合同管理/U_GetDllForm.pas
View File

@ -16,7 +16,7 @@ implementation
uses
U_DataLink, U_iniParam, U_SalesContractList, U_PurchaseContractList,
U_SalesContractList_XT,U_finishSalesContractList;
U_SalesContractList_XT, U_finishSalesContractList, U_TatSCTLLIST;
/////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 //
@ -123,7 +123,17 @@ begin
/////////////////////
//调用子模块窗口
case FormID of
1: //生产投料计算表
begin
with tfrmSCTLLIST.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;
111: //销售合同管理
begin
with TfrmSalesContractList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //

324
B01基础合同管理/U_HTImport.dfm Normal file
View File

@ -0,0 +1,324 @@
inherited frmHTImport: TfrmHTImport
Left = 189
Top = 138
Caption = #26679#21697#23548#20837
ClientHeight = 562
ClientWidth = 1484
Font.Charset = ANSI_CHARSET
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Position = poMainFormCenter
ExplicitWidth = 1500
ExplicitHeight = 601
PixelsPerInch = 107
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1484
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
DisabledImages = DataLink_Contract.cxImageList_bar
Images = DataLink_Contract.cxImageList_bar
List = True
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object ToolButton5: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36873#25321#25991#20214
ImageIndex = 12
OnClick = ToolButton5Click
end
object ToolButton3: TToolButton
Left = 174
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 14
OnClick = ToolButton3Click
end
object ToolButton2: TToolButton
Left = 245
Top = 0
AutoSize = True
Caption = #20445#23384#25968#25454
ImageIndex = 16
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 348
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 451
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object cxGrid2: TcxGrid [1]
Left = 0
Top = 30
Width = 1484
Height = 532
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 1
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
Column = v1PRTOrderQty
end
item
Format = '0'
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTOrderQty
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object TV1Column1: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'Conno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV1Column2: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'BuyName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV1Column3: TcxGridDBColumn
Caption = #19979#21333#26085#26399
DataBinding.FieldName = 'ConDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV1Column4: TcxGridDBColumn
Caption = #20132#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1XHNo: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'SerialNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
SortIndex = 0
SortOrder = soAscending
Width = 71
end
object VC_SCSCode: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 86
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 101
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column5: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object TV1density: TcxGridDBColumn
Caption = #23494#24230
DataBinding.FieldName = 'density'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
object v1Column6: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object TV1C_WidthUnit: TcxGridDBColumn
Caption = #38376#24133#21333#20301
DataBinding.FieldName = 'C_WidthUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'ConQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'ConUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 58
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Contract.ADOLink
Left = 121
Top = 160
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Contract.ADOLink
Left = 249
Top = 161
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Contract.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 853
Top = 201
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Contract.ADOLink
Parameters = <>
Left = 941
Top = 209
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Contract.ADOLink
Parameters = <>
Left = 741
Top = 209
end
object GPM_1: TcxGridPopupMenu
PopupMenus = <>
Left = 648
Top = 328
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 795
Top = 323
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 720
Top = 328
end
object cxStyleRepository1: TcxStyleRepository
Left = 600
Top = 200
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svTextColor]
TextColor = clRed
end
end
object OpenDialog1: TOpenDialog
Left = 226
Top = 290
end
object CDS_LM: TClientDataSet
Aggregates = <>
Params = <>
Left = 560
Top = 328
end
end

323
B01基础合同管理/U_HTImport.pas Normal file
View File

@ -0,0 +1,323 @@
unit U_HTImport;
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, cxPC, U_BaseHelp, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, ComObj,
U_BaseList, System.ImageList, Vcl.ImgList, dxScrollbarAnnotations, dxSkinsCore,
dxSkinsDefaultPainters, dxSkinWXI;
type
TfrmHTImport = class(TfrmBaseHelp)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
GPM_1: TcxGridPopupMenu;
DS_1: TDataSource;
CDS_1: TClientDataSet;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
OpenDialog1: TOpenDialog;
ToolButton5: TToolButton;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
CDS_LM: TClientDataSet;
ToolButton3: TToolButton;
cxGrid2: TcxGrid;
TV1: TcxGridDBTableView;
v1XHNo: TcxGridDBColumn;
VC_SCSCode: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
TV1density: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
TV1C_WidthUnit: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
TV1Column4: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
public
{ Public declarations }
FCTID: string;
end;
var
frmHTImport: TfrmHTImport;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmHTImport.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add(' select * from CP_Contract_dr A where 2= 1 ');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmHTImport.FormDestroy(Sender: TObject);
begin
inherited;
frmHTImport := nil;
end;
procedure TfrmHTImport.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := cafree;
end;
procedure TfrmHTImport.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmHTImport.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(self.Caption, Tv1, '样品管理');
with CDS_LM do
begin
FieldDefs.Clear;
FieldDefs.Add('LXH', ftInteger, 0);
FieldDefs.Add('lCode', ftString, 40);
FieldDefs.Add('LName', ftString, 40);
close;
CreateDataSet;
end;
InitGrid();
end;
procedure TfrmHTImport.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmHTImport.ToolButton1Click(Sender: TObject);
begin
WriteCxGrid(self.Caption, Tv1, '样品管理');
end;
procedure TfrmHTImport.ToolButton2Click(Sender: TObject);
var
MaxBCIID, MaxBCPID, maxId2: string;
begin
if GetLSNo(ADOQueryTemp, MaxBCPID, 'Z', 'CP_Contract_dr', 4, 1) = False then
begin
// ADOQueryTemp.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！', '提示', 0);
Exit;
end;
try
ADOQueryCmd.Connection.BeginTrans;
// ADOQueryTemp.Connection.BeginTrans;
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not eof do
begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add(' select * from CP_Contract_dr A where 2= 1 ');
Open;
end;
if GetLSNo(ADOQueryTemp, MaxBCIID, 'ZD', 'CP_Contract_dr', 4, 1) = False then
begin
// ADOQueryTemp.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！', '提示', 0);
Exit;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('Fillid').Value := Trim(Dcode);
FieldByName('Filler').Value := Trim(DName);
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'CP_Contract_dr', 0);
FieldByName('consid').Value := MaxBCIID;
FieldByName('ZID').Value := MaxBCPID;
FieldByName('CONMID').Value := CDS_1.FieldByName('CONNO').AsString;
Post;
end;
Next;
end;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add(' exec P_BS_Contract_DR @Filtration=' + quotedstr(MaxBCPID));
ExecSQL;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
CDS_1.EnableControls;
application.MessageBox('保存成功！', '提示信息', 0);
except
CDS_1.EnableControls;
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message + '合同号' + Trim(CDS_1.fieldbyname('CONNO').AsString)), '提示信息', 0);
end;
end;
procedure TfrmHTImport.ToolButton3Click(Sender: TObject);
begin
CDS_1.Delete;
end;
procedure TfrmHTImport.ToolButton5Click(Sender: TObject);
var
excelApp, WorkBook: Variant;
i, j, k, LX, ExcelRowCount: integer;
maxId, FCPID, FCPName, t1, t2, t3, FFID: string;
begin
try
excelApp := CreateOleObject('Excel.Application');
openDialog1.Filter := '*.CSV;*.xls';
if opendialog1.Execute then
begin
WorkBook := excelApp.WorkBooks.Open(OpenDialog1.FileName);
end
else
exit;
excelApp.Visible := false;
ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;
except
application.MessageBox('加载EXCEL错误！', '错误信息', MB_ICONERROR);
exit;
end;
CDS_LM.EmptyDataSet;
for j := 0 to Tv1.ColumnCount - 1 do
begin
with CDS_LM do
begin
Append;
FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName);
FieldByName('LName').Value := trim(Tv1.Columns[j].Caption);
Post;
end;
end;
try
for i := 1 to 50 do
begin
if trim(WorkBook.WorkSheets[1].Cells[1, i].value) = '' then
continue;
if CDS_LM.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[1, i].value), []) then
begin
with CDS_LM do
begin
Edit;
FieldByName('LXH').Value := i;
Post;
end;
end;
end;
except
application.MessageBox('加载数组错误！', '错误信息', MB_ICONERROR);
exit;
end;
try
for i := 2 to ExcelRowCount do
begin
with CDS_1 do
begin
Append;
CDS_LM.First;
while not CDS_LM.Eof do
begin
if CDS_LM.FieldByName('LXH').AsInteger > 0 then
CDS_1.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value;
CDS_LM.Next;
end;
Post;
end;
end;
with CDS_1 do
begin
CDS_1.First;
while not CDS_1.Eof do
begin
if CDS_1.FieldByName('conno').AsString = '' then
begin
CDS_1.Delete;
end
else
begin
CDS_1.Next;
end;
end;
end;
WorkBook.Close;
excelApp.Quit;
excelApp := Unassigned;
WorkBook := Unassigned;
except
WorkBook.Close;
excelApp.Quit;
excelApp := Unassigned;
WorkBook := Unassigned;
application.MessageBox('写入数据异常，导入中断！', '错误信息', MB_ICONERROR);
exit;
end;
end;
end.

41
B01基础合同管理/U_SalesConInPut.dfm
View File

@ -768,16 +768,24 @@ inherited frmSalesConInPut: TfrmSalesConInPut
ImageIndex = 12
OnClick = ToolButton4Click
end
object ToolButton1: TToolButton
object ToolButton5: TToolButton
Left = 87
Top = 0
AutoSize = True
Caption = #38754#26009#21512#21516
ImageIndex = 12
OnClick = ToolButton5Click
end
object ToolButton1: TToolButton
Left = 174
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 150
Left = 237
Top = 0
AutoSize = True
Caption = #21024#34892
@ -794,6 +802,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
BorderStyle = cxcbsNone
PopupMenu = pm_sub
TabOrder = 3
ExplicitTop = 445
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -1015,6 +1024,34 @@ inherited frmSalesConInPut: TfrmSalesConInPut
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv1Column3: TcxGridDBColumn
Caption = #25104#21697#32534#21495
DataBinding.FieldName = 'CP_CODE'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column10: TcxGridDBColumn
Caption = #25104#21697#21517#31216
DataBinding.FieldName = 'CP_NAME'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column11: TcxGridDBColumn
Caption = #25104#21697#25968#37327
DataBinding.FieldName = 'CP_QTY'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column12: TcxGridDBColumn
Caption = #25237#22383#31995#25968
DataBinding.FieldName = 'CP_TPXS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

88
B01基础合同管理/U_SalesConInPut.pas
View File

@ -135,6 +135,11 @@ type
YHDZ: TcxTextEdit;
Label32: TLabel;
YHDM: TcxTextEdit;
Tv1Column3: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
ToolButton5: TToolButton;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -164,6 +169,7 @@ type
procedure ToolButton4Click(Sender: TObject);
procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure BankNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton5Click(Sender: TObject);
private
FLeft, FTop: Integer;
fuserName, Fstatus: string;
@ -192,7 +198,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_ClothInfoSel,
U_PictureUpload11, U_TatClothInfoSel, U_BankSel;
U_PictureUpload11, U_TatClothInfoSel, U_BankSel, U_SalesContractCPSel;
{$R *.dfm}
@ -319,9 +325,6 @@ begin
// if Order_Sub.Locate('C_Color', '', []) then
// raise Exception.Create('颜色不能为空！');
// if Order_Sub.Locate('C_MF', null, []) then
// raise Exception.Create('门幅不能为空！');
// if Order_Sub.Locate('C_MF', '', []) then
@ -685,14 +688,14 @@ begin
begin
FieldByName('SellNo').Value := Trim(Sellname.Properties.LookupItems[0]);
end;
if Trim(MiddleName.Properties.LookupItems.text) = '' then
begin
FieldByName('MiddleNo').Value := Trim(MiddleName.Properties.LookupItems[0]);
end
else
begin
FieldByName('MiddleNo').Value := Trim(MiddleName.Properties.LookupItems[0]);
end;
// if Trim(MiddleName.Properties.LookupItems.text) = '' then
// begin
// FieldByName('MiddleNo').Value := Trim(MiddleName.Properties.LookupItems[0]);
// end
// else
// begin
// FieldByName('MiddleNo').Value := Trim(MiddleName.Properties.LookupItems[0]);
// end;
Post;
end;
with ADOCmd do
@ -731,6 +734,8 @@ begin
RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'BS_Contract_Sub', 0);
FieldByName('ConMId').Value := Trim(FConMId);
FieldByName('ConSId').Value := Trim(maxno);
FieldByName('FROMCPSID').Value := Trim(Order_Sub.FieldByName('FROMCPSID').AsString);
FieldByName('FROMCPMID').Value := Trim(Order_Sub.FieldByName('FROMCPMID').AsString);
Post;
end;
@ -1028,6 +1033,65 @@ begin
SetXH();
end;
procedure TfrmSalesConInPut.ToolButton5Click(Sender: TObject);
var
i: Integer;
maxno: string;
MCYNo: string;
begin
try
frmSalesContractCPSel := TfrmSalesContractCPSel.Create(Application);
with frmSalesContractCPSel do
begin
if ShowModal = 1 then
begin
with CDS_1 do
begin
DisableControls;
First;
while not eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if GetLSNo(ADOCmd, maxno, 'CS', 'BS_Contract_Sub', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('È¡×ÓÁ÷Ë®ºÅʧ°Ü£¡', 'Ìáʾ', 0);
Exit;
end;
with Self.Order_Sub do
begin
append;
Order_Sub.fieldbyname('CP_Code').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_Code').asstring;
Order_Sub.fieldbyname('CP_Name').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_Name').asstring;
Order_Sub.fieldbyname('FROMCPSID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CONSID').asstring;
Order_Sub.fieldbyname('FROMCPMID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CONMID').asstring;
FieldByName('SSEL').Value := FALSE;
FieldByName('SerialNo').Value := i;
FieldByName('ConSId').Value := maxno;
FieldByName('CP_QTY').Value := frmSalesContractCPSel.CDS_1.fieldbyname('ConQty').ASFLOAT;
end;
end;
Next;
i := i + 1;
end;
EnableControls;
end;
end;
end;
finally
frmSalesContractCPSel.Free;
end;
tv1.Controller.EditingController.ShowEdit();
SetXH();
end;
procedure TfrmSalesConInPut.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try

2
B01基础合同管理/U_SalesContractList.dfm
View File

@ -606,6 +606,8 @@ inherited frmSalesContractList: TfrmSalesContractList
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 0
ExplicitLeft = -5
ExplicitTop = -2
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

352
B01基础合同管理/U_TatSCTLLIST.dfm Normal file
View File

@ -0,0 +1,352 @@
inherited frmSCTLLIST: TfrmSCTLLIST
Left = 154
Top = 76
Caption = #29983#20135#25237#26009#35745#31639#34920
ClientHeight = 637
ClientWidth = 1541
Font.Height = -16
Position = poScreenCenter
ExplicitWidth = 1557
ExplicitHeight = 676
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1541
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_Contract.cxImageList_bar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_Contract.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 2
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object ToolButton5: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
OnClick = ToolButton5Click
end
object ToolButton2: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 30
Width = 1541
Height = 91
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 3
ExplicitTop = 24
object Label9: TLabel
Left = 36
Top = 6
Width = 64
Height = 21
Caption = #19979#21333#26085#26399
Color = clWhite
ParentColor = False
end
object Label1: TLabel
Left = 252
Top = 11
Width = 48
Height = 21
Caption = #21512#21516#21495
Color = clWhite
ParentColor = False
end
object Label4: TLabel
Left = 252
Top = 50
Width = 64
Height = 21
Caption = #22383#24067#32534#21495
Color = clWhite
ParentColor = False
end
object EndDate: TcxDateEdit
Left = 111
Top = 44
TabOrder = 0
Width = 121
end
object BegDate: TcxDateEdit
Left = 111
Top = 5
TabOrder = 1
Width = 121
end
object ConNo: TcxTextEdit
Tag = 2
Left = 321
Top = 5
Properties.OnChange = ConNoPropertiesChange
TabOrder = 2
Width = 121
end
object C_CODE: TcxTextEdit
Tag = 2
Left = 321
Top = 44
Properties.OnChange = ConNoPropertiesChange
TabOrder = 3
Width = 121
end
end
inherited loadProcess: TPanel
Left = 671
Top = 285
ExplicitLeft = 671
ExplicitTop = 285
end
inherited cxProgressBar2: TcxProgressBar
Left = 663
Top = 321
ExplicitLeft = 663
ExplicitTop = 321
ExplicitHeight = 29
end
object cxGrid1: TcxGrid [4]
Left = 0
Top = 121
Width = 1541
Height = 516
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 4
ExplicitTop = 127
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
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
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skCount
end
item
Kind = skCount
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object v3Column8: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 52
end
object Tv1Column1: TcxGridDBColumn
Caption = #38754#26009#21512#21516#21495
DataBinding.FieldName = 'MlConno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 135
end
object v3Column1: TcxGridDBColumn
Caption = #38754#26009#25968#37327
DataBinding.FieldName = 'mlqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 104
end
object Tv1Column9: TcxGridDBColumn
Caption = #25237#22383#31995#25968
DataBinding.FieldName = 'tpxs'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 104
end
object v3Column6: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'CONNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 97
end
object Tv1Column10: TcxGridDBColumn
Caption = #22383#24067#32534#21495
DataBinding.FieldName = 'C_CODE'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object v3Column16: TcxGridDBColumn
Caption = #25237#22383#25968#37327
DataBinding.FieldName = 'Conqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
end
object Tv1Column5: TcxGridDBColumn
Caption = #25237#32433#31995#25968
DataBinding.FieldName = 'tsxs'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object Tv1Column4: TcxGridDBColumn
Caption = #32463#32433#24635#38271#24230
DataBinding.FieldName = 'zsqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Contract.ADOLink
Left = 81
Top = 272
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Contract.ADOLink
Left = 81
Top = 209
end
object GPM_1: TcxGridPopupMenu
PopupMenus = <>
Left = 296
Top = 368
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Contract.ADOLink
Parameters = <>
Left = 720
Top = 208
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Contract.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 560
Top = 200
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Contract.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 352
Top = 192
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_Contract.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 472
Top = 200
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 520
Top = 364
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 472
Top = 364
end
object PopupMenu1: TPopupMenu
Left = 368
Top = 272
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 472
Top = 444
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 520
Top = 444
end
object GPM_2: TcxGridPopupMenu
PopupMenus = <>
Left = 296
Top = 448
end
end

308
B01基础合同管理/U_TatSCTLLIST.pas Normal file
View File

@ -0,0 +1,308 @@
unit U_TatSCTLLIST;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox,
BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, U_BaseList, Vcl.Menus, dxScrollbarAnnotations,
cxContainer, dxCore, cxDateUtils, cxMaskEdit, cxDropDownEdit, dxSkinsCore,
dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI;
type
TfrmSCTLLIST = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
GPM_1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryPrint: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
ToolButton2: TToolButton;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
ToolButton5: TToolButton;
CDS_2: TClientDataSet;
DS_2: TDataSource;
GPM_2: TcxGridPopupMenu;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v3Column8: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
v3Column1: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
v3Column6: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
v3Column16: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
EndDate: TcxDateEdit;
BegDate: TcxDateEdit;
Label9: TLabel;
Label1: TLabel;
ConNo: TcxTextEdit;
C_CODE: TcxTextEdit;
Label4: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ConNoPropertiesChange(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
FInt, PFInt: Integer;
FFMainID, BPFlag: string;
procedure InitGrid();
{ Private declarations }
public
canshu1: string;
{ Public declarations }
end;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint;
{$R *.dfm}
procedure TfrmSCTLLIST.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
WriteCxGrid('DCG13', Tv1, '坯布生产');
end;
procedure TfrmSCTLLIST.FormCreate(Sender: TObject);
begin
inherited;
EndDate.Date := SGetServerDate(ADOQueryTemp);
BegDate.Date := EndDate.Date - 90;
end;
procedure TfrmSCTLLIST.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmSCTLLIST.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('SELECT * FROM V_CON_TL ');
SQL.Add('WHERE ConDate>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date)));
SQL.Add('and ConDate<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1)));
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmSCTLLIST.N1Click(Sender: TObject);
begin
SelOKNo(cds_1, true)
end;
procedure TfrmSCTLLIST.N2Click(Sender: TObject);
begin
SelOKNo(cds_1, false);
end;
procedure TfrmSCTLLIST.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmSCTLLIST.ToolButton1Click(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
Tv1.OnFocusedRecordChanged := nil;
if CDS_1.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := SelcdsKey(CDS_1, ['PCID'])[0];
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FPreviewPrint := False;
FLMType := 'TatPlanCard';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
Self.InitGrid();
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update Tat_Plan_Card ');
sql.Add('set PRTer=' + quotedstr(DName));
sql.Add(', PRTCount=PRTCount+1');
sql.Add(', PRTDate=getdate()');
sql.Add('where EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(WSql) + ','','') X where Tat_Plan_Card.PCID=X.RTValue ) ');
ExecSQL;
end;
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmSCTLLIST.ToolButton2Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + '1', Tv1, '合同');
end;
procedure TfrmSCTLLIST.ToolButton3Click(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
Tv1.OnFocusedRecordChanged := nil;
if CDS_1.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := '';
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + (Trim(CDS_1.fieldbyname('PCID').AsString));
end
else
begin
WSql := (Trim(CDS_1.fieldbyname('PCID').AsString));
end;
end;
Next;
end;
end;
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('exec P_Tat_Card_Del ');
Sql.Add('@PCIDS=' + quotedstr(Trim(WSql)));
Sql.Add(',@DCode=' + Quotedstr(DCode));
Sql.Add(',@DName=' + Quotedstr(DName));
Open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
begin
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
end;
ADOQueryCmd.Connection.CommitTrans;
InitGrid();
application.MessageBox('删除成功！', '提示信息');
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmSCTLLIST.ToolButton5Click(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 TfrmSCTLLIST.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 TfrmSCTLLIST.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption) + '1', Tv1, '坯布生产');
InitGrid();
end;
procedure TfrmSCTLLIST.ConNoPropertiesChange(Sender: TObject);
begin
ToolButton5.Click;
end;
procedure TfrmSCTLLIST.cxPageControl1Change(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmSCTLLIST.cxTabControl1Change(Sender: TObject);
begin
InitGrid();
end;
end.

22
B01基础合同管理/U_finishSalesConInput.dfm
View File

@ -295,6 +295,7 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
BorderStyle = cxcbsNone
PopupMenu = pm_sub
TabOrder = 3
ExplicitTop = 165
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -333,7 +334,6 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.ColumnAutoWidth = True
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv1Column7: TcxGridDBColumn
@ -355,7 +355,7 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
HeaderAlignmentHorz = taCenter
SortIndex = 0
SortOrder = soAscending
Width = 55
Width = 143
end
object VC_SCSCode: TcxGridDBColumn
Caption = #20135#21697#32534#21495
@ -369,49 +369,49 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
end>
Properties.ReadOnly = False
HeaderAlignmentHorz = taCenter
Width = 79
Width = 130
end
object v1Column4: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 89
Width = 159
end
object v1Column1: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
Width = 85
end
object v1Column5: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
Width = 132
end
object Tv1density: TcxGridDBColumn
Caption = #23494#24230
DataBinding.FieldName = 'density'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
Width = 125
end
object v1Column6: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
Width = 114
end
object Tv1C_WidthUnit: TcxGridDBColumn
Caption = #38376#24133#21333#20301
DataBinding.FieldName = 'C_WidthUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 89
Width = 195
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
@ -419,7 +419,7 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 70
Width = 167
end
object v1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
@ -432,7 +432,7 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Width = 70
Width = 151
end
end
object cxGrid1Level1: TcxGridLevel

31
B01基础合同管理/U_finishSalesContractList.dfm
View File

@ -33,6 +33,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
ParentFont = False
ShowCaptions = True
TabOrder = 4
ExplicitTop = -1
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -169,10 +170,18 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
ImageIndex = 16
OnClick = ToolButton7Click
end
object TBClose: TToolButton
object ToolButton3: TToolButton
Left = 1263
Top = 0
AutoSize = True
Caption = #23548#20837
ImageIndex = 17
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 1326
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
@ -206,8 +215,6 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.ColumnAutoWidth = True
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
object v1Column4: TcxGridDBColumn
@ -218,7 +225,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 41
Width = 163
end
object v1ConNo: TcxGridDBColumn
Caption = #21512#21516#21495
@ -227,7 +234,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 82
Width = 179
end
object v1CustomerNoName: TcxGridDBColumn
Caption = #23458#25143
@ -236,7 +243,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 99
Width = 81
end
object v1OrdDate: TcxGridDBColumn
Caption = #19979#21333#26085#26399
@ -247,14 +254,14 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 86
Width = 104
end
object Tv1DlyDate: TcxGridDBColumn
Caption = #20132#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
Width = 115
end
object Tv1Status: TcxGridDBColumn
Tag = 2
@ -391,8 +398,8 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
#20840#37096)
LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change
ExplicitLeft = -288
ExplicitTop = 137
ExplicitLeft = 72
ExplicitTop = 107
ClientRectBottom = 34
ClientRectLeft = 2
ClientRectRight = 1538
@ -422,7 +429,8 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 0
ExplicitWidth = 1283
ExplicitLeft = 0
ExplicitTop = 6
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -462,7 +470,6 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.ColumnAutoWidth = True
OptionsView.Footer = True
OptionsView.GroupByBox = False
object v1XHNo: TcxGridDBColumn

27
B01基础合同管理/U_finishSalesContractList.pas
View File

@ -96,6 +96,7 @@ type
TV2C_WidthUnit: TcxGridDBColumn;
TV2density: TcxGridDBColumn;
Tv1Status: TcxGridDBColumn;
ToolButton3: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -133,6 +134,7 @@ type
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure ToolButton3Click(Sender: TObject);
private
fFlileFlag: string;
procedure InitGrid();
@ -151,7 +153,7 @@ implementation
uses
U_DataLink, U_SalesConInPut, U_RTFun, U_AttachmentUpload, U_LabelPrint,
U_finishSalesConInput;
U_finishSalesConInput, U_HTImport;
{$R *.dfm}
@ -578,6 +580,23 @@ begin
end;
end;
procedure TfrmfinishSalesContractList.ToolButton3Click(Sender: TObject);
begin
try
frmhtImport := TFrmhtImport.Create(Application);
with frmhtImport do
begin
if ShowModal = 1 then
begin
Self.InitGrid();
end;
end;
finally
frmhtImport.Free;
end;
end;
procedure TfrmfinishSalesContractList.btnWCClick(Sender: TObject);
var
MConMIDS: string;
@ -825,7 +844,7 @@ begin
begin
Close;
sql.Clear;
sql.Add(' exec P_BS_Contract_SetStatus ');
sql.Add(' exec P_CP_Contract_SetStatus ');
sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS));
sql.Add(',@Operation=''È¡Ïû'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
@ -894,12 +913,12 @@ begin
sql.Add(',' + quotedstr(trim('³É¹¦')));
sql.Add(')');
sql.Add(' exec P_BS_Contract_SetStatus ');
sql.Add(' exec P_CP_Contract_SetStatus ');
sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS));
sql.Add(',@Operation=''³·ÏúÈ¡Ïû'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
ShowMessage(sql.Text);
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then

BIN
B01基础合同管理/testDll.res
View File

Binary file not shown.

14
E01梭织生产计划/TatPlan.dproj.local
View File

@ -3,20 +3,20 @@
<Transactions>
<Transaction>1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.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.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.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.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.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.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>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</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.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
@ -36,15 +36,15 @@
<Transaction>1899-12-30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.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.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.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.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.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.354,=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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
@ -69,9 +69,9 @@
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.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.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>2025-08-11 11:19:55.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>

BIN
E01梭织生产计划/TatPlan.identcache
View File

Binary file not shown.

25
E01梭织生产计划/U_GetDllForm.pas
View File

@ -16,7 +16,8 @@ implementation
uses
U_DataLink, U_iniParam, U_TatPlanList, U_TatPlanCard, U_TatPlanMachList,
U_TatPlanCard1, U_TatPlanCardWJY, U_JHDTJ, U_TatGYList;
U_TatPlanCard1, U_TatPlanCardWJY, U_JHDTJ, U_TatGYList, U_TatPlanJTSCLIST,
U_TatPlanPSYLLIST;
@ -162,6 +163,28 @@ begin
mnewHandle := Handle;
end;
end;
122: //机台生产情况表
begin
with TfrmTatPlanJTSCLIST.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;
123: //排纱用量表
begin
with TfrmTatPlanPSYLLIST.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;
125: //轴卡布票管理
begin

447
E01梭织生产计划/U_TatPlanJTSCLIST.dfm Normal file
View File

@ -0,0 +1,447 @@
inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Left = 154
Top = 76
Caption = #26426#21488#29983#20135#24773#20917#34920
ClientHeight = 637
ClientWidth = 1541
Font.Height = -16
Position = poScreenCenter
ExplicitWidth = 1557
ExplicitHeight = 676
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1541
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_TatPlan.cxImageList_bar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TatPlan.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 2
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object ToolButton5: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
OnClick = ToolButton5Click
end
object ToolButton2: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 30
Width = 1541
Height = 91
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 3
ExplicitTop = 36
object Label5: TLabel
Left = 20
Top = 21
Width = 64
Height = 21
Caption = #26426#21488#22411#21495
end
object MCType: TcxTextEdit
Tag = 2
Left = 90
Top = 17
Properties.OnChange = ConNoPropertiesChange
TabOrder = 0
Width = 150
end
end
inherited loadProcess: TPanel
Left = 671
Top = 285
ExplicitLeft = 671
ExplicitTop = 285
end
inherited cxProgressBar2: TcxProgressBar
Left = 663
Top = 321
ExplicitLeft = 663
ExplicitTop = 321
ExplicitHeight = 29
end
object cxPageControl1: TcxPageControl [4]
Left = 0
Top = 121
Width = 1541
Height = 516
Align = alClient
TabOrder = 4
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
OnChange = cxPageControl1Change
ExplicitLeft = 167
ExplicitTop = 157
ExplicitWidth = 289
ExplicitHeight = 193
ClientRectBottom = 515
ClientRectLeft = 1
ClientRectRight = 1540
ClientRectTop = 29
object cxTabSheet1: TcxTabSheet
Caption = ' '#26126#32454' '
ImageIndex = 0
ExplicitLeft = 2
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1539
Height = 486
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
ExplicitLeft = -1
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
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
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skCount
end
item
Kind = skCount
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object v3Column8: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 52
end
object Tv1Column1: TcxGridDBColumn
Caption = #26426#21488#21495
DataBinding.FieldName = 'mcno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object v3Column1: TcxGridDBColumn
Caption = #26426#21488#22411#21495
DataBinding.FieldName = 'MCType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 80
end
object Tv1Column9: TcxGridDBColumn
Caption = #26426#21488#29366#24577
DataBinding.FieldName = 'zhuangtai'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 104
end
object v3Column6: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 97
end
object Tv1Column10: TcxGridDBColumn
Caption = #26085#20135#37327
DataBinding.FieldName = 'dayqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object v3Column16: TcxGridDBColumn
Caption = #32463#36724#31859#25968
DataBinding.FieldName = 'JZMS2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
end
object Tv1Column5: TcxGridDBColumn
Caption = #19978#36724#26102#38388
DataBinding.FieldName = 'SZSJ2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object v3Column2: TcxGridDBColumn
Caption = #39044#35745#23436#25104#26102#38388
DataBinding.FieldName = 'yddate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 124
end
object Tv1Column4: TcxGridDBColumn
Caption = #39044#35745#21097#20313#22825#25968
DataBinding.FieldName = 'ce'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv1
end
end
end
object cxTabSheet2: TcxTabSheet
Caption = ' '#27719#24635' '
ImageIndex = 1
object cxGrid2: TcxGrid
Left = 0
Top = 0
Width = 1539
Height = 486
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
ExplicitLeft = -1
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skCount
end
item
Kind = skCount
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object cxGridDBColumn3: TcxGridDBColumn
Caption = #26426#21488#22411#21495
DataBinding.FieldName = 'MCType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 80
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #24403#21069#31354#38386#20010#25968
DataBinding.FieldName = 'hxgs'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 125
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #26032#23433#25490#26426#21488#20010#25968
DataBinding.FieldName = 'APGS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 119
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = '7'#22825#31354#38386#20010#25968
DataBinding.FieldName = 'D1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = '15'#22825#31354#38386#20010#25968
DataBinding.FieldName = 'D2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 142
end
object cxGridDBColumn8: TcxGridDBColumn
Caption = '30'#22825#31354#38386#20010#25968
DataBinding.FieldName = 'D3'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 115
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Left = 81
Top = 272
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Left = 81
Top = 209
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 296
Top = 368
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Parameters = <>
Left = 720
Top = 208
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 560
Top = 200
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 352
Top = 192
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 472
Top = 200
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 520
Top = 364
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 472
Top = 364
end
object PopupMenu1: TPopupMenu
Left = 368
Top = 272
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 472
Top = 444
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 520
Top = 444
end
object GPM_2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 296
Top = 448
end
end

342
E01梭织生产计划/U_TatPlanJTSCLIST.pas Normal file
View File

@ -0,0 +1,342 @@
unit U_TatPlanJTSCLIST;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox,
BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, U_BaseList, Vcl.Menus, dxScrollbarAnnotations,
cxContainer, dxCore, cxDateUtils, cxMaskEdit, cxDropDownEdit, dxSkinsCore,
dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI;
type
TfrmTatPlanJTSCLIST = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
GPM_1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryPrint: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
ToolButton2: TToolButton;
Label5: TLabel;
MCType: TcxTextEdit;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
ToolButton5: TToolButton;
cxPageControl1: TcxPageControl;
cxTabSheet1: TcxTabSheet;
cxTabSheet2: TcxTabSheet;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v3Column8: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
v3Column1: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
v3Column16: TcxGridDBColumn;
v3Column6: TcxGridDBColumn;
v3Column2: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
CDS_2: TClientDataSet;
DS_2: TDataSource;
GPM_2: TcxGridPopupMenu;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ConNoPropertiesChange(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
private
FInt, PFInt: Integer;
FFMainID, BPFlag: string;
procedure InitGrid();
{ Private declarations }
public
canshu1: string;
{ Public declarations }
end;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatCardInPut1;
{$R *.dfm}
procedure TfrmTatPlanJTSCLIST.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
WriteCxGrid('DCG13', Tv1, '坯布生产');
end;
procedure TfrmTatPlanJTSCLIST.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatPlanJTSCLIST.InitGrid();
begin
if cxPageControl1.ActivePageIndex = 0 then
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('EXEC P_Tat_Plan_Mach_MX ');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end
else
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('EXEC P_Tat_Plan_Mach_hz ');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_2);
SInitCDSData(ADOQueryMain, CDS_2);
finally
ADOQueryMain.EnableControls;
end;
end;
end;
procedure TfrmTatPlanJTSCLIST.N1Click(Sender: TObject);
begin
SelOKNo(cds_1, true)
end;
procedure TfrmTatPlanJTSCLIST.N2Click(Sender: TObject);
begin
SelOKNo(cds_1, false);
end;
procedure TfrmTatPlanJTSCLIST.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTatPlanJTSCLIST.ToolButton1Click(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
Tv1.OnFocusedRecordChanged := nil;
if CDS_1.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := SelcdsKey(CDS_1, ['PCID'])[0];
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FPreviewPrint := False;
FLMType := 'TatPlanCard';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
Self.InitGrid();
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update Tat_Plan_Card ');
sql.Add('set PRTer=' + quotedstr(DName));
sql.Add(', PRTCount=PRTCount+1');
sql.Add(', PRTDate=getdate()');
sql.Add('where EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(WSql) + ','','') X where Tat_Plan_Card.PCID=X.RTValue ) ');
ExecSQL;
end;
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatPlanJTSCLIST.ToolButton2Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + '1', Tv1, '坯布生产');
WriteCxGrid(trim(self.Caption) + '2', Tv2, '坯布生产');
end;
procedure TfrmTatPlanJTSCLIST.ToolButton3Click(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
Tv1.OnFocusedRecordChanged := nil;
if CDS_1.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := '';
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + (Trim(CDS_1.fieldbyname('PCID').AsString));
end
else
begin
WSql := (Trim(CDS_1.fieldbyname('PCID').AsString));
end;
end;
Next;
end;
end;
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('exec P_Tat_Card_Del ');
Sql.Add('@PCIDS=' + quotedstr(Trim(WSql)));
Sql.Add(',@DCode=' + Quotedstr(DCode));
Sql.Add(',@DName=' + Quotedstr(DName));
Open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
begin
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
end;
ADOQueryCmd.Connection.CommitTrans;
InitGrid();
application.MessageBox('删除成功！', '提示信息');
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmTatPlanJTSCLIST.ToolButton4Click(Sender: TObject);
begin
try
frmTatCardInPut1 := TfrmTatCardInPut1.Create(Application);
with frmTatCardInPut1 do
begin
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmTatCardInPut1.Free;
end;
end;
procedure TfrmTatPlanJTSCLIST.ToolButton5Click(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 TfrmTatPlanJTSCLIST.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 TfrmTatPlanJTSCLIST.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption) + '1', Tv1, '坯布生产');
ReadCxGrid(trim(self.Caption) + '2', Tv2, '坯布生产');
InitGrid();
end;
procedure TfrmTatPlanJTSCLIST.ConNoPropertiesChange(Sender: TObject);
begin
ToolButton5.Click;
end;
procedure TfrmTatPlanJTSCLIST.cxPageControl1Change(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTatPlanJTSCLIST.cxTabControl1Change(Sender: TObject);
begin
InitGrid();
end;
end.

312
E01梭织生产计划/U_TatPlanPSYLLIST.dfm Normal file
View File

@ -0,0 +1,312 @@
inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
Left = 154
Top = 76
Caption = #26426#21488#32428#32433#29992#37327#32479#35745
ClientHeight = 637
ClientWidth = 1541
Font.Height = -16
Position = poScreenCenter
ExplicitWidth = 1557
ExplicitHeight = 676
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1541
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_TatPlan.cxImageList_bar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TatPlan.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 2
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object ToolButton5: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
OnClick = ToolButton5Click
end
object ToolButton2: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 30
Width = 1541
Height = 91
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 3
object Label5: TLabel
Left = 20
Top = 21
Width = 48
Height = 21
Caption = #26426#21488#21495
end
object mcno: TcxTextEdit
Tag = 2
Left = 90
Top = 17
Properties.OnChange = ConNoPropertiesChange
TabOrder = 0
Width = 150
end
end
inherited loadProcess: TPanel
Left = 671
Top = 285
ExplicitLeft = 671
ExplicitTop = 285
end
inherited cxProgressBar2: TcxProgressBar
Left = 663
Top = 321
ExplicitLeft = 663
ExplicitTop = 321
ExplicitHeight = 29
end
object cxGrid1: TcxGrid [4]
Left = 0
Top = 121
Width = 1541
Height = 516
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 4
ExplicitTop = 127
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
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
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skCount
end
item
Kind = skCount
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object v3Column8: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 52
end
object Tv1Column1: TcxGridDBColumn
Caption = #26426#21488#21495
DataBinding.FieldName = 'mcno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object v3Column1: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'conno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 80
end
object Tv1Column9: TcxGridDBColumn
Caption = #32433#32447#21517#31216
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 104
end
object Tv1Column10: TcxGridDBColumn
Caption = #32433#32447#25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object v3Column16: TcxGridDBColumn
Caption = #22383#24067#26085#20135#37327
DataBinding.FieldName = 'DAYQTY'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
object v3Column6: TcxGridDBColumn
Caption = #27599#26085#29992#37327'KG'
DataBinding.FieldName = 'DAYYL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 97
end
object v3Column2: TcxGridDBColumn
Caption = #35746#21333#24635#38656#27714#37327'KG'
DataBinding.FieldName = 'zqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 124
end
object Tv1Column4: TcxGridDBColumn
Caption = #24050#39046#29992#25968#37327'KG'
DataBinding.FieldName = 'LYQTY'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 117
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Left = 81
Top = 272
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Left = 81
Top = 209
end
object GPM_1: TcxGridPopupMenu
PopupMenus = <>
Left = 296
Top = 368
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Parameters = <>
Left = 720
Top = 208
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 560
Top = 200
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 352
Top = 192
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 472
Top = 200
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 520
Top = 364
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 472
Top = 364
end
object PopupMenu1: TPopupMenu
Left = 368
Top = 272
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 472
Top = 444
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 520
Top = 444
end
object GPM_2: TcxGridPopupMenu
PopupMenus = <>
Left = 296
Top = 448
end
end

307
E01梭织生产计划/U_TatPlanPSYLLIST.pas Normal file
View File

@ -0,0 +1,307 @@
unit U_TatPlanPSYLLIST;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox,
BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, U_BaseList, Vcl.Menus, dxScrollbarAnnotations,
cxContainer, dxCore, cxDateUtils, cxMaskEdit, cxDropDownEdit, dxSkinsCore,
dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI;
type
TfrmTatPlanPSYLLIST = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
GPM_1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryPrint: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
ToolButton2: TToolButton;
Label5: TLabel;
mcno: TcxTextEdit;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
ToolButton5: TToolButton;
CDS_2: TClientDataSet;
DS_2: TDataSource;
GPM_2: TcxGridPopupMenu;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v3Column8: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
v3Column1: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
v3Column6: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
v3Column16: TcxGridDBColumn;
v3Column2: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ConNoPropertiesChange(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
private
FInt, PFInt: Integer;
FFMainID, BPFlag: string;
procedure InitGrid();
{ Private declarations }
public
canshu1: string;
{ Public declarations }
end;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatCardInPut1;
{$R *.dfm}
procedure TfrmTatPlanPSYLLIST.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
WriteCxGrid('DCG13', Tv1, '坯布生产');
end;
procedure TfrmTatPlanPSYLLIST.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatPlanPSYLLIST.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('SELECT * FROM V_TAT_PSYL ');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmTatPlanPSYLLIST.N1Click(Sender: TObject);
begin
SelOKNo(cds_1, true)
end;
procedure TfrmTatPlanPSYLLIST.N2Click(Sender: TObject);
begin
SelOKNo(cds_1, false);
end;
procedure TfrmTatPlanPSYLLIST.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTatPlanPSYLLIST.ToolButton1Click(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
Tv1.OnFocusedRecordChanged := nil;
if CDS_1.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := SelcdsKey(CDS_1, ['PCID'])[0];
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FPreviewPrint := False;
FLMType := 'TatPlanCard';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
Self.InitGrid();
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update Tat_Plan_Card ');
sql.Add('set PRTer=' + quotedstr(DName));
sql.Add(', PRTCount=PRTCount+1');
sql.Add(', PRTDate=getdate()');
sql.Add('where EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(WSql) + ','','') X where Tat_Plan_Card.PCID=X.RTValue ) ');
ExecSQL;
end;
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatPlanPSYLLIST.ToolButton2Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + '1', Tv1, '坯布生产');
end;
procedure TfrmTatPlanPSYLLIST.ToolButton3Click(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
Tv1.OnFocusedRecordChanged := nil;
if CDS_1.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := '';
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + (Trim(CDS_1.fieldbyname('PCID').AsString));
end
else
begin
WSql := (Trim(CDS_1.fieldbyname('PCID').AsString));
end;
end;
Next;
end;
end;
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('exec P_Tat_Card_Del ');
Sql.Add('@PCIDS=' + quotedstr(Trim(WSql)));
Sql.Add(',@DCode=' + Quotedstr(DCode));
Sql.Add(',@DName=' + Quotedstr(DName));
Open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
begin
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
end;
ADOQueryCmd.Connection.CommitTrans;
InitGrid();
application.MessageBox('删除成功！', '提示信息');
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmTatPlanPSYLLIST.ToolButton4Click(Sender: TObject);
begin
try
frmTatCardInPut1 := TfrmTatCardInPut1.Create(Application);
with frmTatCardInPut1 do
begin
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmTatCardInPut1.Free;
end;
end;
procedure TfrmTatPlanPSYLLIST.ToolButton5Click(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 TfrmTatPlanPSYLLIST.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 TfrmTatPlanPSYLLIST.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption) + '1', Tv1, '坯布生产');
InitGrid();
end;
procedure TfrmTatPlanPSYLLIST.ConNoPropertiesChange(Sender: TObject);
begin
ToolButton5.Click;
end;
procedure TfrmTatPlanPSYLLIST.cxPageControl1Change(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTatPlanPSYLLIST.cxTabControl1Change(Sender: TObject);
begin
InitGrid();
end;
end.

238
E02梭织经轴仓库/U_GKInput.dfm Normal file
View File

@ -0,0 +1,238 @@
inherited frmGKInput: TfrmGKInput
Left = 261
Top = 149
Caption = #38050#25187#24405#20837
ClientHeight = 549
ClientWidth = 863
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -16
OldCreateOrder = True
Position = poScreenCenter
OnClose = FormClose
ExplicitWidth = 879
ExplicitHeight = 588
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 863
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 67
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_WarpBeamStk.ImageList_new32
Images = DataLink_WarpBeamStk.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TbSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = TbSaveClick
end
object TBClose: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox [1]
Left = 0
Top = 30
Width = 863
Height = 519
Align = alClient
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 1
ExplicitTop = 27
ExplicitHeight = 522
object Label2: TLabel
Left = 48
Top = 73
Width = 64
Height = 21
Caption = #38050#31576#32534#21495
end
object Label6: TLabel
Left = 48
Top = 109
Width = 106
Height = 21
Caption = #31576#21495'('#40831'/2'#33521#23544')'
end
object Label39: TLabel
Left = 48
Top = 146
Width = 91
Height = 21
Caption = #38050#31576#38271#24230'CM'
end
object Label7: TLabel
Left = 48
Top = 230
Width = 57
Height = 21
Caption = #22791' '#27880
end
object Label3: TLabel
Left = 399
Top = 73
Width = 64
Height = 21
Caption = #26550#23376#32534#21495
end
object Label1: TLabel
Left = 399
Top = 108
Width = 64
Height = 21
Caption = #26550#23376#23618#21495
end
object Label4: TLabel
Left = 48
Top = 186
Width = 48
Height = 21
Caption = #31576#40831#25968
end
object Label5: TLabel
Left = 399
Top = 143
Width = 32
Height = 21
Caption = #31576#24133
end
object Label8: TLabel
Left = 647
Top = 139
Width = 16
Height = 21
Caption = #8220
end
object GKKH: TcxTextEdit
Tag = 2
Left = 159
Top = 105
Properties.OnChange = JZBHPropertiesChange
TabOrder = 1
OnExit = GKKHExit
Width = 200
end
object GKBH: TcxTextEdit
Tag = 2
Left = 159
Top = 69
Enabled = False
TabOrder = 0
Text = #33258#21160#29983#25104
Width = 200
end
object GKLength: TcxTextEdit
Tag = 2
Left = 159
Top = 143
Properties.OnChange = JZBHPropertiesChange
TabOrder = 2
Width = 200
end
object JZBH: TcxTextEdit
Tag = 2
Left = 469
Top = 69
Properties.OnChange = JZBHPropertiesChange
TabOrder = 3
Width = 200
end
object Note: TcxMemo
Tag = 2
Left = 159
Top = 230
TabOrder = 4
Height = 77
Width = 518
end
object JZCH: TcxTextEdit
Tag = 2
Left = 469
Top = 104
Properties.OnChange = JZBHPropertiesChange
TabOrder = 5
Width = 200
end
object GKCS: TcxTextEdit
Tag = 2
Left = 159
Top = 183
Properties.OnChange = JZBHPropertiesChange
TabOrder = 6
OnExit = GKKHExit
Width = 200
end
object GKwidth: TcxTextEdit
Tag = 2
Left = 469
Top = 140
Properties.OnChange = JZBHPropertiesChange
TabOrder = 7
Width = 172
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Left = 704
Top = 219
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Left = 706
Top = 264
end
inherited ImageList_new32: TImageList
Left = 688
Top = 166
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 770
Top = 88
DesignInfo = 5767938
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 747
Top = 173
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Parameters = <>
Left = 684
Top = 101
end
object ADOQueryMain: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 684
Top = 40
end
end

253
E02梭织经轴仓库/U_GKInput.pas Normal file
View File

@ -0,0 +1,253 @@
unit U_GKInput;
interface
uses
Windows, Messages, StrUtils, 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, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore,
cxDateUtils, cxImage, cxDBEdit, IdExplicitTLSClientServerBase, cxMemo,
U_BaseInput, System.ImageList, Vcl.ImgList, cxImageList, dxSkinsCore,
dxSkinsDefaultPainters;
type
TfrmGKInput = class(TfrmBaseInput)
ToolBar1: TToolBar;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
TbSave: TToolButton;
ScrollBox1: TScrollBox;
Label2: TLabel;
Label6: TLabel;
Label39: TLabel;
GKKH: TcxTextEdit;
GKBH: TcxTextEdit;
GKLength: TcxTextEdit;
Label7: TLabel;
JZBH: TcxTextEdit;
Label3: TLabel;
Note: TcxMemo;
Label1: TLabel;
JZCH: TcxTextEdit;
Label4: TLabel;
GKCS: TcxTextEdit;
Label5: TLabel;
GKwidth: TcxTextEdit;
Label8: 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 TbSaveClick(Sender: TObject);
procedure CoareaBtnDnClick(Sender: TObject);
procedure JZBHPropertiesChange(Sender: TObject);
procedure GKKHExit(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
function SaveData(): Boolean;
public
fFlileFlag: string;
fkhType: string;
{ Public declarations }
FGKID: string;
end;
var
frmGKInput: TfrmGKInput;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel;
{$R *.dfm}
procedure TfrmGKInput.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
SQL.Clear;
sql.Add(' select * from BS_GK where GKID=''' + Trim(FGKID) + '''');
Open;
end;
SCSHData(ADOQueryMain, ScrollBox1, 2);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmGKInput.JZBHPropertiesChange(Sender: TObject);
begin
inherited;
GKBH.Text := JZBH.Text + '-' + GKKH.Text + '-' + JZCH.Text + '-' + GKLength.Text;
end;
procedure TfrmGKInput.FormDestroy(Sender: TObject);
begin
inherited;
frmGKInput := nil;
end;
procedure TfrmGKInput.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmGKInput.TBCloseClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmGKInput.FormShow(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmGKInput.GKKHExit(Sender: TObject);
var
FKCS, FKOUHAO: double;
begin
FKCS := StrToFloatDef(GKCS.Text, 0);
FKOUHAO := StrToFloatDef(GKKH.Text, 0);
if FKOUHAO <> 0 then
begin
GKwidth.Text := FloatToStr(RoundFloat(FKCS / FKOUHAO * 2, 2));
end;
end;
procedure TfrmGKInput.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
function TfrmGKInput.SaveData(): Boolean;
var
MaxId, MaxSubId, FCoCode, FCCID, MaxCFID: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
if Trim(FGKID) = '' then
begin
if GetLSNo(ADOQueryCmd, MaxId, 'GK', 'BS_GK', 4, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！', '提示', 0);
Exit;
end;
end
else
begin
MaxId := Trim(FGKID);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from BS_GK where GKID=''' + Trim(FGKID) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(FGKID) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
end;
FieldByName('GKID').Value := Trim(MaxId);
RTSetsavedata(ADOQueryCmd, 'BS_GK', ScrollBox1, 2);
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from BS_GK where GKBH=' + quotedstr(trim(GKBH.Text)));
Open;
end;
if ADOQueryCmd.RecordCount > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('钢扣编号重复!', '提示', 0);
Exit;
end;
ADOQueryCmd.Connection.CommitTrans;
FCCID := Trim(MaxSubId);
Result := True;
except
Result := false;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存异常!', '提示', 0);
end;
end;
procedure TfrmGKInput.TbSaveClick(Sender: TObject);
begin
if Trim(JZBH.Text) = '' then
begin
Application.MessageBox('架子编号不能为空!', '提示', 0);
Exit;
end
else if Trim(GKKH.Text) = '' then
begin
Application.MessageBox('筘号不能为空!', '提示', 0);
Exit;
end
else if Trim(JZCH.Text) = '' then
begin
Application.MessageBox('架子层号不能为空!', '提示', 0);
Exit;
end
else if Trim(GKLength.Text) = '' then
begin
Application.MessageBox('钢筘长度不能为空!', '提示', 0);
Exit;
end;
if SaveData() then
begin
Application.MessageBox('保存成功!', '提示', 0);
ModalResult := 1;
end;
end;
procedure TfrmGKInput.CoareaBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
end.

27
E02梭织经轴仓库/U_GKManageSel.dfm
View File

@ -49,10 +49,34 @@ inherited frmGKManageSel: TfrmGKManageSel
ImageIndex = 0
Visible = False
end
object TBClose: TToolButton
object ToolButton2: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 2
OnClick = ToolButton2Click
end
object ToolButton3: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
OnClick = ToolButton3Click
end
object ToolButton4: TToolButton
Left = 355
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 14
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 426
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
@ -66,7 +90,6 @@ inherited frmGKManageSel: TfrmGKManageSel
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 87
object Tv2: TcxGridDBTableView
OnDblClick = Tv2DblClick
Navigator.Buttons.CustomButtons = <>

73
E02梭织经轴仓库/U_GKManageSel.pas
View File

@ -48,6 +48,9 @@ type
ToolButton1: TToolButton;
Tv2Column2: TcxGridDBColumn;
Tv2Column8: TcxGridDBColumn;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -61,6 +64,9 @@ type
procedure MCNOPropertiesChange(Sender: TObject);
procedure Tv2DblClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
private
{ Private declarations }
@ -77,7 +83,7 @@ var
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_EmployeeSel;
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_EmployeeSel, U_GKInput;
{$R *.dfm}
@ -152,6 +158,71 @@ begin
ModalResult := 1;
end;
procedure TfrmGKManageSel.ToolButton2Click(Sender: TObject);
begin
try
frmGKInput := TfrmGKInput.Create(Application);
with frmGKInput do
begin
FGKID := '';
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmGKInput.Free;
end;
end;
procedure TfrmGKManageSel.ToolButton3Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
exit;
try
frmGKInput := TfrmGKInput.Create(Application);
with frmGKInput do
begin
FGKID := Trim(Self.CDS_HZ.fieldbyname('GKID').AsString);
if ShowModal = 1 then
begin
end;
end;
finally
frmGKInput.Free;
end;
end;
procedure TfrmGKManageSel.ToolButton4Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
Exit;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete BS_GK where GKID=' + QuotedStr(CDS_HZ.FieldByName('GKID').AsString));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('钢筘删除')));
sql.Add(',' + quotedstr(trim('GKID：' + trim(CDS_HZ.FieldByName('GKID').AsString) + ';GKno:' + trim(CDS_HZ.FieldByName('GKBH').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
ExecSQL;
end;
InitGrid();
end;
procedure TfrmGKManageSel.Tv2DblClick(Sender: TObject);
begin
ModalResult := 1;

6
E02梭织经轴仓库/U_WBSpecInPut.dfm
View File

@ -852,7 +852,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 630
Top = 67
ParentColor = True
Properties.ReadOnly = True
Properties.ReadOnly = False
TabOrder = 3
Width = 150
end
@ -861,7 +861,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 110
Top = 105
ParentColor = True
Properties.ReadOnly = True
TabOrder = 4
Width = 150
end
@ -870,7 +869,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 397
Top = 105
ParentColor = True
Properties.ReadOnly = False
TabOrder = 5
Width = 150
end
@ -879,7 +877,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 110
Top = 143
ParentColor = True
Properties.ReadOnly = True
TabOrder = 6
Width = 150
end
@ -888,7 +885,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 397
Top = 143
ParentColor = True
Properties.ReadOnly = False
TabOrder = 7
Width = 150
end

7
E02梭织经轴仓库/U_WBSpecInPut.pas
View File

@ -156,13 +156,17 @@ begin
// 总经根数-条数*颗数 取余整=余数
FZGS := STRTOFLOATDEF(WB_YarnQty.Text, 0);
FF_MAXKESHU := STRTOFLOATDEF(F_MAXKESHU.Text, 0);
if FF_MAXKESHU <> 0 then
if (FF_MAXKESHU <> 0) and (FZGS <> 0) then
begin
fTS := Ceil(FZGS / FF_MAXKESHU);
F_YarnStripQty.Text := INTTOSTR(fTS);
FSJKS := Floor(FZGS / fTS);
F_SJKESHU.Text := INTTOSTR(FSJKS);
F_YUSHU.Text := FLOATTOSTR(FZGS - FSJKS * fTS);
end
else
begin
Exit;
end;
// 总经根数/分交 向上取整=分绞根数
@ -590,7 +594,6 @@ begin
FieldByName('RowNo').Value := 'H';
Post;
end;
end;

2
E02梭织经轴仓库/U_WBSpecList.dfm
View File

@ -467,8 +467,6 @@ inherited frmWBSpecList: TfrmWBSpecList
Align = alTop
ParentFont = False
TabOrder = 1
ExplicitLeft = 6
ExplicitTop = 6
Height = 239
Width = 594
end

3
E02梭织经轴仓库/WarpBeamStk.dpr
View File

@ -67,7 +67,8 @@ uses
U_TatWBOutputList_XB in 'U_TatWBOutputList_XB.pas' {frmTatWBOutputList_XB},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_TatGYSel in '..\E00梭织通用窗体\U_TatGYSel.pas' {frmTatGYSel},
U_TatPlanSel2 in '..\E00梭织通用窗体\U_TatPlanSel2.pas' {frmTatPlanSel2};
U_TatPlanSel2 in '..\E00梭织通用窗体\U_TatPlanSel2.pas' {frmTatPlanSel2},
U_GKInput in 'U_GKInput.pas' {frmGKInput};
{$R *.res}

4
E02梭织经轴仓库/WarpBeamStk.dproj
View File

@ -288,6 +288,10 @@
<Form>frmTatPlanSel2</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_GKInput.pas">
<Form>frmGKInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

19
E02梭织经轴仓库/WarpBeamStk.dproj.local
View File

@ -123,21 +123,24 @@
<File Path="U_WBTatPlanSel.dfm"/>
<File Path="U_WBTypeSel.pas"/>
<File Path="U_WBTypeSel.dfm"/>
<File Path="U_GKInput.pas"/>
<File Path="U_GKInput.dfm"/>
</ProjectSortOrder>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</Transaction>
<Transaction>2025-08-20 09:44:28.981,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.pas</Transaction>
</Transactions>
</BorlandProject>

BIN
E02梭织经轴仓库/WarpBeamStk.identcache
View File

Binary file not shown.

BIN
E02梭织经轴仓库/testDll.identcache
View File

Binary file not shown.