This commit is contained in:
“username” 2025-05-04 14:54:15 +08:00
parent 16f469112b
commit 8f3d8d1cc5
52 changed files with 3729 additions and 444 deletions

View File

@ -120,6 +120,7 @@ inherited frmUserSel: TfrmUserSel
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -136,6 +137,7 @@ inherited frmUserSel: TfrmUserSel
object VC_SSel: TcxGridDBColumn object VC_SSel: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -143,21 +145,24 @@ inherited frmUserSel: TfrmUserSel
end end
object v2Column1: TcxGridDBColumn object v2Column1: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'UserID' DataBinding.FieldName = 'EECode'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 76 Width = 76
end end
object v2Column2: TcxGridDBColumn object v2Column2: TcxGridDBColumn
Caption = #21517#31216 Caption = #21517#31216
DataBinding.FieldName = 'UserName' DataBinding.FieldName = 'EEName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 171 Width = 171
end end
object v2Column3: TcxGridDBColumn object v2Column3: TcxGridDBColumn
Caption = #37096#38376 Caption = #37096#38376
DataBinding.FieldName = 'Udept' DataBinding.FieldName = 'dept'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 71 Width = 71

View File

@ -14,7 +14,7 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDBLookupComboBox, ComObj, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxDBLookupComboBox, ComObj, cxLookAndFeels, cxLookAndFeelPainters,
dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, U_BaseHelp, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, U_BaseHelp,
dxBarBuiltInMenu, System.ImageList, Vcl.ImgList; dxBarBuiltInMenu, System.ImageList, Vcl.ImgList, dxScrollbarAnnotations;
type type
FdDy = record FdDy = record
@ -86,11 +86,11 @@ begin
Filtered := False; Filtered := False;
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add(' select * from SY_User where 1=1 '); sql.Add(' select * from SY_Employee where 1=1 ');
if Trim(Fdept) <> '' then if Trim(Fdept) <> '' then
begin begin
sql.Add('and Udept=' + QuotedStr(Trim(Fdept))); sql.Add('and dept=' + QuotedStr(Trim(Fdept)));
end; end;
Open; Open;
end; end;

View File

@ -1,31 +1,31 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.140,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.591,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.441,D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.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.449,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.449,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.558,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.558,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.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.853,D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.853,D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.591,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.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.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.402,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.402,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.441,D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.481,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.140,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.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.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.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.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.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.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.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.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.169,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.169,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.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.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.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.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction>
<Transaction>2025-03-20 14:16:07.481,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -56,7 +56,7 @@
<File Path="fmx.dex.jar"/> <File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/> <File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/> <File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10gmbitao"/> <File Path="..\..\D10gmBitao"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>

View File

@ -55,7 +55,7 @@ object frmCustInput: TfrmCustInput
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1313 Width = 1313
Height = 227 Height = 250
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
@ -71,7 +71,6 @@ object frmCustInput: TfrmCustInput
ParentCtl3D = False ParentCtl3D = False
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ExplicitLeft = -1
object Label2: TLabel object Label2: TLabel
Left = 12 Left = 12
Top = 35 Top = 35
@ -100,7 +99,7 @@ object frmCustInput: TfrmCustInput
end end
object Label7: TLabel object Label7: TLabel
Left = 38 Left = 38
Top = 146 Top = 180
Width = 26 Width = 26
Height = 12 Height = 12
Caption = #22791#27880 Caption = #22791#27880
@ -125,8 +124,8 @@ object frmCustInput: TfrmCustInput
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 38 Left = 39
Top = 75 Top = 110
Width = 26 Width = 26
Height = 12 Height = 12
Caption = #22320#22336 Caption = #22320#22336
@ -189,6 +188,32 @@ object frmCustInput: TfrmCustInput
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object lbl1: TLabel
Left = 3
Top = 72
Width = 78
Height = 12
Caption = #23458#25143#40664#35748#26631#31614
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object lbl2: TLabel
Left = 236
Top = 74
Width = 47
Height = 12
Caption = #30382' '#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object CoName: TEdit object CoName: TEdit
Tag = 2 Tag = 2
Left = 294 Left = 294
@ -200,7 +225,7 @@ object frmCustInput: TfrmCustInput
object CoNote: TMemo object CoNote: TMemo
Tag = 2 Tag = 2
Left = 71 Left = 71
Top = 142 Top = 176
Width = 1037 Width = 1037
Height = 57 Height = 57
ScrollBars = ssVertical ScrollBars = ssVertical
@ -216,16 +241,17 @@ object frmCustInput: TfrmCustInput
end end
object CoCode: TEdit object CoCode: TEdit
Tag = 2 Tag = 2
Left = 71 Left = 84
Top = 31 Top = 31
Width = 140 Width = 140
Height = 20 Height = 20
ReadOnly = True
TabOrder = 0 TabOrder = 0
end end
object CoAddress: TMemo object CoAddress: TMemo
Tag = 2 Tag = 2
Left = 71 Left = 71
Top = 72 Top = 106
Width = 1036 Width = 1036
Height = 57 Height = 57
ScrollBars = ssVertical ScrollBars = ssVertical
@ -283,7 +309,7 @@ object frmCustInput: TfrmCustInput
Left = 1162 Left = 1162
Top = 68 Top = 68
Width = 140 Width = 140
Height = 22 Height = 20
Hint = 'Saleser/'#19994#21153#21592 Hint = 'Saleser/'#19994#21153#21592
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -305,23 +331,59 @@ object frmCustInput: TfrmCustInput
TabOrder = 9 TabOrder = 9
Visible = False Visible = False
end end
object Code: TEdit
Tag = 1
Left = 1161
Top = 128
Width = 140
Height = 20
TabOrder = 10
Visible = False
end
object LabPackage: TBtnEditC
Tag = 2
Left = 87
Top = 68
Width = 140
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 11
OnBtnUpClick = cocountryBtnUpClick
OnBtnDnClick = cocountryBtnDnClick
end
object RuleBeforeTare: TEdit
Tag = 2
Left = 294
Top = 70
Width = 140
Height = 20
TabOrder = 12
end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 265 Top = 288
Width = 1313 Width = 1313
Height = 378 Height = 355
Align = alClient Align = alClient
Caption = 'Panel1' Caption = 'Panel1'
TabOrder = 2 TabOrder = 2
ExplicitTop = 265
ExplicitHeight = 378
object Panel3: TPanel object Panel3: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1311 Width = 1311
Height = 376 Height = 353
Align = alClient Align = alClient
Caption = 'Panel1' Caption = 'Panel1'
TabOrder = 0 TabOrder = 0
ExplicitHeight = 376
object ToolBar3: TToolBar object ToolBar3: TToolBar
Tag = 1 Tag = 1
Left = 1 Left = 1
@ -368,10 +430,11 @@ object frmCustInput: TfrmCustInput
Left = 1 Left = 1
Top = 39 Top = 39
Width = 1309 Width = 1309
Height = 336 Height = 313
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
TabOrder = 1 TabOrder = 1
ExplicitHeight = 336
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -471,7 +534,7 @@ object frmCustInput: TfrmCustInput
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_Company.ADOLink Connection = DataLink_Company.ADOLink
Parameters = <> Parameters = <>
Left = 830 Left = 831
Top = 192 Top = 192
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery

View File

@ -63,6 +63,11 @@ type
Label5: TLabel; Label5: TLabel;
Saleser: TBtnEditC; Saleser: TBtnEditC;
Salesid: TEdit; Salesid: TEdit;
Code: TEdit;
lbl1: TLabel;
LabPackage: TBtnEditC;
lbl2: TLabel;
RuleBeforeTare: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -91,7 +96,7 @@ var
implementation implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_YGSel, U_UserSel; U_DataLink, U_RTFun, U_ZDYHelp, U_YGSel, U_UserSel, U_TradeInspSet;
{$R *.dfm} {$R *.dfm}
@ -140,25 +145,18 @@ begin
end; end;
procedure TfrmCustInput.cocountryBtnUpClick(Sender: TObject); procedure TfrmCustInput.cocountryBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin begin
fsj := Trim(TEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try try
frmZDYHelp := TfrmZDYHelp.Create(Application); frmTradeInspSet := TfrmTradeInspSet.Create(Application);
with frmZDYHelp do with frmTradeInspSet do
begin begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then if ShowModal = 1 then
begin begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); self.LabPackage.Text := Trim(frmTradeInspSet.CDS_Label.fieldbyname('LabelCaption').AsString);
end; end;
end; end;
finally finally
frmZDYHelp.Free; frmTradeInspSet.Free;
end; end;
end; end;
@ -182,19 +180,17 @@ var
begin begin
ReadCxGrid(trim(self.Caption) + 'TV2', Tv2, '供应商管理'); ReadCxGrid(trim(self.Caption) + 'TV2', Tv2, '供应商管理');
InitGrid(); InitGrid();
if trim(FCOID) = '' then // if trim(FCOID) = '' then
begin // begin
with ADOQueryTemp do // with ADOQueryTemp do
begin // begin
Close; // Close;
sql.Clear; // sql.Clear;
sql.Add(' exec P_BS_Com_Get_No @Str=''K'' '); // sql.Add(' exec P_BS_Com_Get_No @Str=''K'' ');
Open; // Open;
end; // end;
CoCode.Text := trim(ADOQueryTemp.FieldByName('NewCoCode').asstring); // CoCode.Text := trim(ADOQueryTemp.FieldByName('NewCoCode').asstring);
end; // end;
//已审核的也要能修改保存,不能修改主表内容,只能改下面两部分 //已审核的也要能修改保存,不能修改主表内容,只能改下面两部分
// with ADOQueryTemp do // with ADOQueryTemp do
// begin // begin
@ -223,8 +219,20 @@ begin
Fdept := '业务'; Fdept := '业务';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
SalesId.Text := Trim(CDS_1.fieldbyname('UserID').AsString); SalesId.Text := Trim(CDS_1.fieldbyname('EECode').AsString);
Saleser.Text := Trim(CDS_1.fieldbyname('UserName').AsString); Saleser.Text := Trim(CDS_1.fieldbyname('EEName').AsString);
Code.Text := Trim(CDS_1.fieldbyname('UserCode').AsString);
// if trim(FCOID) = '' then
// begin
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add(' exec P_BS_Com_Get_No @Str=''K'' ');
// Open;
// end;
// CoCode.Text := trim(ADOQueryTemp.FieldByName('NewCoCode').asstring);
// end;
end; end;
end; end;
finally finally
@ -234,7 +242,7 @@ end;
function TfrmCustInput.SaveData(): Boolean; function TfrmCustInput.SaveData(): Boolean;
var var
MaxId, MaxSubId, FCoCode, FCCID: string; MaxId, MaxSubId, FCoCode, FCCID, MaxCodeId: string;
begin begin
try try
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
@ -248,17 +256,14 @@ begin
Exit; Exit;
end; end;
if trim(CoCode.Text) = '' then if GetLSNo(ADOQueryCmd, MaxCodeId, Code.Text, 'BS_Company', 3, 0) = False then
begin begin
with ADOQueryTemp do Result := False;
begin ADOQueryCmd.Connection.RollbackTrans;
Close; Application.MessageBox('取最大号失败!', '提示', 0);
sql.Clear; Exit;
sql.Add(' exec P_BS_Com_Get_No @Str=''K'' ');
Open;
end;
CoCode.Text := trim(ADOQueryTemp.FieldByName('NewCoCode').asstring);
end; end;
Cocode.Text := Trim(MaxCodeId);
end end
else else
begin begin
@ -431,6 +436,11 @@ begin
Application.MessageBox('名称不能为空!', '提示', 0); Application.MessageBox('名称不能为空!', '提示', 0);
Exit; Exit;
end; end;
if Trim(Saleser.Text) = '' then
begin
Application.MessageBox('业务员不能为空!', '提示', 0);
Exit;
end;
if SaveData() then if SaveData() then
begin begin
Application.MessageBox('保存成功!', '提示', 0); Application.MessageBox('保存成功!', '提示', 0);

View File

@ -352,6 +352,22 @@ inherited frmCustomer: TfrmCustomer
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object cxgrdbclmnTv1Column7: TcxGridDBColumn
Caption = #23458#25143#40664#35748#26631#31614
DataBinding.FieldName = 'LabPackage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object cxgrdbclmnTv1Column8: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'RuleBeforeTare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = Tv1 GridView = Tv1

View File

@ -78,6 +78,8 @@ type
ToolButton1: TToolButton; ToolButton1: TToolButton;
GPM_2: TcxGridPopupMenu; GPM_2: TcxGridPopupMenu;
ToolButton3: TToolButton; ToolButton3: TToolButton;
cxgrdbclmnTv1Column7: TcxGridDBColumn;
cxgrdbclmnTv1Column8: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

View File

@ -80,6 +80,7 @@ object frmYGInPut: TfrmYGInPut
TabOrder = 1 TabOrder = 1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -92,24 +93,28 @@ object frmYGInPut: TfrmYGInPut
object v1RuZhiDate: TcxGridDBColumn object v1RuZhiDate: TcxGridDBColumn
Caption = #20837#32844#26085#26399 Caption = #20837#32844#26085#26399
DataBinding.FieldName = 'EntryDate' DataBinding.FieldName = 'EntryDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object v1YGNo: TcxGridDBColumn object v1YGNo: TcxGridDBColumn
Caption = #21592#24037#32534#21495 Caption = #21592#24037#32534#21495
DataBinding.FieldName = 'EECode' DataBinding.FieldName = 'EECode'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 75 Width = 75
end end
object v1YGName: TcxGridDBColumn object v1YGName: TcxGridDBColumn
Caption = #22995#21517 Caption = #22995#21517
DataBinding.FieldName = 'EEName' DataBinding.FieldName = 'EEName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 88 Width = 88
end end
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #37096#38376 Caption = #37096#38376
DataBinding.FieldName = 'Dept' DataBinding.FieldName = 'Dept'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
@ -117,18 +122,21 @@ object frmYGInPut: TfrmYGInPut
object v1GangWei: TcxGridDBColumn object v1GangWei: TcxGridDBColumn
Caption = #23703#20301 Caption = #23703#20301
DataBinding.FieldName = 'Post' DataBinding.FieldName = 'Post'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 82 Width = 82
end end
object v1SFZNo: TcxGridDBColumn object v1SFZNo: TcxGridDBColumn
Caption = #29983#26085 Caption = #29983#26085
DataBinding.FieldName = 'Birthday' DataBinding.FieldName = 'Birthday'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object v1YGSex: TcxGridDBColumn object v1YGSex: TcxGridDBColumn
Caption = #24615#21035 Caption = #24615#21035
DataBinding.FieldName = 'Sex' DataBinding.FieldName = 'Sex'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
@ -140,15 +148,24 @@ object frmYGInPut: TfrmYGInPut
object v1Phone: TcxGridDBColumn object v1Phone: TcxGridDBColumn
Caption = #25163#26426 Caption = #25163#26426
DataBinding.FieldName = 'Phone' DataBinding.FieldName = 'Phone'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 91 Width = 91
end end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #36523#20221#35777 Caption = #36523#20221#35777
DataBinding.FieldName = 'IdCard' DataBinding.FieldName = 'IdCard'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 73 Width = 73
end end
object cxgrdbclmnTv1Column2: TcxGridDBColumn
Caption = #19994#21153#32534#21495
DataBinding.FieldName = 'UserCode'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

View File

@ -12,7 +12,7 @@ uses
cxDropDownEdit, jpeg, IdBaseComponent, IdComponent, IdTCPConnection, cxDropDownEdit, jpeg, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, Menus, IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, Menus,
ExtDlgs, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, ExtDlgs, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu; dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, dxScrollbarAnnotations;
type type
TfrmYGInPut = class(TForm) TfrmYGInPut = class(TForm)
@ -40,6 +40,7 @@ type
v1SFZNo: TcxGridDBColumn; v1SFZNo: TcxGridDBColumn;
v1YGNo: TcxGridDBColumn; v1YGNo: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
cxgrdbclmnTv1Column2: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -210,11 +211,13 @@ var
FSFNO: string; FSFNO: string;
begin begin
ToolBar1.SetFocus; ToolBar1.SetFocus;
if Order_Sub.Locate('IdCard', '', []) = true then if Order_Sub.IsEmpty then
begin Exit;
application.MessageBox('身份证不能为空', '提示'); // if Order_Sub.Locate('IdCard', null, []) = true then
exit; // begin
end; // application.MessageBox('身份证不能为空', '提示');
// exit;
// end;
if SaveData() then if SaveData() then
begin begin
Application.MessageBox('±£´æ³É¹¦£¡', 'Ìáʾ', 0); Application.MessageBox('±£´æ³É¹¦£¡', 'Ìáʾ', 0);

View File

@ -292,6 +292,7 @@ inherited frmEmployeeList: TfrmEmployeeList
OptionsView.CellAutoHeight = True OptionsView.CellAutoHeight = True
OptionsView.Headers = False OptionsView.Headers = False
RootValue = -1 RootValue = -1
ScrollbarAnnotations.CustomAnnotations = <>
Styles.Inactive = DataLink_Company.Red Styles.Inactive = DataLink_Company.Red
Styles.Selection = DataLink_Company.Red Styles.Selection = DataLink_Company.Red
Styles.IncSearch = DataLink_Company.Red Styles.IncSearch = DataLink_Company.Red
@ -359,6 +360,7 @@ inherited frmEmployeeList: TfrmEmployeeList
TabOrder = 1 TabOrder = 1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -373,6 +375,7 @@ inherited frmEmployeeList: TfrmEmployeeList
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -381,6 +384,7 @@ inherited frmEmployeeList: TfrmEmployeeList
object v1RuZhiDate: TcxGridDBColumn object v1RuZhiDate: TcxGridDBColumn
Caption = #20837#32844#26085#26399 Caption = #20837#32844#26085#26399
DataBinding.FieldName = 'EntryDate' DataBinding.FieldName = 'EntryDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 84 Width = 84
@ -388,6 +392,7 @@ inherited frmEmployeeList: TfrmEmployeeList
object v1YGNo: TcxGridDBColumn object v1YGNo: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'EECode' DataBinding.FieldName = 'EECode'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -395,6 +400,7 @@ inherited frmEmployeeList: TfrmEmployeeList
object v1YGName: TcxGridDBColumn object v1YGName: TcxGridDBColumn
Caption = #22995#21517 Caption = #22995#21517
DataBinding.FieldName = 'EEName' DataBinding.FieldName = 'EEName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 88 Width = 88
@ -402,6 +408,7 @@ inherited frmEmployeeList: TfrmEmployeeList
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #37096#38376 Caption = #37096#38376
DataBinding.FieldName = 'Dept' DataBinding.FieldName = 'Dept'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -415,6 +422,7 @@ inherited frmEmployeeList: TfrmEmployeeList
object v1Column2: TcxGridDBColumn object v1Column2: TcxGridDBColumn
Caption = #23703#20301 Caption = #23703#20301
DataBinding.FieldName = 'Post' DataBinding.FieldName = 'Post'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 82 Width = 82
@ -422,6 +430,7 @@ inherited frmEmployeeList: TfrmEmployeeList
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn
Caption = #31867#21035 Caption = #31867#21035
DataBinding.FieldName = 'EEType' DataBinding.FieldName = 'EEType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 78 Width = 78
@ -429,6 +438,7 @@ inherited frmEmployeeList: TfrmEmployeeList
object v1SFZNo: TcxGridDBColumn object v1SFZNo: TcxGridDBColumn
Caption = #36523#20221#35777#21495 Caption = #36523#20221#35777#21495
DataBinding.FieldName = 'IdCard' DataBinding.FieldName = 'IdCard'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -436,6 +446,7 @@ inherited frmEmployeeList: TfrmEmployeeList
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #24615#21035 Caption = #24615#21035
DataBinding.FieldName = 'Sex' DataBinding.FieldName = 'Sex'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 85 Width = 85
@ -443,6 +454,7 @@ inherited frmEmployeeList: TfrmEmployeeList
object v1Column29: TcxGridDBColumn object v1Column29: TcxGridDBColumn
Caption = #25163#26426 Caption = #25163#26426
DataBinding.FieldName = 'Phone' DataBinding.FieldName = 'Phone'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 91 Width = 91
@ -450,6 +462,7 @@ inherited frmEmployeeList: TfrmEmployeeList
object v1SJLiZhiDate: TcxGridDBColumn object v1SJLiZhiDate: TcxGridDBColumn
Caption = #31163#32844#26085#26399 Caption = #31163#32844#26085#26399
DataBinding.FieldName = 'SJLiZhiDate' DataBinding.FieldName = 'SJLiZhiDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False Properties.SaveTime = False
Properties.ShowTime = False Properties.ShowTime = False
@ -461,9 +474,18 @@ inherited frmEmployeeList: TfrmEmployeeList
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #31163#32844#26102#38388 Caption = #31163#32844#26102#38388
DataBinding.FieldName = 'DepartureDate' DataBinding.FieldName = 'DepartureDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 69 Width = 69
end end
object cxgrdbclmnTv1Column2: TcxGridDBColumn
Caption = #19994#21153#32534#21495
DataBinding.FieldName = 'UserCode'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

View File

@ -12,7 +12,8 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
cxDropDownEdit, cxPC, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL, cxTLData, cxDropDownEdit, cxPC, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL, cxTLData,
cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, dxBarBuiltInMenu, cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, dxBarBuiltInMenu,
cxNavigator, U_BaseList, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges; cxNavigator, U_BaseList, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
dxScrollbarAnnotations;
type type
TfrmEmployeeList = class(TfrmBaseList) TfrmEmployeeList = class(TfrmBaseList)
@ -79,6 +80,7 @@ type
ToolButton2: TToolButton; ToolButton2: TToolButton;
v1Column4: TcxGridDBColumn; v1Column4: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
cxgrdbclmnTv1Column2: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);

View File

@ -0,0 +1,140 @@
object frmLabelInput: TfrmLabelInput
Left = 443
Top = 146
BorderIcons = [biMaximize]
Caption = #26631#31614#32534#36753
ClientHeight = 282
ClientWidth = 420
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel
Left = 0
Top = 38
Width = 420
Height = 244
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object Label3: TLabel
Left = 34
Top = 63
Width = 60
Height = 12
Caption = #22791' '#27880#65306
end
object Label9: TLabel
Left = 34
Top = 41
Width = 60
Height = 12
Caption = #26631#31614#21517#31216#65306
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 34
Top = 15
Width = 60
Height = 12
Caption = #26631#31614#31867#22411#65306
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object note: TMemo
Tag = 1
Left = 92
Top = 61
Width = 257
Height = 149
ScrollBars = ssBoth
TabOrder = 1
end
object LabelCaption: TEdit
Tag = 1
Left = 92
Top = 37
Width = 258
Height = 20
TabOrder = 0
end
object LabelType: TComboBox
Tag = 1
Left = 92
Top = 13
Width = 257
Height = 22
Style = csOwnerDrawFixed
TabOrder = 2
Items.Strings = (
#20013#25991#26631#31614
#33521#25991#26631#31614
#20013#33521#25991#26631#31614)
end
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 420
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar2'
Color = clBtnFace
Images = DataLink_Company.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
Transparent = False
object Tsave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384#26631#31614
ImageIndex = 16
OnClick = TsaveClick
end
object Tclose: TToolButton
Left = 95
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TcloseClick
end
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Company.ADOLink
CommandTimeout = 300
Parameters = <>
Left = 32
Top = 180
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_Company.ADOLink
LockType = ltReadOnly
CommandTimeout = 300
Parameters = <>
Left = 32
Top = 120
end
end

View File

@ -0,0 +1,178 @@
unit U_LabelInput;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, StdCtrls, BtnEdit, ExtCtrls, DB, ADODB, RM_System,
RM_Common, RM_Class, RM_GridReport, Buttons, RTComboBox, RM_Preview, RM_e_Xls,
RM_e_Graphic, RM_e_bmp, RM_BarCode, RM_DsgGridReport, RM_Dataset, cxStyles,
cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData,
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid;
type
TfrmLabelInput = class(TForm)
Panel1: TPanel;
Label3: TLabel;
note: TMemo;
ToolBar1: TToolBar;
Tsave: TToolButton;
Tclose: TToolButton;
ADOQueryCmd: TADOQuery;
Label9: TLabel;
LabelCaption: TEdit;
Label10: TLabel;
ADOQueryTmp: TADOQuery;
LabelType: TComboBox;
procedure TcloseClick(Sender: TObject);
procedure TsaveClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
function SaveData(): Boolean;
procedure InitWinData();
public
FLabelId: string;
end;
var
frmLabelInput: TfrmLabelInput;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmLabelInput.TcloseClick(Sender: TObject);
begin
close;
end;
procedure TfrmLabelInput.TsaveClick(Sender: TObject);
begin
if trim(labelCaption.Text) = '' then
begin
application.MessageBox('标签名称不能为空!', '提示');
labelCaption.SetFocus;
exit;
end;
if trim(LabelCaption.Text) = '' then
begin
application.MessageBox('标签类型不能为空!', '提示');
exit;
end;
if SaveData() then
begin
ModalResult := 1;
end;
end;
/////////////////////////////////////////////////////////////////////
//函数功能:保存数据
/////////////////////////////////////////////////////////////////////
function TfrmLabelInput.SaveData(): Boolean;
var
maxno: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
if Trim(FLabelId) = '' then
begin
if GetLSNo(ADOQueryCmd, maxno, 'LB', 'Trade_Label', 3, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败!', '提示', 0);
Exit;
end;
end
else
begin
maxno := Trim(FLabelId);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from Trade_Label where LabelId=''' + Trim(FLabelId) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(FLabelId) = '' then
begin
Append;
FieldByName('FillId').Value := Trim(DCode);
FieldByName('Filler').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTmp);
end
else
begin
Edit;
FieldByName('EditId').Value := Trim(DCode);
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTmp);
end;
RTSetsavedata(ADOQueryCmd, 'Trade_Label', Panel1, 1);
FieldByName('LabelId').Value := Trim(maxno);
Post;
end;
with ADOQueryTmp do
begin
Close;
sql.Clear;
sql.Add('select * from Trade_Label where LabelCaption=''' + Trim(LabelCaption.text) + '''');
Open;
end;
if ADOQueryTmp.RecordCount > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('标签名称重复!', '提示', 0);
Exit;
end;
ADOQueryCmd.Connection.CommitTrans;
result := true;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := false;
application.MessageBox('保存标签模板出错!', '警告信息', 0);
end;
end;
////////////////////////////////////////////////////////////
//初始化窗口数据
////////////////////////////////////////////////////////////
procedure TfrmLabelInput.InitWinData();
begin
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.Add('select A.*');
sql.Add('from Trade_Label A');
sql.Add('WHERE LabelId=' + QuotedStr(FLabelId));
Open;
SCSHData(ADOQueryTmp, panel1, 1);
end;
end;
procedure TfrmLabelInput.FormShow(Sender: TObject);
begin
InitWinData();
end;
end.

View File

@ -0,0 +1,767 @@
inherited frmTradeInspSet: TfrmTradeInspSet
Left = 261
Top = 149
Caption = #25171#21367#21253#35013#35774#32622
ClientHeight = 772
ClientWidth = 1320
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307
OldCreateOrder = True
Position = poScreenCenter
OnClose = FormClose
ExplicitTop = -139
ExplicitWidth = 1336
ExplicitHeight = 811
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1320
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clWhite
Images = DataLink_Company.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton3: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
Visible = False
OnClick = ToolButton3Click
end
object btn2: TToolButton
Left = 71
Top = 0
Caption = #36873#25321
ImageIndex = 12
OnClick = btn2Click
end
object TBClose: TToolButton
Left = 146
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox [1]
Left = 0
Top = 38
Width = 1320
Height = 83
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentCtl3D = False
ParentFont = False
TabOrder = 1
Visible = False
ExplicitTop = 18
object Label14: TLabel
Left = 32
Top = 17
Width = 39
Height = 15
Caption = #21367#26631#31614
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 728
Top = 40
Width = 39
Height = 15
Caption = #21253#26631#31614
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 483
Top = 15
Width = 52
Height = 15
Caption = #19978#31216#30382#37325
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 275
Top = 17
Width = 52
Height = 15
Caption = #31995#25968#31867#22411
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 301
Top = 41
Width = 26
Height = 15
Caption = #31995#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 715
Top = 14
Width = 52
Height = 15
Caption = #21367#21495#35268#21017
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 19
Top = 44
Width = 52
Height = 15
Caption = #38271#24230#21333#20301
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 470
Top = 41
Width = 65
Height = 15
Caption = #19981#19978#31216#30382#37325
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object RuleBeforeTare: TEdit
Tag = 2
Left = 541
Top = 12
Width = 90
Height = 20
TabOrder = 0
end
object RuleConversion: TComboBox
Tag = 2
Left = 333
Top = 13
Width = 100
Height = 22
Style = csDropDownList
ItemIndex = 0
TabOrder = 1
Text = #26080#38656#36716#25442
Items.Strings = (
#26080#38656#36716#25442
#31859#36716#20844#26020
#20928#37325#36716#31859
#27611#37325#36716#31859)
end
object Coefficient: TEdit
Tag = 2
Left = 333
Top = 38
Width = 100
Height = 20
TabOrder = 2
end
object LabVolume: TEdit
Tag = 2
Left = 77
Top = 14
Width = 172
Height = 20
ReadOnly = True
TabOrder = 3
end
object LabPackage: TEdit
Tag = 2
Left = 773
Top = 38
Width = 172
Height = 20
ReadOnly = True
TabOrder = 4
end
object RulePieceNo: TComboBox
Tag = 2
Left = 773
Top = 10
Width = 120
Height = 22
Style = csDropDownList
ItemIndex = 0
TabOrder = 5
Text = #25353#29983#20135#21333#29983#25104
Items.Strings = (
#25353#29983#20135#21333#29983#25104
#25353#32568#21495#29983#25104
#25163#21160#29983#25104)
end
object RuleLenUnit: TComboBox
Tag = 2
Left = 77
Top = 40
Width = 172
Height = 22
Style = csDropDownList
TabOrder = 6
Items.Strings = (
'M'
'Y')
end
object RuleLaterTare: TEdit
Tag = 2
Left = 541
Top = 38
Width = 90
Height = 20
TabOrder = 7
end
end
object cxPageControl1: TcxPageControl [2]
Left = 0
Top = 121
Width = 1320
Height = 651
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 2
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
OnChange = cxPageControl1Change
ExplicitTop = 101
ExplicitHeight = 671
ClientRectBottom = 651
ClientRectRight = 1320
ClientRectTop = 32
object cxTabSheet1: TcxTabSheet
Caption = #26631#31614#35774#32622
ImageIndex = 2
ExplicitHeight = 639
object Panel1: TPanel
Left = 0
Top = 0
Width = 1320
Height = 619
Align = alClient
Caption = 'Panel1'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
ExplicitHeight = 639
object Panel2: TPanel
Left = 1
Top = 39
Width = 376
Height = 579
Align = alLeft
Caption = 'Panel1'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
ExplicitHeight = 599
object cxGridLabel: TcxGrid
Left = 1
Top = 35
Width = 374
Height = 543
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
ExplicitWidth = 369
object TVLabel: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellClick = TVLabelCellClick
DataController.DataSource = DS_Label
DataController.Filter.AutoDataSetFilter = True
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsSelection.CellSelect = False
OptionsView.GroupByBox = False
object TVLabellabelId: TcxGridDBColumn
Caption = #26631#31614'ID'
DataBinding.FieldName = 'labelId'
DataBinding.IsNullValueType = True
Visible = False
Width = 53
end
object TVLabellabeltype: TcxGridDBColumn
Caption = #26631#31614#31867#22411
DataBinding.FieldName = 'labeltype'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 107
end
object TVLabellabelCaption: TcxGridDBColumn
Caption = #26631#31614#21517#31216
DataBinding.FieldName = 'labelCaption'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 261
end
object TVLabellabelFile: TcxGridDBColumn
Caption = #25991#20214#21517
DataBinding.FieldName = 'labelFile'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 167
end
object TVLabelColumn2: TcxGridDBColumn
Caption = #25805#20316#26102#38388
DataBinding.FieldName = 'EditTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object TVLabelColumn1: TcxGridDBColumn
Caption = #25805#20316#20154
DataBinding.FieldName = 'Editer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end
object cxGridLabelLevel1: TcxGridLevel
GridView = TVLabel
end
end
object Panel4: TPanel
Left = 1
Top = 1
Width = 374
Height = 34
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
object Label9: TLabel
Left = 17
Top = 9
Width = 48
Height = 12
Caption = #26631#31614#31867#22411
end
object Label10: TLabel
Left = 184
Top = 10
Width = 48
Height = 12
Caption = #26631#31614#21517#31216
end
object LabelCaption: TEdit
Left = 236
Top = 6
Width = 100
Height = 20
TabOrder = 0
OnChange = LabelTypeChange
end
object LabelType: TRTComboBox
Tag = 99
Left = 69
Top = 6
Width = 100
Height = 20
Style = csDropDownList
ItemIndex = 0
TabOrder = 1
OnChange = LabelTypeChange
Items.Strings = (
''
#20013#25991#26631#31614
#33521#25991#26631#31614
#20013#33521#25991#26631#31614)
end
end
end
object RMPreview3: TRMPreview
Left = 377
Top = 39
Width = 942
Height = 579
Align = alClient
BevelOuter = bvLowered
Caption = 'Insert After'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 1
Options.RulerUnit = rmutScreenPixels
Options.RulerVisible = False
Options.DrawBorder = False
Options.BorderPen.Color = clGray
Options.BorderPen.Style = psDash
ExplicitLeft = 396
ExplicitTop = 207
end
object ToolBar2: TToolBar
Tag = 1
Left = 1
Top = 1
Width = 1318
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 103
Caption = 'ToolBar2'
Color = clBtnFace
Images = DataLink_Company.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 2
Transparent = False
ExplicitTop = 2
object Tadd: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 2
OnClick = TaddClick
end
object btn1: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #22797#21046
ImageIndex = 9
OnClick = btn1Click
end
object Tupd: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
OnClick = TupdClick
end
object ToolButton4: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #35774#35745#26631#31614
ImageIndex = 3
OnClick = ToolButton4Click
end
object Tdel: TToolButton
Left = 308
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TdelClick
end
object ToolButton2: TToolButton
Left = 379
Top = 0
AutoSize = True
Caption = #35774#20026#21253#26631#31614
ImageIndex = 22
Visible = False
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 486
Top = 0
AutoSize = True
Caption = #35774#20026#21367#26631#31614
ImageIndex = 22
Visible = False
OnClick = ToolButton1Click
end
end
end
end
object cxTabSheet4: TcxTabSheet
Caption = ' '#21367#26631#31614' '
ImageIndex = 3
ExplicitHeight = 639
object RMPreview1: TRMPreview
Left = 0
Top = 0
Width = 1320
Height = 619
Align = alClient
BevelOuter = bvLowered
Caption = 'Insert After'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 0
Options.RulerUnit = rmutScreenPixels
Options.RulerVisible = False
Options.DrawBorder = False
Options.BorderPen.Color = clGray
Options.BorderPen.Style = psDash
ExplicitHeight = 639
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Company.ADOLink
Left = 417
Top = 576
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Company.ADOLink
Left = 473
Top = 657
end
inherited ImageList_new32: TImageList
Left = 88
Top = 432
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Company.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 171
Top = 280
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Company.ADOLink
Parameters = <>
Left = 78
Top = 280
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Company.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 181
Top = 489
end
object ADOQueryLabel: TADOQuery
Connection = DataLink_Company.ADOLink
Parameters = <>
Left = 228
Top = 365
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator]
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDB_1
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 472
Top = 240
ReportData = {}
end
object RMDB_1: TRMDBDataSet
Visible = True
DataSet = ADO_1
Left = 428
Top = 244
end
object ADO_1: TADOQuery
Connection = DataLink_Company.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 283
Top = 288
end
object RM2: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator]
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDB_1
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 472
Top = 296
ReportData = {}
end
object RMDB_2: TRMDBDataSet
Visible = True
DataSet = ADO_1
Left = 428
Top = 300
end
object DS_Label: TDataSource
DataSet = CDS_Label
Left = 234
Top = 568
end
object CDS_Label: TClientDataSet
Aggregates = <>
Params = <>
Left = 164
Top = 563
end
object RMDB_Label: TRMDBDataSet
Visible = True
DataSet = ADO_1
Left = 164
Top = 620
end
object RMLabel: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator]
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDB_Label
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 232
Top = 624
ReportData = {}
end
object RMBarCodeObject1: TRMBarCodeObject
Left = 504
Top = 412
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 10
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 432
Top = 472
end
object RMDataDictionary1: TRMDataDictionary
FieldFieldNames.TableName = 'TableName'
FieldFieldNames.FieldName = 'FieldName'
FieldFieldNames.FieldAlias = 'FieldAlias'
Left = 434
Top = 400
end
object ADO_Down: TADOQuery
Connection = DataLink_Company.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 59
Top = 352
end
end

View File

@ -0,0 +1,532 @@
unit U_TradeInspSet;
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, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore, cxDateUtils, cxImage,
cxDBEdit, IdExplicitTLSClientServerBase, RM_Preview, cxPC, U_BaseHelp,
System.ImageList, Vcl.ImgList, RTComboBox, RM_BarCode, RM_e_Xls,
dxScrollbarAnnotations;
type
TfrmTradeInspSet = class(TfrmBaseHelp)
ToolBar1: TToolBar;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ToolButton3: TToolButton;
ScrollBox1: TScrollBox;
Label14: TLabel;
Label1: TLabel;
cxPageControl1: TcxPageControl;
cxTabSheet4: TcxTabSheet;
RMPreview1: TRMPreview;
Label2: TLabel;
RuleBeforeTare: TEdit;
RuleConversion: TComboBox;
Label3: TLabel;
Coefficient: TEdit;
Label4: TLabel;
ADOQueryLabel: TADOQuery;
RM1: TRMGridReport;
RMDB_1: TRMDBDataSet;
ADO_1: TADOQuery;
RM2: TRMGridReport;
RMDB_2: TRMDBDataSet;
cxTabSheet1: TcxTabSheet;
DS_Label: TDataSource;
CDS_Label: TClientDataSet;
RMDB_Label: TRMDBDataSet;
RMLabel: TRMGridReport;
Panel1: TPanel;
Panel2: TPanel;
cxGridLabel: TcxGrid;
TVLabel: TcxGridDBTableView;
TVLabellabelId: TcxGridDBColumn;
TVLabellabeltype: TcxGridDBColumn;
TVLabellabelCaption: TcxGridDBColumn;
TVLabellabelFile: TcxGridDBColumn;
cxGridLabelLevel1: TcxGridLevel;
RMPreview3: TRMPreview;
Panel4: TPanel;
Label9: TLabel;
Label10: TLabel;
LabelCaption: TEdit;
LabelType: TRTComboBox;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
Tadd: TToolButton;
Tupd: TToolButton;
Tdel: TToolButton;
ToolButton4: TToolButton;
RMBarCodeObject1: TRMBarCodeObject;
RMXLSExport1: TRMXLSExport;
RMDataDictionary1: TRMDataDictionary;
ADO_Down: TADOQuery;
TVLabelColumn1: TcxGridDBColumn;
TVLabelColumn2: TcxGridDBColumn;
LabVolume: TEdit;
LabPackage: TEdit;
Label5: TLabel;
RulePieceNo: TComboBox;
Label6: TLabel;
RuleLenUnit: TComboBox;
Label8: TLabel;
RuleLaterTare: TEdit;
btn1: TToolButton;
btn2: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure TupdClick(Sender: TObject);
procedure TdelClick(Sender: TObject);
procedure TaddClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure LabelTypeChange(Sender: TObject);
procedure TVLabelCellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
function SaveData(): Boolean;
procedure InitLabel();
function SaveLabel(MLabelID: string): Boolean;
procedure InitLabVolume();
procedure InitLabPackage();
public
FDataID: string;
end;
var
frmTradeInspSet: TfrmTradeInspSet;
implementation
uses
U_DataLink, U_RTFun, U_LabelInput, U_LabelList;
{$R *.dfm}
function TfrmTradeInspSet.SaveLabel(MLabelID: string): Boolean;
begin
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from Trade_Label');
sql.Add('where LabelID=' + Quotedstr(MLabelID));
Open;
Edit;
fieldByName('Editer').value := DName;
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
// RMLabel.SaveToBlobField(TBlobField(FieldByName('LabelFile')));
Post;
end;
ADOQueryCmd.Connection.CommitTrans;
result := true;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := false;
application.MessageBox('保存标签模板出错!', '警告信息', 0);
end;
end;
procedure TfrmTradeInspSet.InitLabel();
begin
with ADOQueryMain do
begin
close;
sql.Clear;
sql.Add(' select * from Trade_Label');
sql.Add(' order by labeltype,labelCaption');
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel4, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Label);
SInitCDSData(ADOQueryMain, CDS_Label);
end;
procedure TfrmTradeInspSet.InitLabVolume();
begin
with ADOQueryLabel do
begin
close;
sql.Clear;
sql.Add('select top 1 * from RT_FileUpdate');
sql.Add('where FileName=' + quotedstr(trim(LabVolume.Text) + '.rmf'));
Open;
end;
if ADOQueryLabel.IsEmpty then
exit;
with RM1 do
begin
LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('Files')));
Preview := RMPreview1;
ShowReport;
end;
end;
procedure TfrmTradeInspSet.InitLabPackage();
begin
end;
procedure TfrmTradeInspSet.LabelTypeChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel4, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Label);
SInitCDSData(ADOQueryMain, CDS_Label);
end;
end;
procedure TfrmTradeInspSet.InitGrid();
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Cloth_Inspect_Rule where RuleID=''' + Trim(FDataID) + '''');
Open;
end;
SCSHData(ADOQueryTemp, ScrollBox1, 2);
// with ADOQueryTemp do
// begin
// close;
// sql.Clear;
// sql.Add(' select C.LabName from Knit_Plan_Main A ');
// sql.Add(' INNER JOIN Knit_Plan_Sub B on A.MainID=B.MainID');
// sql.Add(' INNER JOIN BS_Contract_Sub C on B.ConSId =C.ConSId');
// sql.Add(' where A.MainId=''' + Trim(FDataID) + '''');
// Open;
// end;
//
// LabVolume.text := Trim(ADOQueryTemp.fieldbyname('LabName').AsString);
end;
procedure TfrmTradeInspSet.FormDestroy(Sender: TObject);
begin
inherited;
frmTradeInspSet := nil;
end;
procedure TfrmTradeInspSet.btn1Click(Sender: TObject);
var
MFromLabelId: string;
begin
MFromLabelId := trim(CDS_Label.fieldbyname('LabelId').asstring);
try
frmLabelInput := TfrmLabelInput.create(self);
with frmLabelInput do
begin
if showModal = 1 then
begin
FLabelId := frmLabelInput.LabelCaption.Text;
with ADOQueryCmd do
begin
close;
sql.clear;
sql.Add(' exec P_BS_Label_Copy');
sql.Add(' @FromLabelId=' + quotedstr(trim(MFromLabelId)));
sql.Add(',@ToLabelId=' + quotedstr(trim(FLabelId)));
// ShowMessage(sql.text);
execSql;
end;
InitLabel();
end;
end;
finally
frmLabelInput.Free;
end;
end;
procedure TfrmTradeInspSet.btn2Click(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmTradeInspSet.cxPageControl1Change(Sender: TObject);
begin
case cxPageControl1.ActivePageIndex of
1:
begin
InitLabVolume();
end;
2:
begin
InitLabPackage();
end;
end;
end;
procedure TfrmTradeInspSet.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmTradeInspSet.TaddClick(Sender: TObject);
begin
try
frmLabelInput := TfrmLabelInput.create(self);
with frmLabelInput do
begin
FLabelId := '';
if showModal = 1 then
begin
InitLabel();
end;
end;
finally
frmLabelInput.Free;
end;
end;
procedure TfrmTradeInspSet.TBCloseClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmTradeInspSet.FormShow(Sender: TObject);
begin
inherited;
ExportFtErpFile('模板标签.rmf', ADOQueryTemp);
with ADO_1 do
begin
Close;
SQL.Clear;
sql.Add('exec P_BS_Label_Get_Test');
Open;
end;
Initlabel();
InitGrid();
end;
procedure TfrmTradeInspSet.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTradeInspSet.TdelClick(Sender: TObject);
begin
try
with ADOQueryCmd do
begin
close;
sql.clear;
sql.Add('delete Trade_Label');
sql.Add('where labelId=' + quotedstr(CDS_Label.fieldByName('LabelID').asString));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('标签删除')));
sql.Add(',' + quotedstr(trim('标签名称:' + trim(CDS_Label.fieldByName('labelCaption').asString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execSql;
end;
CDS_Label.Delete;
except
application.MessageBox('删除失败!', '警告信息', 0);
end;
end;
function TfrmTradeInspSet.SaveData(): Boolean;
var
MaxId, MaxSubId, FCoCode, FCCID, MaxCFID: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
if Trim(FDataID) = '' then
begin
if GetLSNo(ADOQueryCmd, MaxId, 'R', 'Trade_Cloth_Inspect_Rule', 4, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败!', '提示', 0);
Exit;
end;
end
else
begin
MaxId := Trim(FDataID);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Trade_Cloth_Inspect_Rule where RuleID=''' + Trim(FDataID) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(FDataID) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
end;
FieldByName('RuleID').Value := Trim(MaxId);
RTSetsavedata(ADOQueryCmd, 'Trade_Cloth_Inspect_Rule', ScrollBox1, 2);
Post;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add(' UPDATE BS_Contract_Sub set LabName =''' + Trim(LabVolume.text) + '''');
sql.Add(' from BS_Contract_Sub A ');
sql.Add(' INNER JOIN Knit_Plan_Sub B on A.ConSId=B.ConSId');
sql.Add(' where B.MainId =''' + Trim(FDataID) + '''');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
FCCID := Trim(MaxSubId);
Result := True;
except
Result := false;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存异常!', '提示', 0);
end;
end;
procedure TfrmTradeInspSet.ToolButton1Click(Sender: TObject);
begin
if CDS_Label.IsEmpty then
exit;
LabVolume.Text := trim(CDS_Label.fieldbyname('labelCaption').asstring);
end;
procedure TfrmTradeInspSet.ToolButton2Click(Sender: TObject);
begin
if CDS_Label.IsEmpty then
exit;
LabPackage.Text := trim(CDS_Label.fieldbyname('labelCaption').asstring);
end;
procedure TfrmTradeInspSet.ToolButton3Click(Sender: TObject);
begin
if SaveData() then
begin
Application.MessageBox('保存成功!', '提示', 0);
end;
end;
procedure TfrmTradeInspSet.ToolButton4Click(Sender: TObject);
var
fFileName, fPrintFile: string;
MLabelID, MLabelCaption: string;
begin
if CDS_Label.IsEmpty then
exit;
MLabelID := TRIM(CDS_Label.fieldByName('LabelID').asString);
MLabelCaption := TRIM(CDS_Label.fieldByName('LabelCaption').asString);
ExportFtErpFile(MLabelCaption + '.rmf', ADOQueryTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'report\' + MLabelCaption + '.rmf';
if not FileExists(fPrintFile) then
CopyFile(PChar(ExtractFilePath(Application.ExeName) + 'Report\模板标签.rmf'), PChar(fPrintFile), False);
with RMLabel do
begin
RMLabel.Clear;
RMDB_Label.DataSet := nil;
Dictionary.FieldAliases.Clear;
Dictionary.FieldAliases['RMDB_Label'] := '标签数据';
RMDB_Label.DataSet := ADO_1;
LoadFromFile(fPrintFile);
application.ProcessMessages;
DesignReport();
// RMLabel.SaveToFile(fPrintFile);
SaveLabel(MLabelID);
ExportToFtErp(fPrintFile, ADOQueryCmd);
end;
end;
procedure TfrmTradeInspSet.TupdClick(Sender: TObject);
begin
if CDS_Label.IsEmpty then
exit;
try
frmLabelInput := TfrmLabelInput.create(self);
with frmLabelInput do
begin
fLabelId := CDS_Label.fieldByName('LabelId').AsString;
if showModal = 1 then
begin
InitLabel();
end;
end;
finally
frmLabelInput.Free;
end;
end;
procedure TfrmTradeInspSet.TVLabelCellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
var
fPrintFile: string;
begin
if CDS_Label.IsEmpty then
exit;
ExportFtErpFile(TRIM(CDS_Label.fieldByName('LabelCaption').asString) + '.rmf', ADOQueryTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + CDS_Label.fieldbyname('LabelCaption').AsString + '.rmf';
if not FileExists(fPrintFile) then
CopyFile(PChar(ExtractFilePath(Application.ExeName) + 'Report\模板标签.rmf'), PChar(fPrintFile), False);
with RMLabel do
begin
RMLabel.LoadFromFile(fPrintFile);
Preview := RMPreview3;
ShowReport;
end;
end;
end.

View File

@ -1,10 +1,10 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm</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:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.471,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.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.872,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</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>
</Transactions> </Transactions>
</BorlandProject> </BorlandProject>

View File

@ -2,6 +2,6 @@
<BorlandProject> <BorlandProject>
<Transactions/> <Transactions/>
<Default.Personality> <Default.Personality>
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\A05基础资料管理\BaseInfo.dproj"/> <Projects ActiveProject="D:\Dp10Repo\项目代码\D10gmBitao\A05基础资料管理\BaseInfo.dproj"/>
</Default.Personality> </Default.Personality>
</BorlandProject> </BorlandProject>

View File

@ -1,4 +1,5 @@
inherited DataLink_YarnStk: TDataLink_YarnStk inherited DataLink_YarnStk: TDataLink_YarnStk
OldCreateOrder = True
OnDestroy = DataModuleDestroy OnDestroy = DataModuleDestroy
Height = 349 Height = 349
Width = 482 Width = 482

View File

@ -210,14 +210,14 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select FromCoName,StkCoName,Brand,Y_Name,stkqty=sum(ioqtyflag*qty),Price,QtyUnit,StkPosition '); sql.Add(' select FromCoName,StkCoName,Brand,Y_Name,stkqty=sum(ioqtyflag*qty),QtyUnit,StkPosition ');
sql.Add(' from BS_Yarn_IO A '); sql.Add(' from BS_Yarn_IO A ');
SQL.Add(' where 1=1 '); // isnull(StkQty,0)>0 SQL.Add(' where 1=1 '); // isnull(StkQty,0)>0
if FstkName <> '' then if FstkName <> '' then
begin begin
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''); sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
end; end;
SQL.Add('GROUP BY FromCoName,StkCoName,Brand,Y_Name,Price,QtyUnit,StkPosition'); SQL.Add('GROUP BY FromCoName,StkCoName,Brand,Y_Name,QtyUnit,StkPosition');
SQL.Add('HAVING sum(ioqtyflag*qty)<0'); SQL.Add('HAVING sum(ioqtyflag*qty)<0');
sql.Add('order by StkCoName,Brand,Y_Name'); sql.Add('order by StkCoName,Brand,Y_Name');
// sql.Add('select * from BS_Yarn_IO where BYIOID=''' + Trim(CDS_Sub.fieldbyname('STKID').AsString) + ''''); // sql.Add('select * from BS_Yarn_IO where BYIOID=''' + Trim(CDS_Sub.fieldbyname('STKID').AsString) + '''');
@ -401,7 +401,7 @@ begin
FieldByName('Price').Value := CDS_1.fieldbyname('Price').value; FieldByName('Price').Value := CDS_1.fieldbyname('Price').value;
FieldByName('Amount').Value := CDS_1.fieldbyname('Amount').value; FieldByName('Amount').Value := CDS_1.fieldbyname('Amount').value;
FieldByName('QtyUnit').Value := CDS_1.fieldbyname('QtyUnit').value; FieldByName('QtyUnit').Value := CDS_1.fieldbyname('QtyUnit').value;
FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); // FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('FromOrdNo').Value := CDS_1.fieldbyname('PurNo').value; FieldByName('FromOrdNo').Value := CDS_1.fieldbyname('PurNo').value;
FieldByName('FromMainId').Value := CDS_1.fieldbyname('PurMId').value; FieldByName('FromMainId').Value := CDS_1.fieldbyname('PurMId').value;

View File

@ -293,26 +293,24 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select FromCoName,StkCoName,Brand,Y_Name,stkqty=sum(ioqtyflag*qty),Price,QtyUnit,StkPosition '); sql.Add(' select FromCoName,StkCoName,Brand,Y_Name,stkqty=sum(ioqtyflag*qty),QtyUnit,StkPosition ');
sql.Add(' from BS_Yarn_IO A '); sql.Add(' from BS_Yarn_IO A ');
SQL.Add(' where 1=1 '); // isnull(StkQty,0)>0 SQL.Add(' where 1=1 '); // isnull(StkQty,0)>0
if FstkName <> '' then if FstkName <> '' then
begin begin
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''); sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
end; end;
SQL.Add('GROUP BY FromCoName,StkCoName,Brand,Y_Name,Price,QtyUnit,StkPosition'); SQL.Add('GROUP BY FromCoName,StkCoName,Brand,Y_Name,QtyUnit,StkPosition');
SQL.Add('HAVING sum(ioqtyflag*qty)<0'); SQL.Add('HAVING sum(ioqtyflag*qty)<0');
sql.Add('order by StkCoName,Brand,Y_Name'); sql.Add('order by StkCoName,Brand,Y_Name');
// showmessage(sql.Text);
// sql.Add('select * from BS_Yarn_IO where BYIOID=''' + Trim(CDS_Sub.fieldbyname('STKID').AsString) + ''''); // sql.Add('select * from BS_Yarn_IO where BYIOID=''' + Trim(CDS_Sub.fieldbyname('STKID').AsString) + '''');
Open; Open;
end; end;
if ADOQueryTemp.IsEmpty = False then // if ADOQueryTemp.FieldByName('stkqty').Value > CDS_Sub.fieldbyname('Qty').Value then
//
// if ADOQueryTemp.FieldByName('StkPiece').Value < 0 then //// if ADOQueryTemp.FieldByName('StkPiece').Value < 0 then
raise Exception.Create('出库数量大于入库数量不能保存!'); // raise Exception.Create('出库数量大于入库数量不能保存!');
// with ADOQueryCmd do // with ADOQueryCmd do
// begin // begin
// Close; // Close;
@ -439,7 +437,7 @@ begin
if SaveCKData() then if SaveCKData() then
begin begin
Application.MessageBox('保存成功!', '提示', 0); Application.MessageBox('保存成功!', '提示', 0);
//ModalResult:=1; ModalResult := 1;
Exit; Exit;
end; end;
end; end;
@ -462,13 +460,29 @@ begin
frmYarnStkHZSel.CDS_Main.DisableControls; frmYarnStkHZSel.CDS_Main.DisableControls;
with frmYarnStkHZSel.CDS_Main do with frmYarnStkHZSel.CDS_Main do
begin begin
First; // First;
while frmYarnStkHZSel.CDS_Main.Locate('SSel', True, []) do // while frmYarnStkHZSel.CDS_Main.Locate('SSel', True, []) do
// begin
if Self.CDS_Sub.IsEmpty = False then
begin begin
with Self.CDS_Sub do CopyAddRowCDS(CDS_Sub);
end
else
begin
with CDS_Sub do
begin begin
Append; Append;
FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
Post;
end;
end;
with Self.CDS_Sub do
begin
edit;
// FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now))
// FieldByName('STKID').Value := frmYarnStkSel.CDS_Main.fieldbyname('BYIOID').Value; // FieldByName('STKID').Value := frmYarnStkSel.CDS_Main.fieldbyname('BYIOID').Value;
FieldByName('IOType').Value := '车间领用'; FieldByName('IOType').Value := '车间领用';
FieldByName('FromCoNo').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('FromCoNo').Value; //来自单位 FieldByName('FromCoNo').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('FromCoNo').Value; //来自单位
@ -489,15 +503,15 @@ begin
// FieldByName('Piece').Value := frmYarnStkSel.CDS_Main.fieldbyname('STKPiece').Value; // FieldByName('Piece').Value := frmYarnStkSel.CDS_Main.fieldbyname('STKPiece').Value;
// FieldByName('PieceQty').Value := frmYarnStkSel.CDS_Main.fieldbyname('PieceQty').Value; // FieldByName('PieceQty').Value := frmYarnStkSel.CDS_Main.fieldbyname('PieceQty').Value;
FieldByName('Qty').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('STKQTY').Value; FieldByName('Qty').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('STKQTY').Value;
FieldByName('Price').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('Price').Value; // FieldByName('Price').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('Price').Value;
// //
FieldByName('Amount').Value := RoundFloat(frmYarnStkHZSel.CDS_Main.fieldbyname('Price').Value * frmYarnStkHZSel.CDS_Main.fieldbyname('STKQTY').Value, 2); // FieldByName('Amount').Value := RoundFloat(frmYarnStkHZSel.CDS_Main.fieldbyname('Price').Value * frmYarnStkHZSel.CDS_Main.fieldbyname('STKQTY').Value, 2);
FieldByName('QtyUnit').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('QtyUnit').Value; FieldByName('QtyUnit').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('QtyUnit').Value;
FieldByName('StkPosition').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('StkPosition').Value; FieldByName('StkPosition').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('StkPosition').Value;
end; end;
frmYarnStkHZSel.CDS_Main.Delete; frmYarnStkHZSel.CDS_Main.Delete;
end; end;
end; // end;
frmYarnStkHZSel.CDS_Main.EnableControls; frmYarnStkHZSel.CDS_Main.EnableControls;
end; end;
end; end;

View File

@ -260,7 +260,7 @@ inherited frmYarnStkHZSel: TfrmYarnStkHZSel
Width = 76 Width = 76
end end
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #21697#29260 Caption = #31867#22411
DataBinding.FieldName = 'Brand' DataBinding.FieldName = 'Brand'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -292,14 +292,6 @@ inherited frmYarnStkHZSel: TfrmYarnStkHZSel
Options.Editing = False Options.Editing = False
Width = 74 Width = 74
end end
object Tv1Column8: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #21333#20301 Caption = #21333#20301
@ -323,6 +315,12 @@ inherited frmYarnStkHZSel: TfrmYarnStkHZSel
Options.Editing = False Options.Editing = False
Width = 76 Width = 76
end end
object cxgrdbclmnTv1Column3: TcxGridDBColumn
Caption = #26469#33258#21333#20301#32534#21495
DataBinding.FieldName = 'FromCoNO'
DataBinding.IsNullValueType = True
Visible = False
end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

View File

@ -49,11 +49,11 @@ type
v1Column5: TcxGridDBColumn; v1Column5: TcxGridDBColumn;
v2Column1: TcxGridDBColumn; v2Column1: TcxGridDBColumn;
v2Column6: TcxGridDBColumn; v2Column6: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
v1Column3: TcxGridDBColumn; v1Column3: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel; cxGrid2Level1: TcxGridLevel;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
cxgrdbclmnTv1Column3: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -109,10 +109,14 @@ begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select FromCoName,StkCoName,Brand,Y_Name,stkqty=sum(ioqtyflag*qty),Price,QtyUnit,StkPosition'); sql.Add(' select FromCoNO,FromCoName,StkCoNo,StkCoName,Brand,Y_Name,stkqty=sum(ioqtyflag*qty),QtyUnit,StkPosition');
sql.Add(' from BS_Yarn_IO A where'); sql.Add(' from BS_Yarn_IO A ');
sql.Add(' isnull(stkName,'''')=''' + Trim(FstkName) + ''''); SQL.Add(' where 1=1 ');
sql.Add('GROUP BY FromCoName,StkCoName,Brand,Y_Name,Price,QtyUnit,StkPosition'); if FstkName <> '' then
begin
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
end;
SQL.Add('GROUP BY FromCoNO,FromCoName,StkCoNo,StkCoName,Brand,Y_Name,QtyUnit,StkPosition');
SQL.Add('HAVING sum(ioqtyflag*qty)>0'); SQL.Add('HAVING sum(ioqtyflag*qty)>0');
sql.Add('order by StkCoName,Brand,Y_Name'); sql.Add('order by StkCoName,Brand,Y_Name');
Open; Open;
@ -187,13 +191,13 @@ end;
procedure TfrmYarnStkHZSel.ToolButton1Click(Sender: TObject); procedure TfrmYarnStkHZSel.ToolButton1Click(Sender: TObject);
begin begin
if CDS_Main.IsEmpty then // if CDS_Main.IsEmpty then
Exit; // Exit;
if CDS_Main.Locate('SSel', True, []) = False then // if CDS_Main.Locate('SSel', True, []) = False then
begin // begin
Application.MessageBox('没有选择数据!', '提示', 0); // Application.MessageBox('ûÓÐÑ¡ÔñÊý¾Ý!', 'Ìáʾ', 0);
Exit; // Exit;
end; // end;
ModalResult := 1; ModalResult := 1;
end; end;

View File

@ -164,6 +164,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -224,6 +225,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
object v1Column17: TcxGridDBColumn object v1Column17: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked Properties.NullStyle = nssUnchecked
@ -233,6 +235,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 87 Width = 87
@ -241,6 +244,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Tag = 2 Tag = 2
Caption = #26469#33258#21333#20301 Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName' DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = < Properties.Buttons = <
@ -256,6 +260,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #23384#25918#21333#20301 Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName' DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 88 Width = 88
@ -263,6 +268,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #21697#29260 Caption = #21697#29260
DataBinding.FieldName = 'Brand' DataBinding.FieldName = 'Brand'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 73 Width = 73
@ -271,6 +277,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Tag = 2 Tag = 2
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'Y_Name' DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -285,6 +292,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Tag = 2 Tag = 2
Caption = #35268#26684 Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec' DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -293,6 +301,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition' DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -300,6 +309,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'Y_Color' DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 86 Width = 86
@ -307,6 +317,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = 'D'#25968 Caption = 'D'#25968
DataBinding.FieldName = 'Denier' DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -314,6 +325,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 124 Width = 124
@ -321,11 +333,13 @@ inherited frmYarnStkSel: TfrmYarnStkSel
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #24211#23384#21253#25968 Caption = #24211#23384#21253#25968
DataBinding.FieldName = 'StkPiece' DataBinding.FieldName = 'StkPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
end end
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
Caption = #27599#21253#25968#37327 Caption = #27599#21253#25968#37327
DataBinding.FieldName = 'PieceQty' DataBinding.FieldName = 'PieceQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
@ -334,6 +348,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Tag = 2 Tag = 2
Caption = #24211#23384#25968#37327 Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'stkqty' DataBinding.FieldName = 'stkqty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -342,6 +357,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #21333#20215 Caption = #21333#20215
DataBinding.FieldName = 'Price' DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -350,6 +366,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Tag = 2 Tag = 2
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
@ -363,6 +380,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #24211#20301 Caption = #24211#20301
DataBinding.FieldName = 'StkPosition' DataBinding.FieldName = 'StkPosition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -370,6 +388,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66

View File

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseHelp, System.ImageList, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseHelp, System.ImageList,
Vcl.ImgList; Vcl.ImgList, dxScrollbarAnnotations;
type type
TfrmYarnStkSel = class(TfrmBaseHelp) TfrmYarnStkSel = class(TfrmBaseHelp)

View File

@ -124,7 +124,7 @@
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10gmbitao\B02基础纱线仓库\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>D:\Dp10Repo\项目代码\D10gmBitao\B02基础纱线仓库\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">

View File

@ -31,8 +31,8 @@
<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.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
@ -42,11 +42,11 @@
<Transaction>1899-12-30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.172,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.172,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.581,=D:\Dp10Repo\项目代码\阔和\B02基础纱线仓库\U_YarnRackList.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.581,=D:\Dp10Repo\项目代码\阔和\B02基础纱线仓库\U_YarnRackList.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.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">

View File

@ -27,16 +27,15 @@ uses
U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet}, U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint}, U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
U_TradeSalesContractSel in 'U_TradeSalesContractSel.pas' {frmTradeSalesContractSel}, U_TradeSalesContractSel in 'U_TradeSalesContractSel.pas' {frmTradeSalesContractSel},
U_TradeInspSet in 'U_TradeInspSet.pas' {frmTradeInspSet},
U_LabelList in '..\B01基础合同管理\U_LabelList.pas' {frmLabelList}, U_LabelList in '..\B01基础合同管理\U_LabelList.pas' {frmLabelList},
U_LabelInput in 'U_LabelInput.pas' {frmLabelInput},
U_LabelAdd in 'U_LabelAdd.pas' {frmLabelAdd}, U_LabelAdd in 'U_LabelAdd.pas' {frmLabelAdd},
U_PlanCardOFF in 'U_PlanCardOFF.pas' {frmPlanCardOFF}, U_PlanCardOFF in 'U_PlanCardOFF.pas' {frmPlanCardOFF},
U_LCKInput in 'U_LCKInput.pas' {frmLCKInput}, U_LCKInput in 'U_LCKInput.pas' {frmLCKInput},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_LCKQuery in 'U_LCKQuery.pas' {frmLCKQuery}, U_LCKQuery in 'U_LCKQuery.pas' {frmLCKQuery},
U_KnitPlanCardOFF in 'U_KnitPlanCardOFF.pas' {frmKnitPlanCardOFF}, U_KnitPlanCardOFF in 'U_KnitPlanCardOFF.pas' {frmKnitPlanCardOFF},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas'; uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_TradeInspSet2 in 'U_TradeInspSet2.pas' {frmTradeInspSet2};
{$R *.res} {$R *.res}

View File

@ -189,18 +189,10 @@
<Form>frmTradeSalesContractSel</Form> <Form>frmTradeSalesContractSel</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_TradeInspSet.pas">
<Form>frmTradeInspSet</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\B01基础合同管理\U_LabelList.pas"> <DCCReference Include="..\B01基础合同管理\U_LabelList.pas">
<Form>frmLabelList</Form> <Form>frmLabelList</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_LabelInput.pas">
<Form>frmLabelInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_LabelAdd.pas"> <DCCReference Include="U_LabelAdd.pas">
<Form>frmLabelAdd</Form> <Form>frmLabelAdd</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
@ -227,6 +219,10 @@
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/> <DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<DCCReference Include="U_TradeInspSet2.pas">
<Form>frmTradeInspSet2</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

View File

@ -1,52 +1,57 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.493,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_TradeSalesContractSel.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.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.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.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.238,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.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.756,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.175,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\D01针织生产计划\U_KnitPlanCard.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.914,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_testdll.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.030,D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.dfm=D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.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.913,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_TradeInspSet.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.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.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.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.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.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.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.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.904,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelInput.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.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -124,10 +129,6 @@
<File Path="U_iniParam.pas"/> <File Path="U_iniParam.pas"/>
<File Path="U_TradeSalesContractSel.pas"/> <File Path="U_TradeSalesContractSel.pas"/>
<File Path="U_TradeSalesContractSel.dfm"/> <File Path="U_TradeSalesContractSel.dfm"/>
<File Path="U_TradeInspSet.pas"/>
<File Path="U_TradeInspSet.dfm"/>
<File Path="U_LabelInput.pas"/>
<File Path="U_LabelInput.dfm"/>
<File Path="U_LabelAdd.pas"/> <File Path="U_LabelAdd.pas"/>
<File Path="U_LabelAdd.dfm"/> <File Path="U_LabelAdd.dfm"/>
<File Path="U_PlanCardOFF.pas"/> <File Path="U_PlanCardOFF.pas"/>
@ -138,5 +139,7 @@
<File Path="U_LCKQuery.dfm"/> <File Path="U_LCKQuery.dfm"/>
<File Path="U_KnitPlanCardOFF.pas"/> <File Path="U_KnitPlanCardOFF.pas"/>
<File Path="U_KnitPlanCardOFF.dfm"/> <File Path="U_KnitPlanCardOFF.dfm"/>
<File Path="U_TradeInspSet2.pas"/>
<File Path="U_TradeInspSet2.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
</BorlandProject> </BorlandProject>

View File

@ -3,35 +3,21 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Top = 14 Top = 14
Caption = #36710#38388#29983#20135#35745#21010#21333#24405#20837 Caption = #36710#38388#29983#20135#35745#21010#21333#24405#20837
ClientHeight = 658 ClientHeight = 658
ClientWidth = 1229 ClientWidth = 1363
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poScreenCenter Position = poScreenCenter
ExplicitTop = -10 ExplicitWidth = 1379
ExplicitWidth = 1245
ExplicitHeight = 697 ExplicitHeight = 697
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
object lbl4: TLabel [0] object ToolBar1: TToolBar [0]
Left = 570
Top = 325
Width = 112
Height = 21
Caption = #21518' '#22788' '#29702#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object ToolBar1: TToolBar [1]
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1229 Width = 1363
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -50,7 +36,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1263
object TBSave: TToolButton object TBSave: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -82,11 +67,11 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
OnClick = btn1Click OnClick = btn1Click
end end
end end
object ScrollBox1: TScrollBox [2] object ScrollBox1: TScrollBox [1]
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1229 Width = 1363
Height = 574 Height = 538
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
@ -192,20 +177,20 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
object Label8: TLabel object Label8: TLabel
Left = 9 Left = 9
Top = 264 Top = 195
Width = 114 Width = 114
Height = 21 Height = 21
Caption = #21305' '#25968#65306 Caption = #21305' '#25968#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clRed
Font.Height = -21 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label12: TLabel object Label12: TLabel
Left = 1145 Left = 939
Top = 194 Top = 534
Width = 114 Width = 114
Height = 21 Height = 21
Caption = #21305' '#38271#65306 Caption = #21305' '#38271#65306
@ -219,12 +204,12 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
object Label13: TLabel object Label13: TLabel
Left = 273 Left = 273
Top = 264 Top = 195
Width = 112 Width = 112
Height = 21 Height = 21
Caption = #24635' '#25968' '#37327#65306 Caption = #24635' '#25968' '#37327#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clRed
Font.Height = -21 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
@ -232,9 +217,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
object Label16: TLabel object Label16: TLabel
Left = 9 Left = 9
Top = 483 Top = 414
Width = 114 Width = 114
Height = 20 Height = 21
Caption = #22791' '#27880#65306 Caption = #22791' '#27880#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
@ -250,17 +235,17 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Height = 21 Height = 21
Caption = #20135#21697#32534#21495#65306 Caption = #20135#21697#32534#21495#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clRed
Font.Height = -21 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label27: TLabel object Label27: TLabel
Left = 1106 Left = 1029
Top = 470 Top = 424
Width = 24 Width = 24
Height = 20 Height = 21
Caption = 'KG' Caption = 'KG'
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
@ -268,25 +253,23 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object Label28: TLabel object Label28: TLabel
Left = 975 Left = 874
Top = 470 Top = 424
Width = 66 Width = 66
Height = 20 Height = 21
Caption = #30382#37325#65306 Caption = #30382#37325#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clRed
Font.Height = -21 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object Label31: TLabel object Label31: TLabel
Left = 9 Left = 96
Top = 209 Top = 561
Width = 114 Width = 114
Height = 21 Height = 21
Caption = #32433' '#32447#65306 Caption = #32433' '#32447#65306
@ -296,6 +279,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object Label47: TLabel object Label47: TLabel
Left = 273 Left = 273
@ -304,7 +288,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Height = 21 Height = 21
Caption = #23458' '#25143#65306 Caption = #23458' '#25143#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clRed
Font.Height = -21 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
@ -312,9 +296,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
object Label54: TLabel object Label54: TLabel
Left = 562 Left = 562
Top = 310 Top = 241
Width = 112 Width = 112
Height = 20 Height = 21
Caption = #21518' '#22788' '#29702#65306 Caption = #21518' '#22788' '#29702#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
@ -377,7 +361,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
object Label6: TLabel object Label6: TLabel
Left = 850 Left = 850
Top = 264 Top = 195
Width = 110 Width = 110
Height = 21 Height = 21
Caption = #33853#24067#36716#25968#65306 Caption = #33853#24067#36716#25968#65306
@ -390,9 +374,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
object Label9: TLabel object Label9: TLabel
Left = 9 Left = 9
Top = 310 Top = 241
Width = 114 Width = 114
Height = 20 Height = 21
Caption = #39068' '#33394#65306 Caption = #39068' '#33394#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
@ -403,9 +387,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
object Label10: TLabel object Label10: TLabel
Left = 850 Left = 850
Top = 310 Top = 241
Width = 110 Width = 110
Height = 20 Height = 21
Caption = #32986#24067#35201#27714#65306 Caption = #32986#24067#35201#27714#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
@ -416,9 +400,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
object Label11: TLabel object Label11: TLabel
Left = 270 Left = 270
Top = 308 Top = 239
Width = 114 Width = 114
Height = 20 Height = 21
Caption = #25104' '#20998#65306 Caption = #25104' '#20998#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
@ -442,9 +426,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
object Label17: TLabel object Label17: TLabel
Left = 9 Left = 9
Top = 355 Top = 286
Width = 114 Width = 114
Height = 20 Height = 21
Caption = #25552' '#33457#65306 Caption = #25552' '#33457#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
@ -455,9 +439,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
object Label19: TLabel object Label19: TLabel
Left = 9 Left = 9
Top = 400 Top = 331
Width = 114 Width = 114
Height = 20 Height = 21
Caption = #38754' '#32433#65306 Caption = #38754' '#32433#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
@ -468,9 +452,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
object Label20: TLabel object Label20: TLabel
Left = 564 Left = 564
Top = 355 Top = 286
Width = 112 Width = 112
Height = 20 Height = 21
Caption = #20844' '#26020' '#25968#65306 Caption = #20844' '#26020' '#25968#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
@ -494,9 +478,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
object lbl3: TLabel object lbl3: TLabel
Left = 851 Left = 851
Top = 353 Top = 284
Width = 110 Width = 110
Height = 20 Height = 21
Caption = #33394#19997#27604#20363#65306 Caption = #33394#19997#27604#20363#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
@ -507,9 +491,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
object Label21: TLabel object Label21: TLabel
Left = 9 Left = 9
Top = 438 Top = 369
Width = 114 Width = 114
Height = 20 Height = 21
Caption = #24213' '#32433#65306 Caption = #24213' '#32433#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
@ -520,9 +504,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
object Label23: TLabel object Label23: TLabel
Left = 562 Left = 562
Top = 400 Top = 331
Width = 114 Width = 114
Height = 20 Height = 21
Caption = #22841' '#23618#65306 Caption = #22841' '#23618#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
@ -546,7 +530,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
object lbl5: TLabel object lbl5: TLabel
Left = 562 Left = 562
Top = 264 Top = 195
Width = 112 Width = 112
Height = 21 Height = 21
Caption = #29289' '#26009' '#21495#65306 Caption = #29289' '#26009' '#21495#65306
@ -557,6 +541,32 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object lbl4: TLabel
Left = 562
Top = 369
Width = 110
Height = 21
Caption = #20027#35201#32433#32447#65306
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object lbl6: TLabel
Left = 871
Top = 471
Width = 88
Height = 21
Caption = #21253#26631#31614#65306
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object OrdDate: TDateTimePicker object OrdDate: TDateTimePicker
Left = 957 Left = 957
Top = 4 Top = 4
@ -595,8 +605,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
object OrdPieceWeight: TEdit object OrdPieceWeight: TEdit
Tag = 2 Tag = 2
Left = 1153 Left = 950
Top = 225 Top = 550
Width = 180 Width = 180
Height = 27 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -613,9 +623,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object OrdPiece: TEdit object OrdPiece: TEdit
Tag = 2 Tag = 2
Left = 114 Left = 114
Top = 261 Top = 192
Width = 150 Width = 150
Height = 30 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -21 Font.Height = -21
@ -629,9 +639,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object OrdQty: TEdit object OrdQty: TEdit
Tag = 2 Tag = 2
Left = 389 Left = 389
Top = 261 Top = 192
Width = 101 Width = 101
Height = 30 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -21 Font.Height = -21
@ -642,12 +652,11 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
OnChange = OrdPieceWeightChange OnChange = OrdPieceWeightChange
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object OrdTare: TEdit object RuleBeforeTare: TEdit
Tag = 2 Left = 959
Left = 1030 Top = 423
Top = 468
Width = 60 Width = 60
Height = 26 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -21 Font.Height = -21
@ -655,7 +664,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 7 TabOrder = 7
Visible = False
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object C_GramWeight: TEdit object C_GramWeight: TEdit
@ -786,7 +794,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object C_Deal: TBtnEditC object C_Deal: TBtnEditC
Tag = 2 Tag = 2
Left = 665 Left = 665
Top = 306 Top = 237
Width = 180 Width = 180
Height = 30 Height = 30
Hint = 'C_Deal/'#21518#22788#29702 Hint = 'C_Deal/'#21518#22788#29702
@ -855,9 +863,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object C_revolution: TEdit object C_revolution: TEdit
Tag = 2 Tag = 2
Left = 958 Left = 958
Top = 261 Top = 192
Width = 180 Width = 180
Height = 30 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -21 Font.Height = -21
@ -871,7 +879,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object C_Color: TBtnEditC object C_Color: TBtnEditC
Tag = 2 Tag = 2
Left = 114 Left = 114
Top = 306 Top = 237
Width = 150 Width = 150
Height = 30 Height = 30
Hint = 'CYYS/'#39068#33394 Hint = 'CYYS/'#39068#33394
@ -888,7 +896,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object C_KnitNote: TBtnEditC object C_KnitNote: TBtnEditC
Tag = 2 Tag = 2
Left = 958 Left = 958
Top = 306 Top = 237
Width = 180 Width = 180
Height = 30 Height = 30
Hint = 'C_KnitNote/'#32986#24067#35201#27714 Hint = 'C_KnitNote/'#32986#24067#35201#27714
@ -905,7 +913,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object C_Composition: TBtnEditC object C_Composition: TBtnEditC
Tag = 2 Tag = 2
Left = 390 Left = 390
Top = 306 Top = 237
Width = 150 Width = 150
Height = 30 Height = 30
Hint = 'CYCF/'#25104#20998 Hint = 'CYCF/'#25104#20998
@ -937,7 +945,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object C_Figure: TBtnEditC object C_Figure: TBtnEditC
Tag = 2 Tag = 2
Left = 114 Left = 114
Top = 351 Top = 282
Width = 426 Width = 426
Height = 30 Height = 30
Hint = 'C_Figure/'#25552#33457 Hint = 'C_Figure/'#25552#33457
@ -954,7 +962,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object C_Yarn: TBtnEditC object C_Yarn: TBtnEditC
Tag = 2 Tag = 2
Left = 114 Left = 114
Top = 396 Top = 327
Width = 426 Width = 426
Height = 30 Height = 30
Hint = 'C_Yarn/'#38754#32433 Hint = 'C_Yarn/'#38754#32433
@ -971,9 +979,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object KGQty: TEdit object KGQty: TEdit
Tag = 2 Tag = 2
Left = 665 Left = 665
Top = 352 Top = 283
Width = 180 Width = 180
Height = 30 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -21 Font.Height = -21
@ -1001,8 +1009,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
object C_Spec: TEdit object C_Spec: TEdit
Tag = 2 Tag = 2
Left = 114 Left = 201
Top = 202 Top = 554
Width = 1023 Width = 1023
Height = 46 Height = 46
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1012,14 +1020,15 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 27 TabOrder = 27
Visible = False
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object OrdSNote: TRichEdit object OrdSNote: TRichEdit
Tag = 2 Tag = 2
Left = 114 Left = 114
Top = 474 Top = 405
Width = 809 Width = 731
Height = 65 Height = 110
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -21 Font.Height = -21
@ -1033,7 +1042,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object SSBL: TBtnEditC object SSBL: TBtnEditC
Tag = 2 Tag = 2
Left = 959 Left = 959
Top = 349 Top = 280
Width = 180 Width = 180
Height = 30 Height = 30
Hint = 'SSBL/'#33394#19997#27604#20363 Hint = 'SSBL/'#33394#19997#27604#20363
@ -1050,7 +1059,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object OrdUnit: TComboBox object OrdUnit: TComboBox
Tag = 2 Tag = 2
Left = 492 Left = 492
Top = 260 Top = 191
Width = 61 Width = 61
Height = 29 Height = 29
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1071,7 +1080,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object C_DYARN: TBtnEditC object C_DYARN: TBtnEditC
Tag = 2 Tag = 2
Left = 114 Left = 114
Top = 434 Top = 365
Width = 426 Width = 426
Height = 30 Height = 30
Hint = 'C_DYARN/'#24213#32433 Hint = 'C_DYARN/'#24213#32433
@ -1088,7 +1097,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object C_jiaceng: TBtnEditC object C_jiaceng: TBtnEditC
Tag = 2 Tag = 2
Left = 665 Left = 665
Top = 396 Top = 327
Width = 474 Width = 474
Height = 30 Height = 30
Hint = 'C_jiaceng/'#22841#23618 Hint = 'C_jiaceng/'#22841#23618
@ -1119,7 +1128,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object C_Material_Name: TBtnEditC object C_Material_Name: TBtnEditC
Tag = 2 Tag = 2
Left = 665 Left = 665
Top = 261 Top = 192
Width = 180 Width = 180
Height = 30 Height = 30
Hint = 'C_Material_Name/'#29289#26009#21495 Hint = 'C_Material_Name/'#29289#26009#21495
@ -1133,23 +1142,52 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
OnBtnUpClick = MCTypeBtnUpClick OnBtnUpClick = MCTypeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick OnBtnDnClick = CustNameBtnDnClick
end end
object C_MainYarn: TBtnEditC
Tag = 2
Left = 665
Top = 365
Width = 474
Height = 30
Hint = 'C_MainYarn/'#20027#35201#32433#32447
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 35
OnBtnUpClick = MCTypeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end end
object Panel2: TPanel [3] object LabPackage: TBtnEditC
Left = 959
Top = 467
Width = 180
Height = 30
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 36
OnBtnUpClick = LabPackageBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
end
object Panel2: TPanel [2]
Left = 0 Left = 0
Top = 612 Top = 576
Width = 1229 Width = 1363
Height = 46 Height = 82
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
Visible = False Visible = False
ExplicitTop = 585
ExplicitWidth = 1263
ExplicitHeight = 73
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1227 Width = 1361
Height = 44 Height = 80
Align = alClient Align = alClient
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1164,23 +1202,19 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 6 Properties.Style = 6
ExplicitWidth = 1261 ClientRectBottom = 80
ExplicitHeight = 71 ClientRectRight = 1361
ClientRectBottom = 44
ClientRectRight = 1227
ClientRectTop = 32 ClientRectTop = 32
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = ' '#37197' '#27604' ' Caption = ' '#37197' '#27604' '
Color = clWhite Color = clWhite
ImageIndex = 0 ImageIndex = 0
ParentColor = False ParentColor = False
ExplicitWidth = 1261
ExplicitHeight = 39
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1227 Width = 1361
Height = 1 Height = 10
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1189,7 +1223,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1261
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -1380,7 +1413,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1227 Width = 1361
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -1401,7 +1434,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 1
ExplicitWidth = 1261
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -1431,11 +1463,10 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxTabSheet2: TcxTabSheet object cxTabSheet2: TcxTabSheet
Caption = #25490#38024#19977#35282 Caption = #25490#38024#19977#35282
ImageIndex = 1 ImageIndex = 1
ExplicitHeight = 39
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 183 Top = 183
Width = 1227 Width = 1361
Height = 25 Height = 25
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -1453,7 +1484,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object Panel3: TPanel object Panel3: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1227 Width = 1361
Height = 25 Height = 25
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -1471,7 +1502,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGrid5: TcxGrid object cxGrid5: TcxGrid
Left = 0 Left = 0
Top = 208 Top = 208
Width = 1227 Width = 1361
Height = 165 Height = 165
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -2753,7 +2784,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 0 Left = 0
Top = 25 Top = 25
Width = 1227 Width = 1361
Height = 158 Height = 158
Align = alTop Align = alTop
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -3881,18 +3912,18 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_KnitPlan.ADOLink Connection = DataLink_KnitPlan.ADOLink
Left = 713 Left = 732
Top = 481 Top = 552
end end
inherited ImageList_new32: TImageList inherited ImageList_new32: TImageList
Left = 656 Left = 663
Top = 480 Top = 541
end end
object ADOQuery1: TADOQuery object ADOQuery1: TADOQuery
Connection = DataLink_KnitPlan.ADOLink Connection = DataLink_KnitPlan.ADOLink
Parameters = <> Parameters = <>
Left = 602 Left = 600
Top = 481 Top = 529
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_KnitPlan.ADOLink Connection = DataLink_KnitPlan.ADOLink
@ -3915,8 +3946,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_KnitPlan.ADOLink Connection = DataLink_KnitPlan.ADOLink
Parameters = <> Parameters = <>
Left = 522 Left = 568
Top = 473 Top = 584
end end
object ClientDataSet5: TClientDataSet object ClientDataSet5: TClientDataSet
Aggregates = <> Aggregates = <>

View File

@ -78,7 +78,7 @@ type
Label26: TLabel; Label26: TLabel;
Label27: TLabel; Label27: TLabel;
Label28: TLabel; Label28: TLabel;
OrdTare: TEdit; RuleBeforeTare: TEdit;
v2Column1: TcxGridDBColumn; v2Column1: TcxGridDBColumn;
v2Column3: TcxGridDBColumn; v2Column3: TcxGridDBColumn;
v2Column5: TcxGridDBColumn; v2Column5: TcxGridDBColumn;
@ -385,9 +385,12 @@ type
C_jiaceng: TBtnEditC; C_jiaceng: TBtnEditC;
Label24: TLabel; Label24: TLabel;
khconno: TEdit; khconno: TEdit;
lbl4: TLabel;
lbl5: TLabel; lbl5: TLabel;
C_Material_Name: TBtnEditC; C_Material_Name: TBtnEditC;
lbl4: TLabel;
C_MainYarn: TBtnEditC;
lbl6: TLabel;
LabPackage: TBtnEditC;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -415,6 +418,7 @@ type
procedure MenuItem1Click(Sender: TObject); procedure MenuItem1Click(Sender: TObject);
procedure MenuItem2Click(Sender: TObject); procedure MenuItem2Click(Sender: TObject);
procedure btn1Click(Sender: TObject); procedure btn1Click(Sender: TObject);
procedure LabPackageBtnUpClick(Sender: TObject);
private private
FXS, FGridFlag: Integer; FXS, FGridFlag: Integer;
procedure InitData(); procedure InitData();
@ -436,7 +440,7 @@ implementation
uses uses
U_DataLink, U_ZDYHelp, U_RTFun, U_ClothInfoSel, U_CompanySel, U_YarnInfoSel, U_DataLink, U_ZDYHelp, U_RTFun, U_ClothInfoSel, U_CompanySel, U_YarnInfoSel,
U_TradeSalesContractSel; U_TradeSalesContractSel,U_TradeInspSet2;
{$R *.dfm} {$R *.dfm}
@ -633,6 +637,22 @@ begin
end; end;
procedure TfrmKnitPlanInPut.LabPackageBtnUpClick(Sender: TObject);
begin
try
frmTradeInspSet2 := TfrmTradeInspSet2.Create(Application);
with frmTradeInspSet2 do
begin
if ShowModal = 1 then
begin
self.LabPackage.Text := Trim(frmTradeInspSet2.CDS_Label.fieldbyname('LabelCaption').AsString);
end;
end;
finally
frmTradeInspSet2.Free;
end;
end;
procedure TfrmKnitPlanInPut.ZDYHelp(FButn: TcxButtonEdit; LType: string); procedure TfrmKnitPlanInPut.ZDYHelp(FButn: TcxButtonEdit; LType: string);
begin begin
@ -782,7 +802,8 @@ begin
end; end;
FieldByName('RuleID').Value := Trim(maxno); FieldByName('RuleID').Value := Trim(maxno);
FieldByName('RuleBeforeTare').value := '1'; FieldByName('RuleBeforeTare').value := RuleBeforeTare.Text;
FieldByName('LabPackage').value := LabPackage.Text;
Post; Post;
end; end;
////////////////////////// 保存标签表 ////////////////////////// ////////////////////////// 保存标签表 //////////////////////////
@ -1020,31 +1041,32 @@ begin
Application.MessageBox('产品编号不能为空!', '提示', 0); Application.MessageBox('产品编号不能为空!', '提示', 0);
Exit; Exit;
end; end;
if Trim(C_MainYarn.Text) = '' then
begin
Application.MessageBox('主要纱线不能为空!', '提示', 0);
C_MainYarn.SetFocus;
Exit;
end;
if Trim(OrdQty.Text) = '' then if Trim(OrdQty.Text) = '' then
begin begin
Application.MessageBox('总数量不能为空!', '提示', 0); Application.MessageBox('总数量不能为空!', '提示', 0);
Exit; Exit;
end; end;
// if Trim(OrdPieceWeight.Text) = '' then if Trim(RuleBeforeTare.Text) = '' then
// begin begin
// Application.MessageBox('重不能为空!', '提示', 0); Application.MessageBox('重不能为空!', '提示', 0);
// Exit; Exit;
// end; end;
if Trim(OrdPiece.Text) = '' then if Trim(OrdPiece.Text) = '' then
begin begin
Application.MessageBox('匹数不能为空!', '提示', 0); Application.MessageBox('匹数不能为空!', '提示', 0);
Exit; Exit;
end; end;
if Trim(OrdTare.Text) = '' then
begin
OrdTare.Text := '0';
end;
if Trim(OrdTare.Text) = '' then if Trim(LabPackage.Text) = '' then
begin begin
Application.MessageBox('空加不能为空!', '提示', 0); Application.MessageBox('标签不能为空!', '提示', 0);
Exit; Exit;
end; end;
@ -1063,12 +1085,11 @@ begin
Application.MessageBox('匹数非法数字!', '提示', 0); Application.MessageBox('匹数非法数字!', '提示', 0);
Exit; Exit;
end; end;
if TryStrToFloat(OrdTare.Text, FReal) = False then if TryStrToFloat(RuleBeforeTare.Text, FReal) = False then
begin begin
Application.MessageBox('空加非法数字!', '提示', 0); Application.MessageBox('皮重非法数字!', '提示', 0);
Exit; Exit;
end; end;
// if Trim(C_Spec.Text) = '' then // if Trim(C_Spec.Text) = '' then
// begin // begin
// Application.MessageBox('规格不能为空!', '提示', 0); // Application.MessageBox('规格不能为空!', '提示', 0);
@ -1084,6 +1105,7 @@ begin
Application.MessageBox('保存成功!', '提示', 0); Application.MessageBox('保存成功!', '提示', 0);
FMainId := ''; FMainId := '';
FSubId := ''; FSubId := '';
C_MainYarn.Text := '';
// ModalResult := 1; // ModalResult := 1;
end; end;
end; end;
@ -1298,8 +1320,7 @@ var
fsj: string; fsj: string;
FWZ: Integer; FWZ: Integer;
begin begin
fsj := Trim(TBtnEditC(Sender).Hint); fsj := Trim(TEdit(Sender).Hint);
FWZ := Pos('/', fsj); FWZ := Pos('/', fsj);
try try
frmZDYHelp := TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -1307,16 +1328,14 @@ begin
begin begin
flag := Copy(fsj, 1, FWZ - 1); flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then if ShowModal = 1 then
begin begin
TBtnEditC(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end; end;
end; end;
finally finally
frmZDYHelp.Free; frmZDYHelp.Free;
end; end;
end; end;
procedure TfrmKnitPlanInPut.MenuItem1Click(Sender: TObject); procedure TfrmKnitPlanInPut.MenuItem1Click(Sender: TObject);
@ -1665,7 +1684,7 @@ begin
Self.C_jiaceng.Text := frmClothInfoSel.CDS_1.fieldbyname('C_jiaceng').AsString; Self.C_jiaceng.Text := frmClothInfoSel.CDS_1.fieldbyname('C_jiaceng').AsString;
Self.C_DYARN.Text := frmClothInfoSel.CDS_1.fieldbyname('C_DYARN').AsString; Self.C_DYARN.Text := frmClothInfoSel.CDS_1.fieldbyname('C_DYARN').AsString;
Self.C_Material_Name.Text := frmClothInfoSel.CDS_1.fieldbyname('C_KHCode').AsString;
Self.OrdSNote.Text := frmClothInfoSel.CDS_1.fieldbyname('Note').AsString; Self.OrdSNote.Text := frmClothInfoSel.CDS_1.fieldbyname('Note').AsString;
Self.C_Deal.Text := frmClothInfoSel.CDS_1.fieldbyname('C_Deal').AsString; Self.C_Deal.Text := frmClothInfoSel.CDS_1.fieldbyname('C_Deal').AsString;
@ -1694,6 +1713,8 @@ begin
CustName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); CustName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
CustName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); CustName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Saleser.Text := Trim(CDS_1.fieldbyname('Saleser').AsString); Saleser.Text := Trim(CDS_1.fieldbyname('Saleser').AsString);
RuleBeforeTare.Text := Trim(CDS_1.fieldbyname('RuleBeforeTare').AsString);
LabPackage.Text := Trim(CDS_1.fieldbyname('LabPackage').AsString);
end; end;
end; end;
finally finally

View File

@ -804,6 +804,14 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Options.Editing = False Options.Editing = False
Width = 90 Width = 90
end end
object cxgrdbclmnTv1Column20: TcxGridDBColumn
Caption = #20027#35201#32433#32447
DataBinding.FieldName = 'C_MainYarn'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

View File

@ -155,6 +155,7 @@ type
Tv1Column18: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn;
ToolButton10: TToolButton; ToolButton10: TToolButton;
cxgrdbclmnTv1Column19: TcxGridDBColumn; cxgrdbclmnTv1Column19: TcxGridDBColumn;
cxgrdbclmnTv1Column20: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject); procedure TBFindClick(Sender: TObject);
@ -197,9 +198,7 @@ type
procedure ToolButton8Click(Sender: TObject); procedure ToolButton8Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject); procedure ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject); procedure ToolButton10Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
private private
FInt, PFInt: Integer; FInt, PFInt: Integer;
procedure InitGrid(); procedure InitGrid();
@ -1003,11 +1002,24 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
//删除流程卡
SQL.Add(' DELETE from PB_LCK'); SQL.Add(' DELETE from PB_LCK');
sql.Add(' where LCKID=''' + Trim(CDS_3.fieldbyname('LCKID').AsString) + ''''); sql.Add(' where LCKID=''' + Trim(CDS_3.fieldbyname('LCKID').AsString) + '''');
//删除工艺
SQL.Add(' DELETE from Dye_Plan_Glide'); SQL.Add(' DELETE from Dye_Plan_Glide');
sql.Add(' where PCID=''' + Trim(CDS_3.fieldbyname('LCKID').AsString) + ''''); sql.Add(' where PCID=''' + Trim(CDS_3.fieldbyname('LCKID').AsString) + '''');
//修改库存数据
SQL.Add(' update knit_cloth_stock set StkExists = 1');
sql.Add(' where STKID in(select PCID from PB_CK_LCK where LCKID =''' + Trim(CDS_1.fieldbyname('LCKID').AsString) + ''')');
//删除绑定数据
SQL.Add(' DELETE from PB_CK_LCK');
sql.Add(' where LCKID=''' + Trim(CDS_3.fieldbyname('LCKID').AsString) + '''');
//删除后处理入库
SQL.Add(' DELETE from BS_Cloth_IO');
sql.Add(' where IOFlag=''入库'' and StkID=''' + Trim(CDS_3.fieldbyname('LCKID').AsString) + '''');
//删除坯布出库数据
SQL.Add(' DELETE from Knit_Cloth_IO');
sql.Add(' where IONo=''' + Trim(CDS_3.fieldbyname('LCKID').AsString) + '''');
ExecSQL; ExecSQL;
end; end;
end; end;
@ -1061,12 +1073,10 @@ begin
// 禁用相关控件防止重复操作 // 禁用相关控件防止重复操作
ToolButton9.Enabled := False; ToolButton9.Enabled := False;
// Application.ProcessMessages; // Application.ProcessMessages;
// 步骤3:执行循环操作 // 步骤3:执行循环操作
for i := 1 to iLoopCount do for i := 1 to iLoopCount do
begin begin
// 更新界面显示当前进度 // 更新界面显示当前进度
// Application.ProcessMessages; // 保持界面响应 // Application.ProcessMessages; // 保持界面响应
with ADOQueryCmd do with ADOQueryCmd do
@ -1092,9 +1102,7 @@ begin
end; end;
procedure TfrmKnitPlanList.Tv1CellDblClick(Sender: TcxCustomGridTableView; procedure TfrmKnitPlanList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin begin
TBView.Click; TBView.Click;
end; end;

View File

@ -17,7 +17,7 @@ inherited frmLCKQuery: TfrmLCKQuery
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
ButtonWidth = 91 ButtonWidth = 103
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
DisabledImages = DataLink_KnitPlan.ImageList_new32 DisabledImages = DataLink_KnitPlan.ImageList_new32
@ -56,22 +56,30 @@ inherited frmLCKQuery: TfrmLCKQuery
ImageIndex = 16 ImageIndex = 16
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object btn3: TToolButton object btn5: TToolButton
Left = 237 Left = 237
Top = 0 Top = 0
AutoSize = True
Caption = #21024#38500#27969#31243#21345
ImageIndex = 5
OnClick = btn5Click
end
object btn3: TToolButton
Left = 344
Top = 0
Caption = #20462#25913#36710#21495 Caption = #20462#25913#36710#21495
ImageIndex = 3 ImageIndex = 3
OnClick = btn3Click OnClick = btn3Click
end end
object btn4: TToolButton object btn4: TToolButton
Left = 328 Left = 447
Top = 0 Top = 0
Caption = #36710#21495#26631#40644 Caption = #36710#21495#26631#40644
ImageIndex = 3 ImageIndex = 3
OnClick = btn4Click OnClick = btn4Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 419 Left = 550
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -301,14 +309,6 @@ inherited frmLCKQuery: TfrmLCKQuery
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object cxgrdbclmnTv1Column5: TcxGridDBColumn
Caption = #26426#21488
DataBinding.FieldName = 'CarNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxgrdbclmnTv1Column6: TcxGridDBColumn object cxgrdbclmnTv1Column6: TcxGridDBColumn
Caption = #36710#21495 Caption = #36710#21495
DataBinding.FieldName = 'CarNumber' DataBinding.FieldName = 'CarNumber'
@ -327,6 +327,7 @@ inherited frmLCKQuery: TfrmLCKQuery
Caption = #25171#21367#21305#25968 Caption = #25171#21367#21305#25968
DataBinding.FieldName = 'InspectNumber' DataBinding.FieldName = 'InspectNumber'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -335,6 +336,7 @@ inherited frmLCKQuery: TfrmLCKQuery
Caption = #20986#24211#21305#25968 Caption = #20986#24211#21305#25968
DataBinding.FieldName = 'IoNumber' DataBinding.FieldName = 'IoNumber'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70

View File

@ -72,7 +72,6 @@ type
cxgrdbclmnTv1Column2: TcxGridDBColumn; cxgrdbclmnTv1Column2: TcxGridDBColumn;
cxgrdbclmnTv1Column3: TcxGridDBColumn; cxgrdbclmnTv1Column3: TcxGridDBColumn;
cxgrdbclmnTv1Column4: TcxGridDBColumn; cxgrdbclmnTv1Column4: TcxGridDBColumn;
cxgrdbclmnTv1Column5: TcxGridDBColumn;
pnl1: TPanel; pnl1: TPanel;
lbl3: TLabel; lbl3: TLabel;
edt1: TEdit; edt1: TEdit;
@ -84,6 +83,7 @@ type
cxgrdbclmnTv1Column7: TcxGridDBColumn; cxgrdbclmnTv1Column7: TcxGridDBColumn;
cxgrdbclmnTv1Column8: TcxGridDBColumn; cxgrdbclmnTv1Column8: TcxGridDBColumn;
cxgrdbclmnTv1Column9: TcxGridDBColumn; cxgrdbclmnTv1Column9: TcxGridDBColumn;
btn5: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -100,6 +100,7 @@ type
procedure btn3Click(Sender: TObject); procedure btn3Click(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure btn4Click(Sender: TObject); procedure btn4Click(Sender: TObject);
procedure btn5Click(Sender: TObject);
private private
FInt, PFInt: Integer; FInt, PFInt: Integer;
FFMainID, BPFlag, FFPCID, FLCKID: string; FFMainID, BPFlag, FFPCID, FLCKID: string;
@ -140,16 +141,16 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select count(I.PCID) IONumber,count(H.PCID) InspectNumber,OutNumber=(select count(C.LCKID) OutNumber from PB_LCK C inner join PB_CK_LCK B on C.LCKID=B.LCKID where B.LCKID = A.LCKID),A.LCKID,A.MainID,A.C_Code '); sql.Add('select count(I.PCID) IONumber,count(H.PCID) InspectNumber,OutNumber=(select count(C.LCKID) OutNumber from PB_LCK C inner join PB_CK_LCK B on C.LCKID=B.LCKID where B.LCKID = A.LCKID),A.LCKID,A.MainID,A.C_Code ');
sql.Add(',A.C_Name,A.KKDate,A.KKPS,A.HCLNote,A.CraFt,A.CarNumber,A.IFBL,E.C_Color,E.C_Width,E.C_GramWeight,F.CarNo'); sql.Add(',A.C_Name,A.KKDate,A.KKPS,A.HCLNote,A.CraFt,A.CarNumber,A.IFBL,E.C_Color,E.C_Width,E.C_GramWeight');
sql.Add(' from PB_LCK A INNER JOIN PB_CK_LCK G on A.LCKID = G.LCKID '); sql.Add(' from PB_LCK A INNER JOIN PB_CK_LCK G on A.LCKID = G.LCKID ');
sql.Add(' INNER JOIN knit_Plan_Main D on A.MainId = D.Mainid '); sql.Add(' INNER JOIN knit_Plan_Main D on A.MainId = D.Mainid ');
sql.Add(' INNER JOIN Knit_Plan_Sub E on D.MainId = E.MainId '); sql.Add(' INNER JOIN Knit_Plan_Sub E on D.MainId = E.MainId ');
sql.Add(' INNER JOIN Knit_Plan_Card F on F.PCID = G.PCID '); sql.Add(' INNER JOIN Knit_Plan_Card F on F.PCID = G.PCID ');
sql.Add(' left JOIN Trade_Cloth_Inspect H on H.MainId = A.MainID and H.PCID = G.PCID '); sql.Add(' left JOIN Trade_Cloth_Inspect H on H.MainId = A.MainID and H.PCID = G.PCID ');
sql.add(' left JOIN V_Trade_Cloth_Io I on H.MainId = A.MainID and I.PCID = G.PCID and I.IOFlag = '''+'łöżâ'''); sql.add(' left JOIN V_Trade_Cloth_Io I on H.MainId = A.MainID and I.PCID = G.PCID and I.IOFlag = ''' + '出库''');
sql.Add(' where A.KKDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''''); sql.Add(' where A.KKDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and A.KKDate<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + ''''); sql.Add(' and A.KKDate<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''');
sql.Add(' GROUP BY A.LCKID,A.MainID,A.C_Code,A.C_Name,A.KKDate,A.KKPS,A.HCLNote,A.CraFt,A.CarNumber,A.IFBL,E.C_Color,E.C_Width,E.C_GramWeight,F.CarNo'); sql.Add(' GROUP BY A.LCKID,A.MainID,A.C_Code,A.C_Name,A.KKDate,A.KKPS,A.HCLNote,A.CraFt,A.CarNumber,A.IFBL,E.C_Color,E.C_Width,E.C_GramWeight');
//ShowMessage(sql.text); //ShowMessage(sql.text);
Open; Open;
end; end;
@ -390,6 +391,63 @@ begin
TBRafresh.Click; TBRafresh.Click;
end; end;
procedure TfrmLCKQuery.btn5Click(Sender: TObject);
var
MLCKIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
// if CDS_3.IsEmpty then
// Exit;
if Application.MessageBox('确定要删除数据吗?', '提示', 32 + 4) <> IDYES then
Exit;
with CDS_1 do
begin
DisableControls;
First;
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
//删除流程卡
SQL.Add(' DELETE from PB_LCK');
sql.Add(' where LCKID=''' + Trim(CDS_1.fieldbyname('LCKID').AsString) + '''');
//删除工艺
SQL.Add(' DELETE from Dye_Plan_Glide');
sql.Add(' where PCID=''' + Trim(CDS_1.fieldbyname('LCKID').AsString) + '''');
//修改库存数据
SQL.Add(' update knit_cloth_stock set StkExists = 1');
sql.Add(' where STKID in(select PCID from PB_CK_LCK where LCKID =''' + Trim(CDS_1.fieldbyname('LCKID').AsString) + ''')');
//删除绑定数据
SQL.Add(' DELETE from PB_CK_LCK');
sql.Add(' where LCKID=''' + Trim(CDS_1.fieldbyname('LCKID').AsString) + '''');
//删除后处理入库
SQL.Add(' DELETE from BS_Cloth_IO');
sql.Add(' where IOFlag=''入库'' and StkID=''' + Trim(CDS_1.fieldbyname('LCKID').AsString) + '''');
//删除坯布出库数据
SQL.Add(' DELETE from Knit_Cloth_IO');
sql.Add(' where IONo=''' + Trim(CDS_1.fieldbyname('LCKID').AsString) + '''');
ExecSQL;
end;
end;
next;
end;
EnableControls;
end;
InitGrid();
end;
procedure TfrmLCKQuery.cxTabControl1Change(Sender: TObject); procedure TfrmLCKQuery.cxTabControl1Change(Sender: TObject);
begin begin
InitGrid(); InitGrid();

View File

@ -0,0 +1,764 @@
inherited frmTradeInspSet2: TfrmTradeInspSet2
Left = 261
Top = 149
Caption = #25171#21367#21253#35013#35774#32622
ClientHeight = 772
ClientWidth = 1320
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307
OldCreateOrder = True
Position = poScreenCenter
OnClose = FormClose
ExplicitWidth = 1336
ExplicitHeight = 811
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1320
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clWhite
Images = DataLink_KnitPlan.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton3: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
Visible = False
OnClick = ToolButton3Click
end
object btn2: TToolButton
Left = 71
Top = 0
Caption = #36873#25321
ImageIndex = 12
OnClick = btn2Click
end
object TBClose: TToolButton
Left = 146
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox [1]
Left = 0
Top = 38
Width = 1320
Height = 83
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentCtl3D = False
ParentFont = False
TabOrder = 1
Visible = False
ExplicitTop = 18
object Label14: TLabel
Left = 32
Top = 17
Width = 39
Height = 15
Caption = #21367#26631#31614
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 728
Top = 40
Width = 39
Height = 15
Caption = #21253#26631#31614
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 483
Top = 15
Width = 52
Height = 15
Caption = #19978#31216#30382#37325
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 275
Top = 17
Width = 52
Height = 15
Caption = #31995#25968#31867#22411
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 301
Top = 41
Width = 26
Height = 15
Caption = #31995#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 715
Top = 14
Width = 52
Height = 15
Caption = #21367#21495#35268#21017
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 19
Top = 44
Width = 52
Height = 15
Caption = #38271#24230#21333#20301
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 470
Top = 41
Width = 65
Height = 15
Caption = #19981#19978#31216#30382#37325
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object RuleBeforeTare: TEdit
Tag = 2
Left = 541
Top = 12
Width = 90
Height = 20
TabOrder = 0
end
object RuleConversion: TComboBox
Tag = 2
Left = 333
Top = 13
Width = 100
Height = 22
Style = csDropDownList
ItemIndex = 0
TabOrder = 1
Text = #26080#38656#36716#25442
Items.Strings = (
#26080#38656#36716#25442
#31859#36716#20844#26020
#20928#37325#36716#31859
#27611#37325#36716#31859)
end
object Coefficient: TEdit
Tag = 2
Left = 333
Top = 38
Width = 100
Height = 20
TabOrder = 2
end
object LabVolume: TEdit
Tag = 2
Left = 77
Top = 14
Width = 172
Height = 20
ReadOnly = True
TabOrder = 3
end
object LabPackage: TEdit
Tag = 2
Left = 773
Top = 38
Width = 172
Height = 20
ReadOnly = True
TabOrder = 4
end
object RulePieceNo: TComboBox
Tag = 2
Left = 773
Top = 10
Width = 120
Height = 22
Style = csDropDownList
ItemIndex = 0
TabOrder = 5
Text = #25353#29983#20135#21333#29983#25104
Items.Strings = (
#25353#29983#20135#21333#29983#25104
#25353#32568#21495#29983#25104
#25163#21160#29983#25104)
end
object RuleLenUnit: TComboBox
Tag = 2
Left = 77
Top = 40
Width = 172
Height = 22
Style = csDropDownList
TabOrder = 6
Items.Strings = (
'M'
'Y')
end
object RuleLaterTare: TEdit
Tag = 2
Left = 541
Top = 38
Width = 90
Height = 20
TabOrder = 7
end
end
object cxPageControl1: TcxPageControl [2]
Left = 0
Top = 121
Width = 1320
Height = 651
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 2
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
OnChange = cxPageControl1Change
ExplicitTop = 101
ExplicitHeight = 671
ClientRectBottom = 651
ClientRectRight = 1320
ClientRectTop = 32
object cxTabSheet1: TcxTabSheet
Caption = #26631#31614#35774#32622
ImageIndex = 2
ExplicitHeight = 639
object Panel1: TPanel
Left = 0
Top = 0
Width = 1320
Height = 619
Align = alClient
Caption = 'Panel1'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
ExplicitHeight = 639
object Panel2: TPanel
Left = 1
Top = 39
Width = 376
Height = 579
Align = alLeft
Caption = 'Panel1'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
ExplicitHeight = 599
object cxGridLabel: TcxGrid
Left = 1
Top = 35
Width = 374
Height = 543
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
ExplicitHeight = 563
object TVLabel: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellClick = TVLabelCellClick
DataController.DataSource = DS_Label
DataController.Filter.AutoDataSetFilter = True
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsSelection.CellSelect = False
OptionsView.GroupByBox = False
object TVLabellabelId: TcxGridDBColumn
Caption = #26631#31614'ID'
DataBinding.FieldName = 'labelId'
DataBinding.IsNullValueType = True
Visible = False
Width = 53
end
object TVLabellabeltype: TcxGridDBColumn
Caption = #26631#31614#31867#22411
DataBinding.FieldName = 'labeltype'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 107
end
object TVLabellabelCaption: TcxGridDBColumn
Caption = #26631#31614#21517#31216
DataBinding.FieldName = 'labelCaption'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 261
end
object TVLabellabelFile: TcxGridDBColumn
Caption = #25991#20214#21517
DataBinding.FieldName = 'labelFile'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 167
end
object TVLabelColumn2: TcxGridDBColumn
Caption = #25805#20316#26102#38388
DataBinding.FieldName = 'EditTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object TVLabelColumn1: TcxGridDBColumn
Caption = #25805#20316#20154
DataBinding.FieldName = 'Editer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end
object cxGridLabelLevel1: TcxGridLevel
GridView = TVLabel
end
end
object Panel4: TPanel
Left = 1
Top = 1
Width = 374
Height = 34
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
object Label9: TLabel
Left = 17
Top = 9
Width = 48
Height = 12
Caption = #26631#31614#31867#22411
end
object Label10: TLabel
Left = 184
Top = 10
Width = 48
Height = 12
Caption = #26631#31614#21517#31216
end
object LabelCaption: TEdit
Left = 236
Top = 6
Width = 100
Height = 20
TabOrder = 0
OnChange = LabelTypeChange
end
object LabelType: TRTComboBox
Tag = 99
Left = 69
Top = 6
Width = 100
Height = 20
Style = csDropDownList
ItemIndex = 0
TabOrder = 1
OnChange = LabelTypeChange
Items.Strings = (
''
#20013#25991#26631#31614
#33521#25991#26631#31614
#20013#33521#25991#26631#31614)
end
end
end
object RMPreview3: TRMPreview
Left = 377
Top = 39
Width = 942
Height = 579
Align = alClient
BevelOuter = bvLowered
Caption = 'Insert After'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 1
Options.RulerUnit = rmutScreenPixels
Options.RulerVisible = False
Options.DrawBorder = False
Options.BorderPen.Color = clGray
Options.BorderPen.Style = psDash
ExplicitHeight = 599
end
object ToolBar2: TToolBar
Tag = 1
Left = 1
Top = 1
Width = 1318
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 103
Caption = 'ToolBar2'
Color = clBtnFace
Images = DataLink_KnitPlan.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 2
Transparent = False
object Tadd: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 2
OnClick = TaddClick
end
object btn1: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #22797#21046
ImageIndex = 9
OnClick = btn1Click
end
object Tupd: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
OnClick = TupdClick
end
object ToolButton4: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #35774#35745#26631#31614
ImageIndex = 3
OnClick = ToolButton4Click
end
object Tdel: TToolButton
Left = 308
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TdelClick
end
object ToolButton2: TToolButton
Left = 379
Top = 0
AutoSize = True
Caption = #35774#20026#21253#26631#31614
ImageIndex = 22
Visible = False
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 486
Top = 0
AutoSize = True
Caption = #35774#20026#21367#26631#31614
ImageIndex = 22
Visible = False
OnClick = ToolButton1Click
end
end
end
end
object cxTabSheet4: TcxTabSheet
Caption = ' '#21367#26631#31614' '
ImageIndex = 3
ExplicitHeight = 639
object RMPreview1: TRMPreview
Left = 0
Top = 0
Width = 1320
Height = 619
Align = alClient
BevelOuter = bvLowered
Caption = 'Insert After'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 0
Options.RulerUnit = rmutScreenPixels
Options.RulerVisible = False
Options.DrawBorder = False
Options.BorderPen.Color = clGray
Options.BorderPen.Style = psDash
ExplicitHeight = 639
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_KnitPlan.ADOLink
Left = 417
Top = 576
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_KnitPlan.ADOLink
Left = 473
Top = 657
end
inherited ImageList_new32: TImageList
Left = 88
Top = 432
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_KnitPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 171
Top = 280
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_KnitPlan.ADOLink
Parameters = <>
Left = 78
Top = 280
end
object ADOQueryMain: TADOQuery
Connection = DataLink_KnitPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 181
Top = 489
end
object ADOQueryLabel: TADOQuery
Connection = DataLink_KnitPlan.ADOLink
Parameters = <>
Left = 228
Top = 365
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator]
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDB_1
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 472
Top = 240
ReportData = {}
end
object RMDB_1: TRMDBDataSet
Visible = True
DataSet = ADO_1
Left = 428
Top = 244
end
object ADO_1: TADOQuery
Connection = DataLink_KnitPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 283
Top = 288
end
object RM2: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator]
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDB_1
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 472
Top = 296
ReportData = {}
end
object RMDB_2: TRMDBDataSet
Visible = True
DataSet = ADO_1
Left = 428
Top = 300
end
object DS_Label: TDataSource
DataSet = CDS_Label
Left = 234
Top = 568
end
object CDS_Label: TClientDataSet
Aggregates = <>
Params = <>
Left = 164
Top = 563
end
object RMDB_Label: TRMDBDataSet
Visible = True
DataSet = ADO_1
Left = 164
Top = 620
end
object RMLabel: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator]
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDB_Label
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 232
Top = 624
ReportData = {}
end
object RMBarCodeObject1: TRMBarCodeObject
Left = 504
Top = 412
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 10
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 432
Top = 472
end
object RMDataDictionary1: TRMDataDictionary
FieldFieldNames.TableName = 'TableName'
FieldFieldNames.FieldName = 'FieldName'
FieldFieldNames.FieldAlias = 'FieldAlias'
Left = 434
Top = 400
end
object ADO_Down: TADOQuery
Connection = DataLink_KnitPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 59
Top = 352
end
end

View File

@ -0,0 +1,532 @@
unit U_TradeInspSet2;
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, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore, cxDateUtils, cxImage,
cxDBEdit, IdExplicitTLSClientServerBase, RM_Preview, cxPC, U_BaseHelp,
System.ImageList, Vcl.ImgList, RTComboBox, RM_BarCode, RM_e_Xls,
dxScrollbarAnnotations;
type
TfrmTradeInspSet2 = class(TfrmBaseHelp)
ToolBar1: TToolBar;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ToolButton3: TToolButton;
ScrollBox1: TScrollBox;
Label14: TLabel;
Label1: TLabel;
cxPageControl1: TcxPageControl;
cxTabSheet4: TcxTabSheet;
RMPreview1: TRMPreview;
Label2: TLabel;
RuleBeforeTare: TEdit;
RuleConversion: TComboBox;
Label3: TLabel;
Coefficient: TEdit;
Label4: TLabel;
ADOQueryLabel: TADOQuery;
RM1: TRMGridReport;
RMDB_1: TRMDBDataSet;
ADO_1: TADOQuery;
RM2: TRMGridReport;
RMDB_2: TRMDBDataSet;
cxTabSheet1: TcxTabSheet;
DS_Label: TDataSource;
CDS_Label: TClientDataSet;
RMDB_Label: TRMDBDataSet;
RMLabel: TRMGridReport;
Panel1: TPanel;
Panel2: TPanel;
cxGridLabel: TcxGrid;
TVLabel: TcxGridDBTableView;
TVLabellabelId: TcxGridDBColumn;
TVLabellabeltype: TcxGridDBColumn;
TVLabellabelCaption: TcxGridDBColumn;
TVLabellabelFile: TcxGridDBColumn;
cxGridLabelLevel1: TcxGridLevel;
RMPreview3: TRMPreview;
Panel4: TPanel;
Label9: TLabel;
Label10: TLabel;
LabelCaption: TEdit;
LabelType: TRTComboBox;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
Tadd: TToolButton;
Tupd: TToolButton;
Tdel: TToolButton;
ToolButton4: TToolButton;
RMBarCodeObject1: TRMBarCodeObject;
RMXLSExport1: TRMXLSExport;
RMDataDictionary1: TRMDataDictionary;
ADO_Down: TADOQuery;
TVLabelColumn1: TcxGridDBColumn;
TVLabelColumn2: TcxGridDBColumn;
LabVolume: TEdit;
LabPackage: TEdit;
Label5: TLabel;
RulePieceNo: TComboBox;
Label6: TLabel;
RuleLenUnit: TComboBox;
Label8: TLabel;
RuleLaterTare: TEdit;
btn1: TToolButton;
btn2: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure TupdClick(Sender: TObject);
procedure TdelClick(Sender: TObject);
procedure TaddClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure LabelTypeChange(Sender: TObject);
procedure TVLabelCellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
function SaveData(): Boolean;
procedure InitLabel();
function SaveLabel(MLabelID: string): Boolean;
procedure InitLabVolume();
procedure InitLabPackage();
public
FDataID: string;
end;
var
frmTradeInspSet2: TfrmTradeInspSet2;
implementation
uses
U_DataLink, U_RTFun, U_LabelInput, U_LabelList;
{$R *.dfm}
function TfrmTradeInspSet2.SaveLabel(MLabelID: string): Boolean;
begin
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from Trade_Label');
sql.Add('where LabelID=' + Quotedstr(MLabelID));
Open;
Edit;
fieldByName('Editer').value := DName;
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
// RMLabel.SaveToBlobField(TBlobField(FieldByName('LabelFile')));
Post;
end;
ADOQueryCmd.Connection.CommitTrans;
result := true;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := false;
application.MessageBox('保存标签模板出错!', '警告信息', 0);
end;
end;
procedure TfrmTradeInspSet2.InitLabel();
begin
with ADOQueryMain do
begin
close;
sql.Clear;
sql.Add(' select * from Trade_Label');
sql.Add(' order by labeltype,labelCaption');
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel4, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Label);
SInitCDSData(ADOQueryMain, CDS_Label);
end;
procedure TfrmTradeInspSet2.InitLabVolume();
begin
with ADOQueryLabel do
begin
close;
sql.Clear;
sql.Add('select top 1 * from RT_FileUpdate');
sql.Add('where FileName=' + quotedstr(trim(LabVolume.Text) + '.rmf'));
Open;
end;
if ADOQueryLabel.IsEmpty then
exit;
with RM1 do
begin
LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('Files')));
Preview := RMPreview1;
ShowReport;
end;
end;
procedure TfrmTradeInspSet2.InitLabPackage();
begin
end;
procedure TfrmTradeInspSet2.LabelTypeChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel4, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Label);
SInitCDSData(ADOQueryMain, CDS_Label);
end;
end;
procedure TfrmTradeInspSet2.InitGrid();
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Cloth_Inspect_Rule where RuleID=''' + Trim(FDataID) + '''');
Open;
end;
SCSHData(ADOQueryTemp, ScrollBox1, 2);
// with ADOQueryTemp do
// begin
// close;
// sql.Clear;
// sql.Add(' select C.LabName from Knit_Plan_Main A ');
// sql.Add(' INNER JOIN Knit_Plan_Sub B on A.MainID=B.MainID');
// sql.Add(' INNER JOIN BS_Contract_Sub C on B.ConSId =C.ConSId');
// sql.Add(' where A.MainId=''' + Trim(FDataID) + '''');
// Open;
// end;
//
// LabVolume.text := Trim(ADOQueryTemp.fieldbyname('LabName').AsString);
end;
procedure TfrmTradeInspSet2.FormDestroy(Sender: TObject);
begin
inherited;
frmTradeInspSet2 := nil;
end;
procedure TfrmTradeInspSet2.btn1Click(Sender: TObject);
var
MFromLabelId: string;
begin
MFromLabelId := trim(CDS_Label.fieldbyname('LabelId').asstring);
try
frmLabelInput := TfrmLabelInput.create(self);
with frmLabelInput do
begin
if showModal = 1 then
begin
FLabelId := frmLabelInput.LabelCaption.Text;
with ADOQueryCmd do
begin
close;
sql.clear;
sql.Add(' exec P_BS_Label_Copy');
sql.Add(' @FromLabelId=' + quotedstr(trim(MFromLabelId)));
sql.Add(',@ToLabelId=' + quotedstr(trim(FLabelId)));
// ShowMessage(sql.text);
execSql;
end;
InitLabel();
end;
end;
finally
frmLabelInput.Free;
end;
end;
procedure TfrmTradeInspSet2.btn2Click(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmTradeInspSet2.cxPageControl1Change(Sender: TObject);
begin
case cxPageControl1.ActivePageIndex of
1:
begin
InitLabVolume();
end;
2:
begin
InitLabPackage();
end;
end;
end;
procedure TfrmTradeInspSet2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmTradeInspSet2.TaddClick(Sender: TObject);
begin
try
frmLabelInput := TfrmLabelInput.create(self);
with frmLabelInput do
begin
FLabelId := '';
if showModal = 1 then
begin
InitLabel();
end;
end;
finally
frmLabelInput.Free;
end;
end;
procedure TfrmTradeInspSet2.TBCloseClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmTradeInspSet2.FormShow(Sender: TObject);
begin
inherited;
ExportFtErpFile('模板标签.rmf', ADOQueryTemp);
with ADO_1 do
begin
Close;
SQL.Clear;
sql.Add('exec P_BS_Label_Get_Test');
Open;
end;
Initlabel();
InitGrid();
end;
procedure TfrmTradeInspSet2.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTradeInspSet2.TdelClick(Sender: TObject);
begin
try
with ADOQueryCmd do
begin
close;
sql.clear;
sql.Add('delete Trade_Label');
sql.Add('where labelId=' + quotedstr(CDS_Label.fieldByName('LabelID').asString));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('标签删除')));
sql.Add(',' + quotedstr(trim('标签名称:' + trim(CDS_Label.fieldByName('labelCaption').asString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execSql;
end;
CDS_Label.Delete;
except
application.MessageBox('删除失败!', '警告信息', 0);
end;
end;
function TfrmTradeInspSet2.SaveData(): Boolean;
var
MaxId, MaxSubId, FCoCode, FCCID, MaxCFID: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
if Trim(FDataID) = '' then
begin
if GetLSNo(ADOQueryCmd, MaxId, 'R', 'Trade_Cloth_Inspect_Rule', 4, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败!', '提示', 0);
Exit;
end;
end
else
begin
MaxId := Trim(FDataID);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Trade_Cloth_Inspect_Rule where RuleID=''' + Trim(FDataID) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(FDataID) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
end;
FieldByName('RuleID').Value := Trim(MaxId);
RTSetsavedata(ADOQueryCmd, 'Trade_Cloth_Inspect_Rule', ScrollBox1, 2);
Post;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add(' UPDATE BS_Contract_Sub set LabName =''' + Trim(LabVolume.text) + '''');
sql.Add(' from BS_Contract_Sub A ');
sql.Add(' INNER JOIN Knit_Plan_Sub B on A.ConSId=B.ConSId');
sql.Add(' where B.MainId =''' + Trim(FDataID) + '''');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
FCCID := Trim(MaxSubId);
Result := True;
except
Result := false;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存异常!', '提示', 0);
end;
end;
procedure TfrmTradeInspSet2.ToolButton1Click(Sender: TObject);
begin
if CDS_Label.IsEmpty then
exit;
LabVolume.Text := trim(CDS_Label.fieldbyname('labelCaption').asstring);
end;
procedure TfrmTradeInspSet2.ToolButton2Click(Sender: TObject);
begin
if CDS_Label.IsEmpty then
exit;
LabPackage.Text := trim(CDS_Label.fieldbyname('labelCaption').asstring);
end;
procedure TfrmTradeInspSet2.ToolButton3Click(Sender: TObject);
begin
if SaveData() then
begin
Application.MessageBox('保存成功!', '提示', 0);
end;
end;
procedure TfrmTradeInspSet2.ToolButton4Click(Sender: TObject);
var
fFileName, fPrintFile: string;
MLabelID, MLabelCaption: string;
begin
if CDS_Label.IsEmpty then
exit;
MLabelID := TRIM(CDS_Label.fieldByName('LabelID').asString);
MLabelCaption := TRIM(CDS_Label.fieldByName('LabelCaption').asString);
ExportFtErpFile(MLabelCaption + '.rmf', ADOQueryTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'report\' + MLabelCaption + '.rmf';
if not FileExists(fPrintFile) then
CopyFile(PChar(ExtractFilePath(Application.ExeName) + 'Report\模板标签.rmf'), PChar(fPrintFile), False);
with RMLabel do
begin
RMLabel.Clear;
RMDB_Label.DataSet := nil;
Dictionary.FieldAliases.Clear;
Dictionary.FieldAliases['RMDB_Label'] := '标签数据';
RMDB_Label.DataSet := ADO_1;
LoadFromFile(fPrintFile);
application.ProcessMessages;
DesignReport();
// RMLabel.SaveToFile(fPrintFile);
SaveLabel(MLabelID);
ExportToFtErp(fPrintFile, ADOQueryCmd);
end;
end;
procedure TfrmTradeInspSet2.TupdClick(Sender: TObject);
begin
if CDS_Label.IsEmpty then
exit;
try
frmLabelInput := TfrmLabelInput.create(self);
with frmLabelInput do
begin
fLabelId := CDS_Label.fieldByName('LabelId').AsString;
if showModal = 1 then
begin
InitLabel();
end;
end;
finally
frmLabelInput.Free;
end;
end;
procedure TfrmTradeInspSet2.TVLabelCellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
var
fPrintFile: string;
begin
if CDS_Label.IsEmpty then
exit;
ExportFtErpFile(TRIM(CDS_Label.fieldByName('LabelCaption').asString) + '.rmf', ADOQueryTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + CDS_Label.fieldbyname('LabelCaption').AsString + '.rmf';
if not FileExists(fPrintFile) then
CopyFile(PChar(ExtractFilePath(Application.ExeName) + 'Report\模板标签.rmf'), PChar(fPrintFile), False);
with RMLabel do
begin
RMLabel.LoadFromFile(fPrintFile);
Preview := RMPreview3;
ShowReport;
end;
end;
end.

View File

@ -2360,10 +2360,6 @@
object 查看: TcxTabSheet object 查看: TcxTabSheet
Caption = #26597#30475 Caption = #26597#30475
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
@ -3330,4 +3326,9 @@
Left = 1160 Left = 1160
Top = 403 Top = 403
end end
object Timer1: TTimer
Interval = 5000
Left = 503
Top = 325
end
end end

View File

@ -292,6 +292,7 @@ type
ToolButton10: TToolButton; ToolButton10: TToolButton;
Label23: TLabel; Label23: TLabel;
JuanHao: TEdit; JuanHao: TEdit;
Timer1: TTimer;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -370,7 +371,6 @@ type
procedure On1201(var Message: Tmessage); message 1201; //µç×Ó³Æ procedure On1201(var Message: Tmessage); message 1201; //µç×Ó³Æ
procedure On1301(var Message: Tmessage); message 1301; //Âë±í procedure On1301(var Message: Tmessage); message 1301; //Âë±í
procedure PlayWav(MWav: string); procedure PlayWav(MWav: string);
public public
fmanage: string; fmanage: string;
fFlileFlag: string; fFlileFlag: string;
@ -380,6 +380,8 @@ type
var var
frmKnitMachInsp: TfrmKnitMachInsp; frmKnitMachInsp: TfrmKnitMachInsp;
newh, newh1: hwnd; newh, newh1: hwnd;
CanPressEnter: Boolean;
implementation implementation
@ -744,6 +746,7 @@ begin
InitJYGrid(); InitJYGrid();
InitCDGrid(FCIID); InitCDGrid(FCIID);
PlayWav('扫描成功');
edtScan.Text := ''; edtScan.Text := '';
end; end;
@ -1457,7 +1460,7 @@ begin
begin begin
if Controls[i] is TSpeedButton then if Controls[i] is TSpeedButton then
begin begin
TSpeedButton(Controls[i]).Hint := Trim(CIFBeg.Name); TSpeedButton(Controls[i]).Hint := Trim(CIFNumber.Name);
end; end;
end; end;
end; end;

View File

@ -1,48 +1,48 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.349,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.834,=D:\Dp10Repo\项目代码\东亚\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.834,=D:\Dp10Repo\项目代码\东亚\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.600,D:\Dp10Repo\项目代码\东亚\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\东亚\D03针织坯布仓库\U_KnitDyePlan.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj</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.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.349,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.987,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.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.858,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.858,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.600,D:\Dp10Repo\项目代码\东亚\D03针织坯布仓库\U_KnitDyePlan.dfm=D:\Dp10Repo\项目代码\东亚\A00通用窗体\U_CompanySel.dfm</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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.978,=D:\Dp10Repo\项目代码\阔和\D03针织坯布仓库\U_KnitDRSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.978,=D:\Dp10Repo\项目代码\阔和\D03针织坯布仓库\U_KnitDRSel.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.987,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.054,=D:\Dp10Repo\项目代码\东亚\D03针织坯布仓库\U_KnitClothTotalStkList_Sel.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.865,=D:\Dp10Repo\项目代码\D10gmXinHua\D03针织坯布仓库\TfrmKnitClothTotalOutList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.865,=D:\Dp10Repo\项目代码\D10gmXinHua\D03针织坯布仓库\TfrmKnitClothTotalOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.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.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.054,=D:\Dp10Repo\项目代码\东亚\D03针织坯布仓库\U_KnitClothTotalStkList_Sel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.176,=D:\Dp10Repo\项目代码\D10gmXinHua\D03针织坯布仓库\U_KnitClothTotalInList.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.600,D:\Dp10Repo\项目代码\东亚\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\东亚\D03针织坯布仓库\U_KnitDyePlan.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.600,D:\Dp10Repo\项目代码\东亚\D03针织坯布仓库\U_KnitDyePlan.pas=D:\Dp10Repo\项目代码\东亚\A00通用窗体\U_CompanySel.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.038,=D:\Dp10Repo\项目代码\D10gmXinHua\D03针织坯布仓库\U_KnitClothTotalOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.365,=D:\Dp10Repo\项目代码\阔和\D03针织坯布仓库\U_KnitClothOutEdit.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.365,=D:\Dp10Repo\项目代码\阔和\D03针织坯布仓库\U_KnitClothOutEdit.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.176,=D:\Dp10Repo\项目代码\D10gmXinHua\D03针织坯布仓库\U_KnitClothTotalInList.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.038,=D:\Dp10Repo\项目代码\D10gmXinHua\D03针织坯布仓库\U_KnitClothTotalOutList.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>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -73,7 +73,7 @@
<File Path="fmx.dex.jar"/> <File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/> <File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/> <File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10gmXinHuaHuaQian"/> <File Path="..\..\D10gmBitao"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>

View File

@ -2,6 +2,6 @@
<BorlandProject> <BorlandProject>
<Transactions/> <Transactions/>
<Default.Personality> <Default.Personality>
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\D03针织坯布仓库\KnitClothStk.dproj"/> <Projects ActiveProject="D:\Dp10Repo\项目代码\D10gmBitao\D03针织坯布仓库\KnitClothStk.dproj"/>
</Default.Personality> </Default.Personality>
</BorlandProject> </BorlandProject>

View File

@ -91,8 +91,8 @@
ParentFont = False ParentFont = False
end end
object Label10: TLabel object Label10: TLabel
Left = 34 Left = 40
Top = 234 Top = 191
Width = 42 Width = 42
Height = 24 Height = 24
Caption = #27491#21697 Caption = #27491#21697
@ -104,8 +104,8 @@
ParentFont = False ParentFont = False
end end
object Label12: TLabel object Label12: TLabel
Left = 120 Left = 126
Top = 234 Top = 191
Width = 42 Width = 42
Height = 24 Height = 24
Caption = #22238#20462 Caption = #22238#20462
@ -170,8 +170,8 @@
ParentFont = False ParentFont = False
end end
object Label37: TLabel object Label37: TLabel
Left = 207 Left = 213
Top = 234 Top = 191
Width = 42 Width = 42
Height = 24 Height = 24
Caption = #25253#24223 Caption = #25253#24223
@ -210,8 +210,8 @@
ParentFont = False ParentFont = False
end end
object lbl1: TLabel object lbl1: TLabel
Left = 11 Left = 2
Top = 186 Top = 361
Width = 155 Width = 155
Height = 34 Height = 34
Caption = #26159#21542#19981#20837#24211 Caption = #26159#21542#19981#20837#24211
@ -221,6 +221,20 @@
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end
object lbl4: TLabel
Left = 13
Top = 241
Width = 62
Height = 34
Caption = #24320#21098
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -29
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end end
object InputLen: TEdit object InputLen: TEdit
Left = 80 Left = 80
@ -239,10 +253,10 @@
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object BTPrint: TButton object BTPrint: TButton
Left = 273 Left = 290
Top = 203 Top = 199
Width = 120 Width = 120
Height = 57 Height = 82
Caption = #25552#20132 Caption = #25552#20132
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -284,8 +298,8 @@
OnClick = Button8Click OnClick = Button8Click
end end
object Edit3: TEdit object Edit3: TEdit
Left = 6 Left = 12
Top = 230 Top = 187
Width = 30 Width = 30
Height = 32 Height = 32
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -301,8 +315,8 @@
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object Edit4: TEdit object Edit4: TEdit
Left = 84 Left = 90
Top = 229 Top = 186
Width = 30 Width = 30
Height = 32 Height = 32
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -393,8 +407,8 @@
TabOrder = 10 TabOrder = 10
end end
object Edit5: TEdit object Edit5: TEdit
Left = 176 Left = 182
Top = 230 Top = 187
Width = 30 Width = 30
Height = 32 Height = 32
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -440,8 +454,8 @@
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object edt1: TEdit object edt1: TEdit
Left = 167 Left = 158
Top = 181 Top = 356
Width = 50 Width = 50
Height = 48 Height = 48
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -452,6 +466,7 @@
ParentFont = False ParentFont = False
ReadOnly = True ReadOnly = True
TabOrder = 14 TabOrder = 14
Visible = False
OnClick = edt1Click OnClick = edt1Click
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
@ -469,6 +484,37 @@
ReadOnly = True ReadOnly = True
TabOrder = 15 TabOrder = 15
end end
object edtKJ: TEdit
Tag = 1
Left = 80
Top = 240
Width = 102
Height = 41
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 16
OnClick = CIFBegClick
OnKeyPress = MJstr3KeyPress
end
object btn1: TButton
Left = 182
Top = 240
Width = 73
Height = 41
Caption = #30830#35748
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 17
OnClick = btn1Click
end
end end
object Panel10: TPanel object Panel10: TPanel
Left = 1 Left = 1
@ -2549,7 +2595,7 @@
end end
object Panel3: TPanel [4] object Panel3: TPanel [4]
Left = 3 Left = 3
Top = 475 Top = 474
Width = 413 Width = 413
Height = 207 Height = 207
BevelInner = bvRaised BevelInner = bvRaised

View File

@ -304,6 +304,9 @@ type
SpeedButton87: TSpeedButton; SpeedButton87: TSpeedButton;
Edit2: TEdit; Edit2: TEdit;
Timer1: TTimer; Timer1: TTimer;
lbl4: TLabel;
edtKJ: TEdit;
btn1: TButton;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -355,6 +358,7 @@ type
procedure edt1Click(Sender: TObject); procedure edt1Click(Sender: TObject);
procedure Edit1Click(Sender: TObject); procedure Edit1Click(Sender: TObject);
procedure SpeedButton87Click(Sender: TObject); procedure SpeedButton87Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FCIID, FOperationStatus, FCIFName, FWorkshop: string; FCIID, FOperationStatus, FCIFName, FWorkshop: string;
@ -941,16 +945,16 @@ begin
if ADOTmp.IsEmpty = false then if ADOTmp.IsEmpty = false then
begin begin
// if Application.MessageBox('该布票已检验,是否继续', '提示', 32 + 4) <> IDYES then if Application.MessageBox('该布票已检验,是否继续', '提示', 32 + 4) <> IDYES then
// begin begin
// edtScan.Text := '';
// ClearGlobal();
// Exit;
// end;
Application.MessageBox('已检验', '提示', 0);
edtScan.Text := ''; edtScan.Text := '';
ClearGlobal(); ClearGlobal();
exit; Exit;
end;
// Application.MessageBox('已检验', '提示', 0);
// edtScan.Text := '';
// ClearGlobal();
// exit;
end; end;
with ADOTmp do with ADOTmp do
@ -1034,7 +1038,7 @@ begin
// DelQty.text := Trim(ADOTmp.fieldbyname('DelMeter').AsString); // DelQty.text := Trim(ADOTmp.fieldbyname('DelMeter').AsString);
MPlace.Text := Trim(ADOTmp.fieldbyname('LengthNumber').AsString); MPlace.Text := Trim(ADOTmp.fieldbyname('LengthNumber').AsString);
Tare.Text := ADOTmp.fieldbyname('RuleLaterTare').AsString; // 皮重(上称) Tare.Text := ADOTmp.fieldbyname('RuleBeforeTare').AsString; // 皮重(上称)
FRuleBeforeTare := ADOTmp.fieldbyname('RuleBeforeTare').AsString; // 皮重(上称) FRuleBeforeTare := ADOTmp.fieldbyname('RuleBeforeTare').AsString; // 皮重(上称)
FRuleLaterTare := ADOTmp.fieldbyname('RuleLaterTare').AsString; // 皮重(不上称) FRuleLaterTare := ADOTmp.fieldbyname('RuleLaterTare').AsString; // 皮重(不上称)
InputLen.SetFocus; InputLen.SetFocus;
@ -1479,10 +1483,13 @@ begin
FieldByName('Coefficient').Value := StrToFloatdef(trim(Coefficient.Text), 0); //系数 FieldByName('Coefficient').Value := StrToFloatdef(trim(Coefficient.Text), 0); //系数
///////////////////////// 保存重量 ///////////////////////// ///////////////////////// 保存重量 /////////////////////////
//上称皮重
if Tare.Text <> '' then
MRuleBeforeTare := StrToFloatdef(Tare.Text, 0)
else
MRuleBeforeTare := StrToFloatdef(FRuleBeforeTare, 0); MRuleBeforeTare := StrToFloatdef(FRuleBeforeTare, 0);
MRuleLaterTare := StrToFloatdef(FRuleLaterTare, 0);
MRuleLaterTare := StrToFloatdef(FRuleLaterTare, 0); //不上称皮重
MTare := MRuleBeforeTare + MRuleLaterTare; //皮重 MTare := MRuleBeforeTare + MRuleLaterTare; //皮重
MInputWeight := RoundFloat(StrToFloatdef(trim(InputWeight.Text), 0), StrTointdef(KgPlace.Text, 0)); //毛重 MInputWeight := RoundFloat(StrToFloatdef(trim(InputWeight.Text), 0), StrTointdef(KgPlace.Text, 0)); //毛重
MGrossWeight := MInputWeight + MRuleLaterTare; //毛重 MGrossWeight := MInputWeight + MRuleLaterTare; //毛重
@ -1714,6 +1721,19 @@ begin
end; end;
end; end;
procedure TfrmTradeMachInsp.btn1Click(Sender: TObject);
var
mvalue: Double;
begin
if Trim(edtKJ.Text) <> '' then
begin
if TryStrToFloat(edtKJ.Text, mvalue) = False then
raise Exception.Create('重量录入错误!');
DelQty.Text := FloatToStr(strtofloatdef(trim(DelQty.Text), 0) + strtofloatdef(trim(edtKJ.Text), 0));
edtKJ.Text := '';
end;
end;
procedure TfrmTradeMachInsp.btnCXRKClick(Sender: TObject); procedure TfrmTradeMachInsp.btnCXRKClick(Sender: TObject);
var var
MStkIds: string; MStkIds: string;