LZC/D10gmBitao
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

11

Browse Source
This commit is contained in:
“username” 2025-05-15 15:55:06 +08:00
parent 2e4858c0a3
commit cccfd92ae0
24 changed files with 1101 additions and 606 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

Binary file not shown.

62
D01针织生产计划/KnitPlan.dproj.local
View File

@ -1,57 +1,57 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.238,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.938,=D:\Dp10Repo\项目代码\D10gmXinHua\D01针织生产计划\U_LCKInput.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.493,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_TradeSalesContractSel.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.496,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_LabelInput.dfm=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_LabelInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.238,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.898,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\D01针织生产计划\U_LCKQuery.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.493,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_TradeSalesContractSel.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.913,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_TradeInspSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj</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.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.dfm=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.925,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.030,D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.pas=D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.756,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.830,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_PlanCardOFF.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.227,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelAdd.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.128,D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.dfm=D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.914,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_testdll.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.pas=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.175,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\D01针织生产计划\U_KnitPlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.925,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.830,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_PlanCardOFF.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.383,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.914,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_testdll.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.913,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_TradeInspSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.089,=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.128,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.pas=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.030,D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.pas=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.496,D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_LabelInput.pas=D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_LabelInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.030,D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.dfm=D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.881,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitCardInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.030,D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.dfm=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.128,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.dfm=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.496,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_LabelInput.pas=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_LabelInput.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.904,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.pas=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.dfm=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.128,D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.pas=D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj</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.496,D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_LabelInput.dfm=D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_LabelInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>

17
D01针织生产计划/U_KnitPlanCard.dfm
View File

@ -3,9 +3,9 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard
Top = 76
Caption = #26631#31614#25171#21360
ClientHeight = 637
ClientWidth = 1397
ClientWidth = 1448
Position = poScreenCenter
ExplicitWidth = 1413
ExplicitWidth = 1464
ExplicitHeight = 676
PixelsPerInch = 96
TextHeight = 12
@ -13,7 +13,7 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard
Tag = 1
Left = 0
Top = 0
Width = 1397
Width = 1448
Height = 38
AutoSize = True
ButtonHeight = 38
@ -32,8 +32,6 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard
ParentFont = False
ShowCaptions = True
TabOrder = 0
ExplicitLeft = 1
ExplicitTop = 1
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -86,7 +84,7 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1397
Width = 1448
Height = 99
Align = alTop
BevelInner = bvRaised
@ -214,12 +212,11 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard
object cxGrid1: TcxGrid [2]
Left = 0
Top = 164
Width = 1397
Width = 1448
Height = 473
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitLeft = 1
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -486,7 +483,7 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 137
Width = 1397
Width = 1448
Height = 27
Align = alTop
Font.Charset = GB2312_CHARSET
@ -505,7 +502,7 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard
#20840#37096)
OnChange = cxTabControl1Change
ClientRectBottom = 29
ClientRectRight = 1397
ClientRectRight = 1448
ClientRectTop = 29
end
object Panel3: TPanel [4]

7
D01针织生产计划/U_KnitPlanCard.pas
View File

@ -163,12 +163,12 @@ begin
case cxTabControl1.TabIndex of
0:
begin
sql.Add(' and PRTCount=0');
sql.Add(' and A.PRTCount=0');
sql.Add(' Order by A.Filltime Desc');
end;
1:
begin
sql.Add(' and PRTCount>0');
sql.Add(' and A.PRTCount>0');
sql.Add(' Order by A.PRTDate Desc');
end;
2:
@ -176,7 +176,7 @@ begin
sql.Add(' Order by A.PRTDate Desc,A.Filltime Desc');
end;
end;
// ShowMessage(sql.text);
//ShowMessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
@ -307,6 +307,7 @@ begin
sql.Add(' ,Deltime =getdate() ');
sql.Add(' where PCID=''' + Trim(CDS_1.fieldbyname('PCID').AsString) + '''');
sql.Add(' and Status =''0'' ');
// showmessage(sql.Text);
ExecSQL;
end;
end;

47
D01针织生产计划/U_KnitPlanImport.dfm
View File

@ -1,7 +1,7 @@
inherited frmknitplanImport: TfrmknitplanImport
Left = 189
Top = 138
Caption = #26679#21697#23548#20837
Caption = #35745#21010#21333#23548#20837
ClientHeight = 562
ClientWidth = 1484
Color = clWhite
@ -86,7 +86,6 @@ inherited frmknitplanImport: TfrmknitplanImport
Height = 532
Align = alClient
TabOrder = 1
ExplicitTop = 36
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -234,6 +233,32 @@ inherited frmknitplanImport: TfrmknitplanImport
HeaderAlignmentHorz = taCenter
Width = 83
end
object cxgrdbclmnTv1Column2: TcxGridDBColumn
Caption = #34892#21495
DataBinding.FieldName = 'LineNumber'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1PRTKZ: TcxGridDBColumn
Tag = 1
Caption = #29289#26009#21495
DataBinding.FieldName = 'C_Material_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_KnitPlan.Default
Width = 76
end
object v1Column7: TcxGridDBColumn
Tag = 1
Caption = #29289#26009#21517#31216
DataBinding.FieldName = 'C_Material'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_KnitPlan.Default
Width = 72
end
object cxgrdbclmnTv1Column15: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
@ -377,24 +402,6 @@ inherited frmknitplanImport: TfrmknitplanImport
Options.Editing = False
Width = 80
end
object v1PRTKZ: TcxGridDBColumn
Tag = 1
Caption = #29289#26009#21495
DataBinding.FieldName = 'C_Material_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_KnitPlan.Default
Width = 76
end
object v1Column7: TcxGridDBColumn
Tag = 1
Caption = #29289#26009#21517#31216
DataBinding.FieldName = 'C_Material'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_KnitPlan.Default
Width = 72
end
object cxgrdbclmnTv1Column17: TcxGridDBColumn
Caption = #21097#20313#20132#26399
DataBinding.FieldName = 'IFJQ'

54
D01针织生产计划/U_KnitPlanImport.pas
View File

@ -65,6 +65,7 @@ type
cxgrdbclmnTv1Column16: TcxGridDBColumn;
cxgrdbclmnTv1Column17: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
cxgrdbclmnTv1Column2: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -126,7 +127,6 @@ end;
procedure TfrmknitplanImport.TBCloseClick(Sender: TObject);
begin
Close;
end;
@ -162,6 +162,11 @@ var
begin
try
ADOQueryCmd.Connection.BeginTrans;
with CDS_1 do
begin
First;
while not Eof do
begin
if Trim(CDS_1.FieldByName('mainid').AsString) = '' then
begin
if CDS_1.FieldByName('OrdType').AsString = '大货单' then
@ -198,6 +203,15 @@ begin
end;
//查询客户信息
with ADOQueryBaseCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from BS_Company where CoType = ''客户'' and CoName=''' + Trim(CDS_1.FieldByName('CustName').AsString) + '''');
Open;
end;
////////////////////////// 保存主表 //////////////////////////
with ADOQueryCmd do
begin
@ -210,9 +224,11 @@ begin
begin
Append;
FieldByName('MainId').Value := Trim(maxno);
FieldByName('orderno').Value := Trim(maxno);
FieldByName('LabPackage').Value := Trim(CDS_1.FieldByName('LabPackage').AsString);
FieldByName('RuleBeforeTare').Value := Trim(CDS_1.FieldByName('RuleBeforeTare').AsString);
FieldByName('CustNo').Value := Trim(ADOQueryBaseCmd.FieldByName('CoCode').AsString);
FieldByName('Filler').Value := Trim(DName);
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Plan_main', 0);
@ -221,6 +237,17 @@ begin
////////////////////////// 保存主表 //////////////////////////
///
////////////////////////// 保存子表 //////////////////////////
//查询产品信息
if Trim(CDS_1.FieldByName('C_Code').AsString) <> '' then
begin
with ADOQueryBaseCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from BS_Cloth_Info where C_Code=''' + Trim(CDS_1.FieldByName('C_Code').AsString) + '''');
Open;
end;
end;
with ADOQueryCmd do
begin
@ -264,6 +291,10 @@ begin
end;
////////////////////////// 保存标签表 //////////////////////////
///
next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
Application.MessageBox('保存成功！', '提示', 0);
@ -347,9 +378,28 @@ begin
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;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from bs_cloth_info where ');
sql.Add(' C_Code=''' + Trim(cds_1.FieldByName('c_Code').AsString) + '''');
Open;
end;
if not ADOQueryTemp.IsEmpty then
begin
with cds_1 do
begin
edit;
cds_1.Fieldbyname('C_Yarn').AsString := ADOQueryTemp.FieldByName('C_Yarn').AsString;
cds_1.Fieldbyname('C_jiaceng').AsString := ADOQueryTemp.FieldByName('C_jiaceng').AsString;
cds_1.FieldByName('C_DYARN').AsString := ADOQueryTemp.FieldByName('C_DYARN').AsString;
end;
end;
end;
end;
WorkBook.Close;

777
D01针织生产计划/U_KnitPlanInPut.dfm
View File

File diff suppressed because it is too large Load Diff

110
D01针织生产计划/U_KnitPlanInPut.pas
View File

@ -337,7 +337,6 @@ type
ConNo: TBtnEditC;
Saleser: TEdit;
OurCoName: TBtnEditC;
C_Deal: TBtnEditC;
Label7: TLabel;
OrderNo: TEdit;
ToolBar3: TToolBar;
@ -387,12 +386,21 @@ type
lbl5: TLabel;
C_Material_Name: TBtnEditC;
lbl4: TLabel;
C_MainYarn: TBtnEditC;
lbl6: TLabel;
LabPackage: TBtnEditC;
RuleBeforeTare: TComboBox;
lbl7: TLabel;
C_Material: TBtnEditC;
lbl8: TLabel;
lbl9: TLabel;
ISChongDa: TComboBox;
lbl10: TLabel;
ChongDaNote: TRichEdit;
RuleBeforeTare: TComboBox;
C_Deal: TComboBox;
C_ZhuJi: TComboBox;
C_MainYarn: TComboBox;
lbl11: TLabel;
LineNumber: TEdit;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -442,7 +450,7 @@ implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_ClothInfoSel, U_CompanySel, U_YarnInfoSel,
U_TradeSalesContractSel,U_TradeInspSet2;
U_TradeSalesContractSel, U_TradeInspSet2;
{$R *.dfm}
@ -479,33 +487,34 @@ begin
CustName.Enabled := false;
FtyCoName.Enabled := false;
Saleser.Enabled := false;
C_KnitGramWeight.Enabled := false;
//C_KnitGramWeight.Enabled := false;
C_Code.Enabled := false;
C_Name.Enabled := false;
C_Width.Enabled := false;
C_GramWeight.Enabled := false;
C_Spec.Enabled := false;
OrdPieceWeight.Enabled := false;
C_Color.Enabled := false;
C_Composition.Enabled := false;
C_Deal.Enabled := false;
C_KnitNote.Enabled := false;
C_Figure.Enabled := false;
C_Yarn.Enabled := false;
//C_Name.Enabled := false;
//C_Width.Enabled := false;
//C_GramWeight.Enabled := false;
//C_Spec.Enabled := false;
//OrdPieceWeight.Enabled := false;
//C_Color.Enabled := false;
//C_Composition.Enabled := false;
//C_Deal.Enabled := false;
//C_KnitNote.Enabled := false;
//C_Figure.Enabled := false;
//C_Yarn.Enabled := false;
KGQty.Enabled := false;
SSBL.Enabled := false;
OrdSNote.Enabled := false;
//OrdSNote.Enabled := false;
end;
end;
with ADOQuery1 do
begin
Close;
SQL.Clear;
sql.Add('select * from knit_Plan_Main A where A.MainId=''' + Trim(FMainId) + '''');
sql.Add('select isnull(ISChongDa,''否'') ISChongDa,* from knit_Plan_Main A where A.MainId=''' + Trim(FMainId) + '''');
Open;
end;
SCSHData(ADOQuery1, ScrollBox1, 0);
CustName.TxtCode := ADOQuery1.FieldByName('CustNo').AsString;
ISChongDa.Text:= ADOQuery1.fieldbyname('ISChongDa').AsString;
with ADOQuery1 do
begin
@ -515,7 +524,8 @@ begin
Open;
end;
SCSHData(ADOQuery1, ScrollBox1, 2);
C_Deal.Text:= ADOQuery1.fieldbyname('C_Deal').AsString;
C_ZhuJi.Text:= ADOQuery1.fieldbyname('C_ZhuJi').AsString;
FConMId := ADOQuery1.fieldbyname('ConMID').AsString;
FConSId := ADOQuery1.fieldbyname('ConSId').AsString;
@ -1038,15 +1048,19 @@ begin
Application.MessageBox('产品名称不能为空!', '提示', 0);
Exit;
end;
if Trim(C_Code.Text) = '' then
// if Trim(C_Code.Text) = '' then
// begin
// Application.MessageBox('产品编号不能为空!', '提示', 0);
// Exit;
// end;
if Trim(C_Width.Text) = '' then
begin
Application.MessageBox('产品编号不能为空!', '提示', 0);
Application.MessageBox('门幅不能为空!', '提示', 0);
Exit;
end;
if Trim(C_MainYarn.Text) = '' then
if Trim(C_GramWeight.Text) = '' then
begin
Application.MessageBox('主要纱线不能为空!', '提示', 0);
C_MainYarn.SetFocus;
Application.MessageBox('克重不能为空!', '提示', 0);
Exit;
end;
if Trim(OrdQty.Text) = '' then
@ -1064,24 +1078,47 @@ begin
Application.MessageBox('匹数不能为空!', '提示', 0);
Exit;
end;
if Trim(LabPackage.Text) = '' then
begin
Application.MessageBox('标签不能为空!', '提示', 0);
Exit;
end;
if Trim(C_Yarn.Text) = '' then
begin
Application.MessageBox('面纱不能为空!', '提示', 0);
Exit;
end;
// if Trim(C_jiaceng.Text) = '' then
// begin
// Application.MessageBox('夹层不能为空!', '提示', 0);
// Exit;
// end;
if Trim(C_DYARN.Text) = '' then
begin
Application.MessageBox('底纱不能为空!', '提示', 0);
Exit;
end;
if Trim(C_Deal.Text) = '' then
begin
Application.MessageBox('后处理不能为空!', '提示', 0);
Exit;
end;
if Trim(C_ZhuJi.Text) = '' then
begin
Application.MessageBox('助剂不能为空!', '提示', 0);
Exit;
end;
if Trim(C_MainYarn.Text) = '' then
begin
Application.MessageBox('主要纱线不能为空!', '提示', 0);
C_MainYarn.SetFocus;
Exit;
end;
if TryStrToFloat(OrdQty.Text, FReal) = False then
begin
Application.MessageBox('总数量非法数字!', '提示', 0);
Exit;
end;
// if TryStrToFloat(OrdPieceWeight.Text, FReal) = False then
// begin
// Application.MessageBox('匹重非法数字!', '提示', 0);
// Exit;
// end;
if TryStrToFloat(OrdPiece.Text, FReal) = False then
begin
Application.MessageBox('匹数非法数字!', '提示', 0);
@ -1092,6 +1129,15 @@ begin
Application.MessageBox('皮重非法数字!', '提示', 0);
Exit;
end;
if Trim(ISChongDa.Text) = '是' then
begin
if Trim(ChongDaNote.Text) = '' then
begin
Application.MessageBox('重打订单重打原因必须填写!', '提示', 0);
Exit;
end;
end;
// if Trim(C_Spec.Text) = '' then
// begin
// Application.MessageBox('规格不能为空!', '提示', 0);

119
D01针织生产计划/U_KnitPlanList.dfm
View File

@ -92,13 +92,13 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Left = 533
Top = 0
AutoSize = True
Caption = #25171#21360#35745#21010#21333
Caption = #25171#21360#35745#21010#21333'1'
ImageIndex = 21
Visible = False
OnClick = TBPrintClick
end
object DYPrint: TToolButton
Left = 640
Left = 646
Top = 0
AutoSize = True
Caption = #25171#21360#25171#26679#21333
@ -106,7 +106,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = DYPrintClick
end
object TBView: TToolButton
Left = 747
Left = 753
Top = 0
AutoSize = True
Caption = #26597#30475
@ -114,7 +114,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBViewClick
end
object TBDel: TToolButton
Left = 818
Left = 824
Top = 0
AutoSize = True
Caption = #21024#38500
@ -122,7 +122,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBDelClick
end
object TBSCAP: TToolButton
Left = 889
Left = 895
Top = 0
AutoSize = True
Caption = #29983#20135#23433#25490
@ -130,7 +130,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBSCAPClick
end
object ToolButton2: TToolButton
Left = 984
Left = 990
Top = 0
AutoSize = True
Caption = #25171#21367#35774#32622
@ -138,7 +138,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = ToolButton2Click
end
object btn1: TToolButton
Left = 1079
Left = 1085
Top = 0
AutoSize = True
Caption = #25171#21360#27969#31243#21345
@ -317,6 +317,13 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Height = 12
Caption = #26426#21488
end
object lbl2: TLabel
Left = 879
Top = 41
Width = 24
Height = 12
Caption = #34892#21495
end
object BegDate: TDateTimePicker
Left = 100
Top = 9
@ -350,7 +357,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Font.Style = []
ParentFont = False
TabOrder = 2
OnChange = ConNoChange
OnKeyPress = conPress
end
object C_Name: TEdit
@ -360,8 +366,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Width = 100
Height = 20
TabOrder = 3
OnChange = ConNoChange
OnKeyPress = C_NameKeyPress
OnKeyPress = conPress
end
object C_Code: TEdit
Tag = 2
@ -370,8 +375,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Width = 100
Height = 20
TabOrder = 4
OnChange = ConNoChange
OnKeyPress = C_CodeKeyPress
OnKeyPress = conPress
end
object CustName: TEdit
Tag = 2
@ -380,8 +384,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Width = 110
Height = 20
TabOrder = 5
OnChange = ConNoChange
OnKeyPress = CustNameKeyPress
OnKeyPress = conPress
end
object OrderNo: TEdit
Tag = 2
@ -390,7 +393,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Width = 81
Height = 20
TabOrder = 6
OnChange = ConNoChange
OnKeyPress = conPress
end
object FtyCoName: TEdit
@ -400,8 +402,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Width = 110
Height = 20
TabOrder = 7
OnChange = ConNoChange
OnKeyPress = CustNameKeyPress
OnKeyPress = conPress
end
object CarHZ: TEdit
Tag = 2
@ -410,8 +411,16 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Width = 100
Height = 20
TabOrder = 8
OnChange = ConNoChange
OnKeyPress = C_CodeKeyPress
OnKeyPress = conPress
end
object LineNumber: TEdit
Tag = 2
Left = 918
Top = 36
Width = 100
Height = 20
TabOrder = 9
OnKeyPress = conPress
end
end
object cxGrid1: TcxGrid [2]
@ -421,7 +430,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Height = 374
Align = alClient
TabOrder = 2
ExplicitTop = 165
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -530,6 +538,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_KnitPlan.Default
Width = 100
@ -546,6 +555,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'OrdType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object Tv1Column16: TcxGridDBColumn
@ -575,6 +585,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'OrdDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_KnitPlan.Default
Width = 71
end
@ -583,6 +594,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'FtyCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object v1Column19: TcxGridDBColumn
@ -593,6 +605,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_KnitPlan.Default
Width = 82
end
@ -601,6 +614,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_KnitPlan.Default
Width = 92
end
@ -609,6 +623,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_KnitPlan.Default
Width = 73
end
@ -624,6 +639,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
@ -632,6 +648,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Caption = #32433#32447
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
@ -658,6 +675,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_KnitPlan.Default
Width = 69
end
@ -665,6 +683,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Caption = #22383#24067#20811#37325
DataBinding.FieldName = 'C_KnitGramWeight'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
@ -674,20 +693,29 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_KnitPlan.Default
Width = 76
end
object Tv1Column10: TcxGridDBColumn
Caption = #25552#33457
DataBinding.FieldName = 'C_Figure'
object Tv1Column11: TcxGridDBColumn
Caption = #38754#32433
DataBinding.FieldName = 'C_Yarn'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column11: TcxGridDBColumn
Caption = #38754#32433
DataBinding.FieldName = 'C_Yarn'
object cxgrdbclmnTv1Column10: TcxGridDBColumn
Caption = #22841#23618
DataBinding.FieldName = 'C_jiaceng'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxgrdbclmnTv1Column11: TcxGridDBColumn
Caption = #24213#32433
DataBinding.FieldName = 'C_DYARN'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -698,6 +726,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'OrdPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_KnitPlan.Default
Width = 59
end
@ -705,6 +734,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Caption = #21305#38271
DataBinding.FieldName = 'OrdPieceWeight'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_KnitPlan.Default
Width = 72
@ -714,6 +744,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_KnitPlan.Default
Width = 92
end
@ -731,6 +762,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'OrdSNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_KnitPlan.Default
Width = 68
end
@ -739,6 +771,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 68
end
object Tv1Column3: TcxGridDBColumn
@ -762,6 +795,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'wXJPS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 89
end
object Tv1Column4: TcxGridDBColumn
@ -815,6 +849,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Caption = #33394#19997#27604#20363
DataBinding.FieldName = 'SSBL'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -835,6 +870,38 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Options.Editing = False
Width = 90
end
object cxgrdbclmnTv1Column12: TcxGridDBColumn
Caption = #29305#27530#21161#21058
DataBinding.FieldName = 'C_ZhuJi'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxgrdbclmnTv1Column13: TcxGridDBColumn
Caption = #29289#26009#21517#31216
DataBinding.FieldName = 'C_Material'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxgrdbclmnTv1Column14: TcxGridDBColumn
Caption = #34892#21495
DataBinding.FieldName = 'LineNumber'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxgrdbclmnTv1Column22: TcxGridDBColumn
Caption = #25171#21360#27425#25968
DataBinding.FieldName = 'PrtCount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

56
D01针织生产计划/U_KnitPlanList.pas
View File

@ -100,7 +100,6 @@ type
ToolButton4: TToolButton;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Panel2: TPanel;
@ -159,6 +158,14 @@ type
cxgrdbclmnTv1Column21: TcxGridDBColumn;
DYPrint: TToolButton;
ToolButton11: TToolButton;
cxgrdbclmnTv1Column10: TcxGridDBColumn;
cxgrdbclmnTv1Column11: TcxGridDBColumn;
cxgrdbclmnTv1Column12: TcxGridDBColumn;
cxgrdbclmnTv1Column13: TcxGridDBColumn;
cxgrdbclmnTv1Column14: TcxGridDBColumn;
lbl2: TLabel;
LineNumber: TEdit;
cxgrdbclmnTv1Column22: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
@ -598,7 +605,16 @@ begin
FFiltration1 := WSql;
if ShowModal = 1 then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update Knit_Plan_Main');
sql.Add('set PRTCount=PRTCount+1');
sql.Add(' where MainId in(' + WSql + ')');
ExecSQL;
end;
InitGrid();
end;
end;
finally
@ -824,25 +840,7 @@ procedure TfrmKnitPlanList.conPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
if Length(Trim(ConNo.Text)) < 4 then
Exit;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('select * from knit_Plan_Main A inner join knit_Plan_Sub B on A.Mainid=B.MainId');
sql.Add(' where A.ConNo like ''' + '%' + Trim(ConNo.Text) + '%' + '''');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
InitGrid();
end;
end;
@ -1114,7 +1112,17 @@ begin
FFiltration1 := CDS_1.FieldByName('MAINID').AsString;
if ShowModal = 1 then
begin
// Self.InitGrid();
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update Knit_Plan_Main');
sql.Add('set PRTCount=PRTCount+1');
sql.Add(' where MainId = ''' + Trim(self.CDS_1.fieldbyname('MainId').AsString) + '''');
//showmessage(sql.Text);
ExecSQL;
end;
InitGrid();
end;
end;
finally
@ -1291,6 +1299,10 @@ end;
procedure TfrmKnitPlanList.CustNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
if Key = #13 then
begin
InitGrid();
end;
TBRafresh.Click();
if ADOQueryMain.Active = False then
Exit;

30
D01针织生产计划/U_LCKQuery.dfm
View File

@ -125,6 +125,13 @@ inherited frmLCKQuery: TfrmLCKQuery
Height = 12
Caption = #24320#21345#26085#26399
end
object lbl4: TLabel
Left = 637
Top = 16
Width = 48
Height = 12
Caption = #20135#21697#21517#31216
end
object LCKID: TEdit
Tag = 2
Left = 327
@ -163,6 +170,15 @@ inherited frmLCKQuery: TfrmLCKQuery
Time = 0.464761099538009100
TabOrder = 3
end
object C_Name: TEdit
Tag = 2
Left = 706
Top = 12
Width = 80
Height = 20
TabOrder = 4
OnChange = LCKIDChange
end
end
object cxGrid1: TcxGrid [2]
Left = 0
@ -237,14 +253,6 @@ inherited frmLCKQuery: TfrmLCKQuery
Options.Editing = False
Width = 92
end
object cxgrdbclmnTv3Column9: TcxGridDBColumn
Caption = #24037#33402
DataBinding.FieldName = 'Craft'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxgrdbclmnTv3Column4: TcxGridDBColumn
Caption = #21518#22788#29702#31867#22411
DataBinding.FieldName = 'HCLType'
@ -278,15 +286,15 @@ inherited frmLCKQuery: TfrmLCKQuery
Width = 80
end
object cxgrdbclmnTv3Column6: TcxGridDBColumn
Caption = #29305#27530#35201#27714'('#21161#21058')'
DataBinding.FieldName = 'Note'
Caption = #29305#27530#21161#21058
DataBinding.FieldName = 'Craft'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 119
end
object cxgrdbclmnTv1Column2: TcxGridDBColumn
Caption = #22411#21495
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter

3
D01针织生产计划/U_LCKQuery.pas
View File

@ -57,7 +57,6 @@ type
cxgrdbclmnTv3Column8: TcxGridDBColumn;
cxgrdbclmnTv3Column1: TcxGridDBColumn;
cxgrdbclmnTv3Column2: TcxGridDBColumn;
cxgrdbclmnTv3Column9: TcxGridDBColumn;
cxgrdbclmnTv3Column4: TcxGridDBColumn;
cxgrdbclmnTv3Column5: TcxGridDBColumn;
cxgrdbclmnTv3Column3: TcxGridDBColumn;
@ -84,6 +83,8 @@ type
cxgrdbclmnTv1Column8: TcxGridDBColumn;
cxgrdbclmnTv1Column9: TcxGridDBColumn;
btn5: TToolButton;
lbl4: TLabel;
C_Name: TEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);

BIN
D02针织坯布检验/KnitInsp.identcache
View File

Binary file not shown.

BIN
D02针织坯布检验/KnitInspLogin.identcache
View File

Binary file not shown.

BIN
D03针织坯布仓库/KnitClothStk.identcache
View File

Binary file not shown.

BIN
D03针织坯布仓库/testDll.identcache
View File

Binary file not shown.

BIN
F04染色刷卡/DyeProcess.identcache
View File

Binary file not shown.

10
T03贸易布匹检验/U_DataLink.dfm
View File

@ -10461,7 +10461,7 @@ inherited DataLink_TradeInsp: TDataLink_TradeInsp
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
end
@ -10559,6 +10559,14 @@ inherited DataLink_TradeInsp: TDataLink_TradeInsp
Font.Style = [fsBold]
TextColor = clRed
end
object cxStyle1: TcxStyle
AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
end
end
object Timer_link: TTimer
Interval = 15000

1
T03贸易布匹检验/U_DataLink.pas
View File

@ -76,6 +76,7 @@ type
SHuangSeCu: TcxStyle;
Timer_link: TTimer;
ImageList_new32: TImageList;
cxStyle1: TcxStyle;
procedure DataModuleDestroy(Sender: TObject);
procedure Timer_linkTimer(Sender: TObject);
procedure DataModuleCreate(Sender: TObject);

20
T03贸易布匹检验/U_TradeClothInspList.dfm
View File

@ -399,13 +399,21 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Width = 66
end
object v1Column10: TcxGridDBColumn
Caption = #31859#25968
Caption = #20928#31859#25968
DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxgrdbclmnTv1Column13: TcxGridDBColumn
Caption = #27611#31859#25968
DataBinding.FieldName = 'GrossMeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column10: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'Yardage'
@ -503,6 +511,14 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Options.Editing = False
Width = 80
end
object cxgrdbclmnTv1Column14: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@ -794,7 +810,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
State = cbChecked
TabOrder = 5
end
object BCIOID: TEdit
object PCID: TEdit
Tag = 2
Left = 972
Top = 6

4
T03贸易布匹检验/U_TradeClothInspList.pas
View File

@ -50,7 +50,7 @@ type
C_Color: TEdit;
IsJYTime: TCheckBox;
lbl1: TLabel;
BCIOID: TEdit;
PCID: TEdit;
btnJYBG: TToolButton;
Label16: TLabel;
CIMachNo: TEdit;
@ -116,6 +116,8 @@ type
btn3: TButton;
btn2: TButton;
edt1: TEdit;
cxgrdbclmnTv1Column13: TcxGridDBColumn;
cxgrdbclmnTv1Column14: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);

180
T03贸易布匹检验/U_TradeMachInsp.dfm
View File

@ -7,6 +7,8 @@
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitLeft = -63
ExplicitTop = -140
ExplicitWidth = 1556
ExplicitHeight = 810
PixelsPerInch = 96
@ -22,9 +24,9 @@
TabOrder = 4
object Panel2: TPanel
Left = 1
Top = 185
Top = 183
Width = 415
Height = 585
Height = 587
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
@ -184,7 +186,7 @@
end
object MaxQty: TLabel
Left = 2
Top = 299
Top = 281
Width = 62
Height = 34
Caption = #38271#24230
@ -520,17 +522,17 @@
Left = 1
Top = 1
Width = 415
Height = 184
Height = 182
Align = alTop
Color = clWhite
ParentBackground = False
TabOrder = 0
object Label22: TLabel
Left = 8
Top = 142
Top = 102
Width = 51
Height = 38
Caption = #25104#21697#13#10#38376#24133#65306
Caption = #35746#21333#13#10#38376#24133#65306
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
@ -539,11 +541,11 @@
ParentFont = False
end
object Label13: TLabel
Left = 207
Top = 148
Left = 204
Top = 102
Width = 51
Height = 19
Caption = #20811#37325#65306
Height = 38
Caption = #35746#21333#13#10#20811#37325#65306
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
@ -565,7 +567,7 @@
ParentFont = False
end
object Label25: TLabel
Left = 207
Left = 206
Top = 53
Width = 51
Height = 19
@ -605,7 +607,7 @@
end
object Label28: TLabel
Left = 8
Top = 116
Top = 185
Width = 51
Height = 19
Caption = #21345#21495#65306
@ -615,10 +617,11 @@
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label24: TLabel
Left = 207
Top = 81
Left = 213
Top = 189
Width = 51
Height = 19
Caption = #25104#20998#65306
@ -628,10 +631,11 @@
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object lbl2: TLabel
Left = 204
Top = 113
Top = 82
Width = 51
Height = 19
Caption = #24067#31080#65306
@ -642,9 +646,35 @@
Font.Style = [fsBold]
ParentFont = False
end
object lbl5: TLabel
Left = 204
Top = 148
Width = 51
Height = 19
Caption = #20811#37325#65306
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object lbl6: TLabel
Left = 8
Top = 147
Width = 51
Height = 19
Caption = #38376#24133#65306
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object GramWeight: TEdit
Left = 248
Top = 145
Top = 111
Width = 144
Height = 24
Font.Charset = ANSI_CHARSET
@ -658,7 +688,7 @@
end
object Width: TEdit
Left = 53
Top = 146
Top = 111
Width = 144
Height = 24
Font.Charset = ANSI_CHARSET
@ -745,7 +775,7 @@
end
object BCIOID: TEdit
Left = 53
Top = 115
Top = 184
Width = 144
Height = 24
Font.Charset = ANSI_CHARSET
@ -756,8 +786,24 @@
ParentFont = False
ReadOnly = True
TabOrder = 7
Visible = False
end
object Composition: TEdit
Left = 257
Top = 184
Width = 144
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 8
Visible = False
end
object PCID: TEdit
Left = 248
Top = 81
Width = 144
@ -769,21 +815,35 @@
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 8
TabOrder = 9
end
object PCID: TEdit
object Edit7: TEdit
Left = 248
Top = 112
Top = 144
Width = 144
Height = 24
Height = 27
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Color = clRed
Font.Height = -17
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 9
TabOrder = 10
end
object Edit8: TEdit
Left = 54
Top = 144
Width = 144
Height = 27
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -17
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 11
end
end
end
@ -2190,7 +2250,6 @@
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Header = DataLink_TradeInsp.Default
object v3Column1: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'PieceNo'
@ -2199,16 +2258,8 @@
Options.Editing = False
Width = 40
end
object Tv3Column3: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 62
end
object Tv3Column1: TcxGridDBColumn
Caption = #31859#25968
Caption = #20928#31859#25968
DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@ -2223,6 +2274,22 @@
Options.Editing = False
Width = 60
end
object cxgrdbclmnTv3Column6: TcxGridDBColumn
Caption = #27611#31859#25968
DataBinding.FieldName = 'GrossMeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv3Column3: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 62
end
object v3Column5: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'NetWeight'
@ -2276,6 +2343,12 @@
Width = 293
Height = 193
Align = alBottom
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
@ -2292,6 +2365,12 @@
Width = 289
Height = 169
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -25
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
@ -2319,8 +2398,8 @@
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Footer = DataLink_TradeInsp.Default
Styles.Header = DataLink_TradeInsp.Default
Styles.Selection = DataLink_TradeInsp.cxStyle1
object tv2CDType: TcxGridDBColumn
Caption = #30133#28857#21517#31216
DataBinding.FieldName = 'CIFName'
@ -2328,7 +2407,8 @@
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Options.Sorting = False
Width = 75
Styles.Content = DataLink_TradeInsp.cxStyle1
Width = 99
end
object tv2CDWZ: TcxGridDBColumn
Caption = #20301#32622#36215
@ -2338,14 +2418,14 @@
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Sorting = False
Styles.Content = cxStyle1
Styles.Header = cxStyle1
Width = 52
Styles.Content = DataLink_TradeInsp.cxStyle1
Width = 87
end
object v2Column2: TcxGridDBColumn
Caption = #20301#32622#27490
DataBinding.FieldName = 'CIFend'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Styles.Content = cxStyle1
@ -2357,6 +2437,7 @@
DataBinding.FieldName = 'CIFQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 46
@ -2382,6 +2463,7 @@
Caption = #25187#20998
DataBinding.FieldName = 'CIFPoints'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 54
@ -2392,7 +2474,8 @@
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 36
Styles.Content = DataLink_TradeInsp.cxStyle1
Width = 70
end
end
object cxGridLevel1: TcxGridLevel
@ -2435,8 +2518,6 @@
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Footer = DataLink_TradeInsp.Default
Styles.Header = DataLink_TradeInsp.Default
object cxGridDBColumn2: TcxGridDBColumn
Caption = #30133#28857#21517#31216
DataBinding.FieldName = 'CIFName'
@ -2444,7 +2525,7 @@
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Options.Sorting = False
Width = 75
Width = 104
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #20301#32622#36215
@ -2454,14 +2535,13 @@
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Sorting = False
Styles.Content = cxStyle1
Styles.Header = cxStyle1
Width = 52
Width = 91
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #20301#32622#27490
DataBinding.FieldName = 'CIFend'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Styles.Content = cxStyle1
@ -2473,6 +2553,7 @@
DataBinding.FieldName = 'CIFQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 46
@ -2498,6 +2579,7 @@
Caption = #25187#20998
DataBinding.FieldName = 'CIFPoints'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 54
@ -2508,7 +2590,7 @@
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 36
Width = 60
end
end
object cxGridLevel3: TcxGridLevel
@ -2595,7 +2677,7 @@
end
object Panel3: TPanel [4]
Left = 3
Top = 474
Top = 479
Width = 413
Height = 207
BevelInner = bvRaised

48
T03贸易布匹检验/U_TradeMachInsp.pas
View File

@ -307,6 +307,11 @@ type
lbl4: TLabel;
edtKJ: TEdit;
btn1: TButton;
lbl5: TLabel;
Edit7: TEdit;
lbl6: TLabel;
Edit8: TEdit;
cxgrdbclmnTv3Column6: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
@ -426,12 +431,9 @@ begin
AOrdDefNote1.Text := AOrdDefNote1.Text + '流程卡:' + FBCIOID + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '品名:' + FC_Name + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '门幅:' + FC_Width + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + 'Å÷²¼¿ËÖØ:' + FC_KnitGramWeight + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '成品克重:' + FC_GramWeight + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '颜色:' + FC_Color + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '成分:' + FC_Composition + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + 'ÌỨ:' + FC_Figure + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + 'ÃæÉ´:' + FC_Yarn + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '上称毛重:' + FRuleBeforeTare + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '不上称皮重:' + FRuleLaterTare + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '业务员:' + FYWY + #13;
@ -572,7 +574,6 @@ end;
procedure TfrmTradeMachInsp.QuantityConversion();
begin
if lblRuleConversion.Caption = '米转公斤' then
begin
InputWeight.Text := floattostr(StrToFloatdef(trim(InputLen.Text), 0) * StrToFloatdef(trim(Coefficient.Text), 0) + StrToFloatdef(FRuleBeforeTare, 0));
@ -591,6 +592,15 @@ begin
MaxQty.Caption := InputLen.text;
end;
if (StrToFloatdef(inputWeight.Text, 0) > 0) and (StrToFloatdef(MaxQty.Caption, 0) > 0) and (Width.text <> '') and (GramWeight.Text <> '') then
begin
Edit7.Text := FormatFloat('0.0', (((StrToFloatdef(inputWeight.Text, 0) - StrToFloatdef(FRuleBeforeTare, 0)) * 1000) / ((StrToFloatdef(copy(Width.Text, 1, 3), 0) / 100) * (StrToFloatdef(MaxQty.Caption, 0) - StrToFloatDef(DelQty.Text, 0)))));
end
else
begin
Edit7.Text := '';
end;
end;
function TfrmTradeMachInsp.CheckData(CKType: string): Boolean;
@ -1014,6 +1024,7 @@ begin
FC_Composition := Trim(ADOTmp.fieldbyname('C_Composition').AsString);
FLoom := Trim(ADOTmp.fieldbyname('Loom').AsString);
FC_Width := Trim(ADOTmp.fieldbyname('C_Width').AsString);
Edit8.Text := copy(Trim(ADOTmp.fieldbyname('C_Width').AsString), 1, 3);
FC_GramWeight := Trim(ADOTmp.fieldbyname('C_GramWeight').AsString);
FRulePieceNo := Trim(ADOTmp.fieldbyname('RulePieceNo').AsString); //卷号生成规则
FYWY := Trim(ADOTmp.fieldbyname('Saleser').AsString); //业务员
@ -1303,7 +1314,7 @@ begin
begin
Close;
SQL.Clear;
sql.Add('select A.*');
sql.Add('select GrossMeter=DelQty+Meter,A.*');
sql.Add('from Trade_Cloth_Inspect A where Filler=''' + Trim(DName) + '''');
sql.Add('and CONVERT(VARCHAR(10),A.FillTime,120) =CONVERT(VARCHAR(10),getdate(),120) ');
// sql.Add('from Trade_Cloth_Inspect A where BCIOID=''' + Trim(FBCIOID) + '''');
@ -1316,11 +1327,35 @@ begin
end;
procedure TfrmTradeMachInsp.FormShow(Sender: TObject);
var
I: INTEGER;
begin
inherited;
ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, '贸易检验管理');
ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, '贸易检验管理');
ReadCxGrid(trim(Self.Caption) + 'Tv3', Tv3, '贸易检验管理');
// 设置整个网格的默认字体
// cxGrid1.Font.Size := 19;
// cxGrid2.Font.Size := 19;
// cxGrid3.Font.Size := 19;
// 2. 强制所有列继承全局样式（覆盖列独立设置）
for I := 0 to TV2.ColumnCount - 1 do
begin
TV2.Columns[I].Styles.Content := DataLink_TradeInsp.cxStyle1;
TV2.Columns[I].Styles.Header := DataLink_TradeInsp.cxStyle1;
end;
TV2.Styles.selection := DataLink_TradeInsp.cxStyle1;
// for i := 0 to TV2.ColumnCount - 1 do
// begin
// // 设置列内容字体
// TV2.Columns[i].Styles.Content.Font.Size := 10;
// TV2.Columns[i].Styles.Content.Font.Name := '微软雅黑';
//
// // 设置列表头字体
// TV2.Columns[i].Styles.Header.Font.Size := 12;
// TV2.Columns[i].Styles.Header.Font.Name := '宋体';
// end;
fFlileFlag := UserDataFlag + 'HX';
InitCDPanel();
InitCDGrid(FCIID);
@ -2079,7 +2114,7 @@ begin
// else
FieldByName('CIFName').Value := Trim(TSpeedButton(Sender).Hint);
FieldByName('CIFbeg').Value := Trim(InputLen.Text);
FieldByName('CIFEnd').Value := Trim(InputLen.Text);
FieldByName('CIFEnd').Value := 0;
FieldByName('CIFNumber').Value := 1;
FieldByName('CIFPoints').Value := 0;
@ -2098,6 +2133,7 @@ begin
Post;
end;
EDTSCAN.SetFocus();
end;
procedure TfrmTradeMachInsp.cxDBImage1DblClick(Sender: TObject);

BIN
进度统计查询(Statistics.dll)/Statistics.identcache
View File

Binary file not shown.