~
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
50f2c56508
commit
60201bb1d4
|
|
@ -138,7 +138,7 @@ begin
|
||||||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + LBName + '.rmf';
|
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + LBName + '.rmf';
|
||||||
if FileExists(fPrintFile) then
|
if FileExists(fPrintFile) then
|
||||||
begin
|
begin
|
||||||
|
RMXLSExport1.ShowDialog := True;
|
||||||
RM1.LoadFromFile(fPrintFile);
|
RM1.LoadFromFile(fPrintFile);
|
||||||
RM1.DefaultCopies := StrToIntDef(ComboBox1.Text, 1);
|
RM1.DefaultCopies := StrToIntDef(ComboBox1.Text, 1);
|
||||||
RMVariables['LBPrtCode'] := dcode;
|
RMVariables['LBPrtCode'] := dcode;
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<Default.Personality>
|
<Default.Personality>
|
||||||
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10djdPackwenshang\项目代码\wenshangkm\G01贸易生产计划\djdPackPlan.dproj"/>
|
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10DJkaimengwenshang\项目代码\wenshangkm\G01贸易生产计划\djdPackPlan.dproj"/>
|
||||||
</Default.Personality>
|
</Default.Personality>
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|
|
||||||
339
项目代码/wenshangkm/G01贸易生产计划/U_BillPrintList.dfm
Normal file
339
项目代码/wenshangkm/G01贸易生产计划/U_BillPrintList.dfm
Normal file
|
|
@ -0,0 +1,339 @@
|
||||||
|
inherited frmBillPrintList: TfrmBillPrintList
|
||||||
|
Caption = #30721#21333#26684#24335#31649#29702
|
||||||
|
ClientHeight = 572
|
||||||
|
ClientWidth = 999
|
||||||
|
Color = clBtnFace
|
||||||
|
ExplicitWidth = 1015
|
||||||
|
ExplicitHeight = 611
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 17
|
||||||
|
object ToolBar1: TToolBar [0]
|
||||||
|
Tag = 1
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 999
|
||||||
|
Height = 30
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 30
|
||||||
|
ButtonWidth = 131
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
Color = clBtnFace
|
||||||
|
DisabledImages = DataLink_TradePlan.cxImageList_bar
|
||||||
|
EdgeInner = esNone
|
||||||
|
EdgeOuter = esNone
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = #24494#36719#38597#40657
|
||||||
|
Font.Style = []
|
||||||
|
Images = DataLink_TradePlan.cxImageList_bar
|
||||||
|
List = True
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 4
|
||||||
|
object TBRafresh: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21047#26032
|
||||||
|
ImageIndex = 1
|
||||||
|
OnClick = TBRafreshClick
|
||||||
|
end
|
||||||
|
object TgroupAdd: TToolButton
|
||||||
|
Left = 71
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #26032#22686
|
||||||
|
ImageIndex = 2
|
||||||
|
OnClick = TgroupAddClick
|
||||||
|
end
|
||||||
|
object TgroupMdy: TToolButton
|
||||||
|
Left = 142
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20462#25913
|
||||||
|
ImageIndex = 3
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object TBDel: TToolButton
|
||||||
|
Left = 213
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21024#38500
|
||||||
|
ImageIndex = 5
|
||||||
|
Visible = False
|
||||||
|
OnClick = TBDelClick
|
||||||
|
end
|
||||||
|
object ToolButton1: TToolButton
|
||||||
|
Left = 284
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20445#23384
|
||||||
|
ImageIndex = 37
|
||||||
|
OnClick = ToolButton1Click
|
||||||
|
end
|
||||||
|
object Tgetresult: TToolButton
|
||||||
|
Left = 355
|
||||||
|
Top = 0
|
||||||
|
Caption = #33719#21462#26126#32454#32467#26524
|
||||||
|
ImageIndex = 9
|
||||||
|
OnClick = TgetresultClick
|
||||||
|
end
|
||||||
|
object ToolButton3: TToolButton
|
||||||
|
Left = 486
|
||||||
|
Top = 0
|
||||||
|
Caption = #33719#21462#27719#24635#32467#26524
|
||||||
|
ImageIndex = 13
|
||||||
|
OnClick = ToolButton3Click
|
||||||
|
end
|
||||||
|
object Tmdgs: TToolButton
|
||||||
|
Left = 617
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #30721#21333#26684#24335
|
||||||
|
ImageIndex = 8
|
||||||
|
OnClick = TmdgsClick
|
||||||
|
end
|
||||||
|
object ToolButton2: TToolButton
|
||||||
|
Left = 720
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20445#23384#26684#24335
|
||||||
|
ImageIndex = 16
|
||||||
|
OnClick = ToolButton2Click
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 823
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 7
|
||||||
|
OnClick = TBCloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid1: TcxGrid [1]
|
||||||
|
Left = 8
|
||||||
|
Top = 75
|
||||||
|
Width = 826
|
||||||
|
Height = 173
|
||||||
|
BorderStyle = cxcbsNone
|
||||||
|
TabOrder = 5
|
||||||
|
LookAndFeel.Kind = lfFlat
|
||||||
|
object Tv1: TcxGridDBTableView
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
Navigator.Buttons.Delete.Enabled = False
|
||||||
|
Navigator.Buttons.Delete.Visible = False
|
||||||
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
DataController.DataSource = DataSource1
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsBehavior.GoToNextCellOnEnter = True
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsData.Deleting = False
|
||||||
|
OptionsData.DeletingConfirmation = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
object Tv1billName: TcxGridDBColumn
|
||||||
|
Caption = #30721#21333#21517#31216
|
||||||
|
DataBinding.FieldName = 'billName'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 101
|
||||||
|
end
|
||||||
|
object tv1direction: TcxGridDBColumn
|
||||||
|
Caption = #26041#21521
|
||||||
|
DataBinding.FieldName = 'direction'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxComboBoxProperties'
|
||||||
|
Properties.DropDownListStyle = lsEditFixedList
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.Items.Strings = (
|
||||||
|
#27178
|
||||||
|
#31446)
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 49
|
||||||
|
end
|
||||||
|
object tv1billType: TcxGridDBColumn
|
||||||
|
Caption = #31867#22411
|
||||||
|
DataBinding.FieldName = 'billType'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxComboBoxProperties'
|
||||||
|
Properties.DropDownListStyle = lsEditFixedList
|
||||||
|
Properties.Items.Strings = (
|
||||||
|
#20837#24211#30721#21333
|
||||||
|
#20986#24211#30721#21333)
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 59
|
||||||
|
end
|
||||||
|
object tv1pageRow: TcxGridDBColumn
|
||||||
|
Caption = #30721#21333#34892#25968
|
||||||
|
DataBinding.FieldName = 'pageRow'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
Properties.CharCase = ecUpperCase
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 68
|
||||||
|
end
|
||||||
|
object Tv1PageCol: TcxGridDBColumn
|
||||||
|
Caption = #30721#21333#21015#25968
|
||||||
|
DataBinding.FieldName = 'PageCol'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
Properties.CharCase = ecUpperCase
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 65
|
||||||
|
end
|
||||||
|
object tv1billLayoutPageField: TcxGridDBColumn
|
||||||
|
Caption = #30721#21333#20998#39029#23383#27573
|
||||||
|
DataBinding.FieldName = 'billLayoutPageField'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxComboBoxProperties'
|
||||||
|
Properties.DropDownListStyle = lsEditFixedList
|
||||||
|
Properties.Items.Strings = (
|
||||||
|
#21697#21517','#38376#24133','#20811#37325
|
||||||
|
#21697#21517','#38376#24133','#20811#37325','#33457#22411','#27454#21495
|
||||||
|
#21697#21517','#38376#24133','#20811#37325','#33457#22411','#27454#21495','#39068#33394','#33394#21495
|
||||||
|
#21697#21517','#38376#24133','#20811#37325','#33457#22411','#27454#21495','#39068#33394','#33394#21495','#32568#21495)
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 121
|
||||||
|
end
|
||||||
|
object tv1procedureName: TcxGridDBColumn
|
||||||
|
Caption = #26126#32454#23384#20648#36807#31243
|
||||||
|
DataBinding.FieldName = 'procedureName'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxComboBoxProperties'
|
||||||
|
Properties.Items.Strings = (
|
||||||
|
'P_Trade_Cloth_in_djd_Prt1')
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 111
|
||||||
|
end
|
||||||
|
object Tv1procedureName2: TcxGridDBColumn
|
||||||
|
Caption = #27719#24635#23384#20648#36807#31243
|
||||||
|
DataBinding.FieldName = 'procedureName2'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 105
|
||||||
|
end
|
||||||
|
object tv1isValid: TcxGridDBColumn
|
||||||
|
Caption = #21551#29992
|
||||||
|
DataBinding.FieldName = 'valid'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.NullStyle = nssUnchecked
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 61
|
||||||
|
end
|
||||||
|
object Tv1note: TcxGridDBColumn
|
||||||
|
Caption = #35828#26126
|
||||||
|
DataBinding.FieldName = 'note'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGridLevel2: TcxGridLevel
|
||||||
|
GridView = Tv1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid2: TcxGrid [2]
|
||||||
|
Left = 0
|
||||||
|
Top = 372
|
||||||
|
Width = 999
|
||||||
|
Height = 200
|
||||||
|
Align = alBottom
|
||||||
|
TabOrder = 2
|
||||||
|
object tv2: TcxGridDBTableView
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
DataController.DataSource = DataSource2
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||||
|
DataController.Summary.FooterSummaryItems = <>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsBehavior.BestFitMaxRecordCount = 1
|
||||||
|
OptionsData.Deleting = False
|
||||||
|
OptionsData.Editing = False
|
||||||
|
OptionsData.Inserting = False
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
end
|
||||||
|
object cxGrid2Level1: TcxGridLevel
|
||||||
|
GridView = tv2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object RzGroupBox1: TcxGroupBox [3]
|
||||||
|
Left = 0
|
||||||
|
Top = 30
|
||||||
|
Align = alTop
|
||||||
|
Alignment = alCenterCenter
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
ExplicitTop = 27
|
||||||
|
Height = 43
|
||||||
|
Width = 999
|
||||||
|
object cxRadioGroup1: TcxRadioGroup
|
||||||
|
Left = 2
|
||||||
|
Top = 2
|
||||||
|
Align = alLeft
|
||||||
|
Alignment = alLeftCenter
|
||||||
|
ParentFont = False
|
||||||
|
Properties.Columns = 3
|
||||||
|
Properties.Items = <
|
||||||
|
item
|
||||||
|
Caption = #24050#21551#29992
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Caption = #26410#21551#29992
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Caption = #20840#37096
|
||||||
|
end>
|
||||||
|
ItemIndex = 0
|
||||||
|
Style.LookAndFeel.SkinName = 'WXI'
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = 'WXI'
|
||||||
|
TabOrder = 0
|
||||||
|
OnClick = cxRadioGroup1Click
|
||||||
|
Height = 39
|
||||||
|
Width = 290
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseCmd: TADOQuery
|
||||||
|
Connection = DataLink_TradePlan.ADOLink
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseTemp: TADOQuery
|
||||||
|
Connection = DataLink_TradePlan.ADOLink
|
||||||
|
end
|
||||||
|
object ADOQueryMain: TADOQuery
|
||||||
|
Connection = DataLink_TradePlan.ADOLink
|
||||||
|
LockType = ltBatchOptimistic
|
||||||
|
Parameters = <>
|
||||||
|
Left = 157
|
||||||
|
Top = 241
|
||||||
|
end
|
||||||
|
object DataSource1: TDataSource
|
||||||
|
DataSet = ADOQueryMain
|
||||||
|
Left = 288
|
||||||
|
Top = 248
|
||||||
|
end
|
||||||
|
object DataSource2: TDataSource
|
||||||
|
DataSet = ADOQueryResult
|
||||||
|
Left = 472
|
||||||
|
Top = 224
|
||||||
|
end
|
||||||
|
object ADOQueryResult: TADOQuery
|
||||||
|
Connection = DataLink_TradePlan.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 405
|
||||||
|
Top = 225
|
||||||
|
end
|
||||||
|
end
|
||||||
328
项目代码/wenshangkm/G01贸易生产计划/U_BillPrintList.pas
Normal file
328
项目代码/wenshangkm/G01贸易生产计划/U_BillPrintList.pas
Normal file
|
|
@ -0,0 +1,328 @@
|
||||||
|
unit U_BillPrintList;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
||||||
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.ToolWin, cxGraphics,
|
||||||
|
cxControls, cxLookAndFeels, cxLookAndFeelPainters,
|
||||||
|
cxStyles, cxCustomData, cxFilter, cxData,
|
||||||
|
cxDataStorage, cxEdit, cxNavigator, dxDateRanges, dxScrollbarAnnotations,
|
||||||
|
Data.DB, cxDBData, cxTextEdit, cxCheckBox, cxGridLevel, cxGridCustomTableView,
|
||||||
|
cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomView,U_BaseList, cxGrid,
|
||||||
|
Data.Win.ADODB, cxDropDownEdit, Vcl.StdCtrls, Vcl.ExtCtrls, cxContainer, cxGroupBox, cxRadioGroup,
|
||||||
|
cxProgressBar;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmBillPrintList = class(TfrmBaseList)
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
TBRafresh: TToolButton;
|
||||||
|
TgroupAdd: TToolButton;
|
||||||
|
TgroupMdy: TToolButton;
|
||||||
|
TBDel: TToolButton;
|
||||||
|
TBClose: TToolButton;
|
||||||
|
cxGrid1: TcxGrid;
|
||||||
|
Tv1: TcxGridDBTableView;
|
||||||
|
tv1direction: TcxGridDBColumn;
|
||||||
|
tv1billType: TcxGridDBColumn;
|
||||||
|
tv1procedureName: TcxGridDBColumn;
|
||||||
|
tv1pageRow: TcxGridDBColumn;
|
||||||
|
Tv1PageCol: TcxGridDBColumn;
|
||||||
|
tv1billLayoutPageField: TcxGridDBColumn;
|
||||||
|
Tv1note: TcxGridDBColumn;
|
||||||
|
tv1isValid: TcxGridDBColumn;
|
||||||
|
cxGridLevel2: TcxGridLevel;
|
||||||
|
ToolButton1: TToolButton;
|
||||||
|
ADOQueryMain: TADOQuery;
|
||||||
|
DataSource1: TDataSource;
|
||||||
|
ToolButton2: TToolButton;
|
||||||
|
Tv1billName: TcxGridDBColumn;
|
||||||
|
Tgetresult: TToolButton;
|
||||||
|
tv2: TcxGridDBTableView;
|
||||||
|
cxGrid2Level1: TcxGridLevel;
|
||||||
|
cxGrid2: TcxGrid;
|
||||||
|
DataSource2: TDataSource;
|
||||||
|
ADOQueryResult: TADOQuery;
|
||||||
|
Tv1procedureName2: TcxGridDBColumn;
|
||||||
|
ToolButton3: TToolButton;
|
||||||
|
Tmdgs: TToolButton;
|
||||||
|
RzGroupBox1: TcxGroupBox;
|
||||||
|
cxRadioGroup1: TcxRadioGroup;
|
||||||
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure FormDestroy(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure TBRafreshClick(Sender: TObject);
|
||||||
|
procedure ToolButton2Click(Sender: TObject);
|
||||||
|
procedure ToolButton1Click(Sender: TObject);
|
||||||
|
procedure TgroupAddClick(Sender: TObject);
|
||||||
|
procedure TBDelClick(Sender: TObject);
|
||||||
|
procedure TgetresultClick(Sender: TObject);
|
||||||
|
procedure ToolButton3Click(Sender: TObject);
|
||||||
|
procedure TmdgsClick(Sender: TObject);
|
||||||
|
procedure RadioGroup1Click(Sender: TObject);
|
||||||
|
procedure cxRadioGroup1Click(Sender: TObject);
|
||||||
|
private
|
||||||
|
procedure DoQuery();
|
||||||
|
public
|
||||||
|
fuseSystem:string;
|
||||||
|
FLMType:string;
|
||||||
|
FFiltration1,FFiltration2,FFiltration3:string ;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmBillPrintList: TfrmBillPrintList;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
uses
|
||||||
|
U_DataLink, U_RTfun,U_globalVar , U_MdPrint;
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmBillPrintList.FormClose(Sender: TObject;
|
||||||
|
var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
Action:=caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmBillPrintList.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
cxGrid1.Align:=alClient;
|
||||||
|
fuseSystem:=fParameters1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmBillPrintList.FormDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
frmBillPrintList:=nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmBillPrintList.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
DoQuery();
|
||||||
|
readCxGrid('码单格式管理列表T1', Tv1, gDllFileName);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmBillPrintList.RadioGroup1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
TBRafresh.Click;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmBillPrintList.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmBillPrintList.TBDelClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ADOQueryMain.Delete ;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmBillPrintList.TBRafreshClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
DoQuery();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmBillPrintList.TgetresultClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if trim(ADOQueryMain.FieldByName('procedureName').AsString)='' then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('明细存储过程名称不能为空!','提示信息',0);
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
try
|
||||||
|
with ADOQueryBaseTemp do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
Filtered:=False;
|
||||||
|
Sql.Clear;
|
||||||
|
sql.Add('select max(ciid) as ciid from Trade_Cloth_Inspect');
|
||||||
|
// if Pos('<27><><EFBFBD>',trim(ADOQueryMain.FieldByName('billType').AsString),1)>=0 then
|
||||||
|
// sql.Add('where ioflag='+QuotedStr('<27><><EFBFBD>') )
|
||||||
|
// else
|
||||||
|
// sql.Add('where ioflag='+QuotedStr(' <20><><EFBFBD><EFBFBD>'));
|
||||||
|
open;
|
||||||
|
end;
|
||||||
|
TV2.BeginUpdate() ;
|
||||||
|
ADOQueryResult.DisableControls;
|
||||||
|
with ADOQueryResult do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
Filtered:=False;
|
||||||
|
SQL.Clear;
|
||||||
|
sql.Add('exec '+trim(ADOQueryMain.FieldByName('procedureName').AsString));
|
||||||
|
if not ADOQueryBaseTemp.IsEmpty then
|
||||||
|
sql.Add('@Filtration='+quotedstr(FFiltration1)) // Trim(ADOQueryBaseTemp.FieldByName('ciid').AsString)
|
||||||
|
else
|
||||||
|
sql.Add('@Filtration='+quotedstr('92405270001'));
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
TV2.ClearItems; //<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||||
|
(TV2.DataController as IcxCustomGridDataController).DeleteAllItems; //ɾ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||||
|
(TV2.DataController as IcxCustomGridDataController).CreateAllItems(false); //<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Դ<EFBFBD>е<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||||
|
|
||||||
|
finally
|
||||||
|
ADOQueryResult.EnableControls ;
|
||||||
|
TV2.EndUpdate ;
|
||||||
|
TV2.BeginBestFitUpdate ;
|
||||||
|
TV2.ApplyBestFit; //<EFBFBD><EFBFBD><EFBFBD>п<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ .BestFitMaxWidth;
|
||||||
|
TV2.EndBestFitUpdate ;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmBillPrintList.TgroupAddClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ADOQueryMain.Append;
|
||||||
|
ADOQueryMain.FieldByName('billType').Value:='<27><><EFBFBD><EFBFBD>뵥';
|
||||||
|
ADOQueryMain.FieldByName('billName').Value:='';
|
||||||
|
ADOQueryMain.FieldByName('direction').Value:='<27><>';
|
||||||
|
ADOQueryMain.FieldByName('procedureName').Value:='';
|
||||||
|
ADOQueryMain.FieldByName('pageRow').Value:=10;
|
||||||
|
ADOQueryMain.FieldByName('PageCol').Value:=10;
|
||||||
|
ADOQueryMain.FieldByName('useSystem').Value:=fuseSystem;
|
||||||
|
|
||||||
|
ADOQueryMain.FieldByName('valid').Value:=1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmBillPrintList.TmdgsClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
with ADOQueryBaseTemp do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
Filtered:=False;
|
||||||
|
Sql.Clear;
|
||||||
|
sql.Add('select max(ciid) as ciid from Trade_Cloth_Inspect');
|
||||||
|
open;
|
||||||
|
end;
|
||||||
|
try
|
||||||
|
frmMdPrint := TfrmMdPrint.Create(Application);
|
||||||
|
with frmMdPrint do
|
||||||
|
begin
|
||||||
|
FLMType := '入库码单';
|
||||||
|
FFiltration1 := Trim(self.ADOQueryBaseTemp.FieldByName('ciid').AsString) ;
|
||||||
|
FFiltration2 := Trim(self.ADOQueryBaseTemp.FieldByName('ciid').AsString) ;
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
// Self.InitGrid();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmMdPrint.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmBillPrintList.ToolButton1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
try
|
||||||
|
if ADOQueryMain.Locate('billName','',[]) then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('码单名称不能为空!','提示信息',0);
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
if ADOQueryMain.Locate('procedureName','',[]) then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('存储过程名称不能为空!','提示信息',0);
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
ADOQueryMain.UpdateBatch();
|
||||||
|
Application.MessageBox('保存成功!','提示信息',0);
|
||||||
|
except
|
||||||
|
Application.MessageBox('保存失败!','警告信息',0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmBillPrintList.ToolButton2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
WriteCxGrid('码单格式管理列表T1', Tv1, gDllFileName);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmBillPrintList.ToolButton3Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if trim(ADOQueryMain.FieldByName('procedureName2').AsString)='' then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('汇总存储过程名称不能为空!','提示信息',0);
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
try
|
||||||
|
with ADOQueryBaseTemp do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
Filtered:=False;
|
||||||
|
Sql.Clear;
|
||||||
|
sql.Add('select max(ciid) as ciid from Trade_Cloth_Inspect');
|
||||||
|
//if Pos('<27><><EFBFBD>',trim(ADOQueryMain.FieldByName('billType').AsString),1)>=0 then
|
||||||
|
// sql.Add('where ioflag='+QuotedStr('<27><><EFBFBD>') )
|
||||||
|
//else
|
||||||
|
//sql.Add('where ioflag='+QuotedStr(' <20><><EFBFBD><EFBFBD>'));
|
||||||
|
open;
|
||||||
|
end;
|
||||||
|
TV2.BeginUpdate() ;
|
||||||
|
ADOQueryResult.DisableControls;
|
||||||
|
with ADOQueryResult do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
Filtered:=False;
|
||||||
|
SQL.Clear;
|
||||||
|
sql.Add('exec '+trim(ADOQueryMain.FieldByName('procedureName2').AsString));
|
||||||
|
if not ADOQueryBaseTemp.IsEmpty then
|
||||||
|
sql.Add('@Filtration='+quotedstr(FFiltration2))
|
||||||
|
else
|
||||||
|
sql.Add('@Filtration='+quotedstr('92405270001'));
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
TV2.ClearItems; //<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||||
|
(TV2.DataController as IcxCustomGridDataController).DeleteAllItems; //ɾ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||||
|
(TV2.DataController as IcxCustomGridDataController).CreateAllItems(false); //<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Դ<EFBFBD>е<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||||
|
|
||||||
|
finally
|
||||||
|
ADOQueryResult.EnableControls ;
|
||||||
|
TV2.EndUpdate ;
|
||||||
|
TV2.BeginBestFitUpdate ;
|
||||||
|
TV2.ApplyBestFit; //<EFBFBD><EFBFBD><EFBFBD>п<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ .BestFitMaxWidth;
|
||||||
|
TV2.EndBestFitUpdate ;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmBillPrintList.cxRadioGroup1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
TBRafresh.click;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmBillPrintList.DoQuery();
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
ADOQueryMain.DisableControls;
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
Filtered:=False;
|
||||||
|
Close;
|
||||||
|
SQL.Clear;
|
||||||
|
sql.Add('select * from SD_BillPrint ');
|
||||||
|
if cxRadioGroup1.ItemIndex=0 then
|
||||||
|
sql.Add('where valid=1 ')
|
||||||
|
else if cxRadioGroup1.ItemIndex=1 then
|
||||||
|
sql.Add('where valid=0')
|
||||||
|
else
|
||||||
|
sql.Add('where 1=1') ;
|
||||||
|
// if FLMType<>'' then
|
||||||
|
sql.Add('and billtype=' + QuotedStr(TRIM(FLMType)));
|
||||||
|
sql.Add('order by recid');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end.
|
||||||
|
|
@ -49,6 +49,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #26032#22686
|
Caption = #26032#22686
|
||||||
ImageIndex = 9
|
ImageIndex = 9
|
||||||
|
Visible = False
|
||||||
OnClick = TBAddClick
|
OnClick = TBAddClick
|
||||||
end
|
end
|
||||||
object btnCopy: TToolButton
|
object btnCopy: TToolButton
|
||||||
|
|
@ -57,6 +58,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #22797#21046
|
Caption = #22797#21046
|
||||||
ImageIndex = 13
|
ImageIndex = 13
|
||||||
|
Visible = False
|
||||||
OnClick = btnCopyClick
|
OnClick = btnCopyClick
|
||||||
end
|
end
|
||||||
object TBEdit: TToolButton
|
object TBEdit: TToolButton
|
||||||
|
|
@ -81,6 +83,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25171#21367#35774#32622
|
Caption = #25171#21367#35774#32622
|
||||||
ImageIndex = 25
|
ImageIndex = 25
|
||||||
|
Visible = False
|
||||||
OnClick = TdjszClick
|
OnClick = TdjszClick
|
||||||
end
|
end
|
||||||
object Tbqyl: TToolButton
|
object Tbqyl: TToolButton
|
||||||
|
|
@ -91,6 +94,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
DropdownMenu = PopupMenu1
|
DropdownMenu = PopupMenu1
|
||||||
ImageIndex = 8
|
ImageIndex = 8
|
||||||
Style = tbsDropDown
|
Style = tbsDropDown
|
||||||
|
Visible = False
|
||||||
end
|
end
|
||||||
object TBPrint: TToolButton
|
object TBPrint: TToolButton
|
||||||
Left = 655
|
Left = 655
|
||||||
|
|
@ -98,6 +102,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25171#21360
|
Caption = #25171#21360
|
||||||
ImageIndex = 21
|
ImageIndex = 21
|
||||||
|
Visible = False
|
||||||
OnClick = TBPrintClick
|
OnClick = TBPrintClick
|
||||||
end
|
end
|
||||||
object ToolButton2: TToolButton
|
object ToolButton2: TToolButton
|
||||||
|
|
@ -105,35 +110,37 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
Top = 0
|
Top = 0
|
||||||
Caption = #20462#25913#24179#22343#20462#24067#26102#38388
|
Caption = #20462#25913#24179#22343#20462#24067#26102#38388
|
||||||
ImageIndex = 3
|
ImageIndex = 3
|
||||||
Wrap = True
|
|
||||||
OnClick = ToolButton2Click
|
OnClick = ToolButton2Click
|
||||||
end
|
end
|
||||||
object ToolButton1: TToolButton
|
object ToolButton1: TToolButton
|
||||||
Left = 0
|
Left = 895
|
||||||
Top = 38
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #23548#20837#35746#21333
|
Caption = #23548#20837#35746#21333
|
||||||
ImageIndex = 28
|
ImageIndex = 28
|
||||||
|
Wrap = True
|
||||||
OnClick = ToolButton1Click
|
OnClick = ToolButton1Click
|
||||||
end
|
end
|
||||||
object TBCK: TToolButton
|
object TBCK: TToolButton
|
||||||
Left = 103
|
Left = 0
|
||||||
Top = 38
|
Top = 38
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #26597#30475
|
Caption = #26597#30475
|
||||||
ImageIndex = 8
|
ImageIndex = 8
|
||||||
|
Visible = False
|
||||||
OnClick = TBCKClick
|
OnClick = TBCKClick
|
||||||
end
|
end
|
||||||
object ToolButton4: TToolButton
|
object ToolButton4: TToolButton
|
||||||
Left = 174
|
Left = 71
|
||||||
Top = 38
|
Top = 38
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #38468#20214
|
Caption = #38468#20214
|
||||||
ImageIndex = 22
|
ImageIndex = 22
|
||||||
|
Visible = False
|
||||||
OnClick = ToolButton4Click
|
OnClick = ToolButton4Click
|
||||||
end
|
end
|
||||||
object TWC: TToolButton
|
object TWC: TToolButton
|
||||||
Left = 245
|
Left = 142
|
||||||
Top = 38
|
Top = 38
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #23436#25104
|
Caption = #23436#25104
|
||||||
|
|
@ -141,7 +148,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
OnClick = TWCClick
|
OnClick = TWCClick
|
||||||
end
|
end
|
||||||
object Ttoexcel: TToolButton
|
object Ttoexcel: TToolButton
|
||||||
Left = 316
|
Left = 213
|
||||||
Top = 38
|
Top = 38
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #23548#20986
|
Caption = #23548#20986
|
||||||
|
|
@ -149,7 +156,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
OnClick = TtoexcelClick
|
OnClick = TtoexcelClick
|
||||||
end
|
end
|
||||||
object TNowc: TToolButton
|
object TNowc: TToolButton
|
||||||
Left = 387
|
Left = 284
|
||||||
Top = 38
|
Top = 38
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25764#38144#23436#25104
|
Caption = #25764#38144#23436#25104
|
||||||
|
|
@ -157,7 +164,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
OnClick = TNowcClick
|
OnClick = TNowcClick
|
||||||
end
|
end
|
||||||
object Tcdgl: TToolButton
|
object Tcdgl: TToolButton
|
||||||
Left = 490
|
Left = 387
|
||||||
Top = 38
|
Top = 38
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #30133#28857#31649#29702
|
Caption = #30133#28857#31649#29702
|
||||||
|
|
@ -165,25 +172,42 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
OnClick = TcdglClick
|
OnClick = TcdglClick
|
||||||
end
|
end
|
||||||
object Tupdateto: TToolButton
|
object Tupdateto: TToolButton
|
||||||
Left = 593
|
Left = 490
|
||||||
Top = 38
|
Top = 38
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25968#25454#21516#27493
|
Caption = #25968#25454#21516#27493
|
||||||
ImageIndex = 50
|
ImageIndex = 50
|
||||||
|
Visible = False
|
||||||
OnClick = TupdatetoClick
|
OnClick = TupdatetoClick
|
||||||
end
|
end
|
||||||
object Tbcgs: TToolButton
|
object Tbcgs: TToolButton
|
||||||
Left = 696
|
Left = 593
|
||||||
Top = 38
|
Top = 38
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #20445#23384#26684#24335
|
Caption = #20445#23384#26684#24335
|
||||||
ImageIndex = 37
|
ImageIndex = 37
|
||||||
OnClick = TbcgsClick
|
OnClick = TbcgsClick
|
||||||
end
|
end
|
||||||
object TBClose: TToolButton
|
object ToolButton3: TToolButton
|
||||||
|
Left = 696
|
||||||
|
Top = 38
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #25171#21360#30721#21333
|
||||||
|
ImageIndex = 21
|
||||||
|
OnClick = ToolButton3Click
|
||||||
|
end
|
||||||
|
object TBJYbutton: TToolButton
|
||||||
Left = 799
|
Left = 799
|
||||||
Top = 38
|
Top = 38
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
|
Caption = #25171#21360#39564#36135#20998#26512#25253#21578
|
||||||
|
ImageIndex = 21
|
||||||
|
OnClick = TBJYbuttonClick
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 966
|
||||||
|
Top = 38
|
||||||
|
AutoSize = True
|
||||||
Caption = #20851#38381
|
Caption = #20851#38381
|
||||||
ImageIndex = 7
|
ImageIndex = 7
|
||||||
OnClick = TBCloseClick
|
OnClick = TBCloseClick
|
||||||
|
|
@ -202,7 +226,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
object custName: TcxTextEdit
|
object custName: TcxTextEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 629
|
Left = 629
|
||||||
Top = 11
|
Top = 7
|
||||||
Properties.OnChange = TfilterClick
|
Properties.OnChange = TfilterClick
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.TransparentBorder = False
|
Style.TransparentBorder = False
|
||||||
|
|
@ -211,8 +235,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
end
|
end
|
||||||
object ConNo: TcxTextEdit
|
object ConNo: TcxTextEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 803
|
Left = 778
|
||||||
Top = 11
|
Top = 7
|
||||||
Properties.OnChange = TfilterClick
|
Properties.OnChange = TfilterClick
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.TransparentBorder = False
|
Style.TransparentBorder = False
|
||||||
|
|
@ -222,7 +246,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
object BuyConNo: TcxTextEdit
|
object BuyConNo: TcxTextEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 10000
|
Left = 10000
|
||||||
Top = 9990
|
Top = 9986
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
Properties.OnChange = TfilterClick
|
Properties.OnChange = TfilterClick
|
||||||
Style.BorderColor = clWindowFrame
|
Style.BorderColor = clWindowFrame
|
||||||
|
|
@ -236,7 +260,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
object OrderNo: TcxTextEdit
|
object OrderNo: TcxTextEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 439
|
Left = 439
|
||||||
Top = 11
|
Top = 7
|
||||||
Properties.OnChange = OrderNoPropertiesChange
|
Properties.OnChange = OrderNoPropertiesChange
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.TransparentBorder = False
|
Style.TransparentBorder = False
|
||||||
|
|
@ -246,7 +270,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
object ywy: TcxTextEdit
|
object ywy: TcxTextEdit
|
||||||
Tag = 99
|
Tag = 99
|
||||||
Left = 10000
|
Left = 10000
|
||||||
Top = 9990
|
Top = 9986
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
Properties.OnChange = TfilterClick
|
Properties.OnChange = TfilterClick
|
||||||
Style.BorderColor = clWindowFrame
|
Style.BorderColor = clWindowFrame
|
||||||
|
|
@ -259,8 +283,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
end
|
end
|
||||||
object C_Name: TcxTextEdit
|
object C_Name: TcxTextEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 989
|
Left = 964
|
||||||
Top = 11
|
Top = 7
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
Properties.OnChange = TfilterClick
|
Properties.OnChange = TfilterClick
|
||||||
Style.Font.Charset = ANSI_CHARSET
|
Style.Font.Charset = ANSI_CHARSET
|
||||||
|
|
@ -276,7 +300,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
end
|
end
|
||||||
object endDate: TcxDateEdit
|
object endDate: TcxDateEdit
|
||||||
Left = 242
|
Left = 242
|
||||||
Top = 11
|
Top = 7
|
||||||
Properties.ImmediatePost = True
|
Properties.ImmediatePost = True
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.TransparentBorder = False
|
Style.TransparentBorder = False
|
||||||
|
|
@ -285,27 +309,17 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
end
|
end
|
||||||
object begdate: TcxDateEdit
|
object begdate: TcxDateEdit
|
||||||
Left = 88
|
Left = 88
|
||||||
Top = 11
|
Top = 7
|
||||||
Properties.ImmediatePost = True
|
Properties.ImmediatePost = True
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.TransparentBorder = False
|
Style.TransparentBorder = False
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
Width = 123
|
Width = 123
|
||||||
end
|
end
|
||||||
object batchNo: TcxTextEdit
|
|
||||||
Tag = 2
|
|
||||||
Left = 1191
|
|
||||||
Top = 11
|
|
||||||
Properties.OnChange = TfilterClick
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.TransparentBorder = False
|
|
||||||
TabOrder = 6
|
|
||||||
Width = 105
|
|
||||||
end
|
|
||||||
object FtyPCId: TcxTextEdit
|
object FtyPCId: TcxTextEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 10000
|
Left = 10000
|
||||||
Top = 9990
|
Top = 9986
|
||||||
Properties.OnChange = TfilterClick
|
Properties.OnChange = TfilterClick
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.TransparentBorder = False
|
Style.TransparentBorder = False
|
||||||
|
|
@ -313,6 +327,16 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
Visible = False
|
Visible = False
|
||||||
Width = 105
|
Width = 105
|
||||||
end
|
end
|
||||||
|
object batchNo: TcxTextEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 1166
|
||||||
|
Top = 7
|
||||||
|
Properties.OnChange = TfilterClick
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.TransparentBorder = False
|
||||||
|
TabOrder = 6
|
||||||
|
Width = 121
|
||||||
|
end
|
||||||
object dxLayoutControl_queryGroup_Root: TdxLayoutGroup
|
object dxLayoutControl_queryGroup_Root: TdxLayoutGroup
|
||||||
AlignHorz = ahParentManaged
|
AlignHorz = ahParentManaged
|
||||||
AlignVert = avParentManaged
|
AlignVert = avParentManaged
|
||||||
|
|
@ -321,7 +345,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
SizeOptions.SizableHorz = True
|
SizeOptions.SizableHorz = True
|
||||||
SizeOptions.SizableVert = True
|
SizeOptions.SizableVert = True
|
||||||
Hidden = True
|
Hidden = True
|
||||||
ItemIndex = 5
|
ItemIndex = 2
|
||||||
LayoutDirection = ldHorizontal
|
LayoutDirection = ldHorizontal
|
||||||
Padding.Bottom = -5
|
Padding.Bottom = -5
|
||||||
Padding.Top = -5
|
Padding.Top = -5
|
||||||
|
|
@ -331,6 +355,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
end
|
end
|
||||||
object dxLayoutItem1: TdxLayoutItem
|
object dxLayoutItem1: TdxLayoutItem
|
||||||
Parent = dxLayoutControl_queryGroup_Root
|
Parent = dxLayoutControl_queryGroup_Root
|
||||||
|
Visible = False
|
||||||
AllowRemove = False
|
AllowRemove = False
|
||||||
CaptionOptions.Text = #35746#21333#21495
|
CaptionOptions.Text = #35746#21333#21495
|
||||||
Control = OrderNo
|
Control = OrderNo
|
||||||
|
|
@ -341,6 +366,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
end
|
end
|
||||||
object dxLayoutItem2: TdxLayoutItem
|
object dxLayoutItem2: TdxLayoutItem
|
||||||
Parent = dxLayoutControl_queryGroup_Root
|
Parent = dxLayoutControl_queryGroup_Root
|
||||||
|
Visible = False
|
||||||
AllowRemove = False
|
AllowRemove = False
|
||||||
CaptionOptions.Text = #23458#25143#21517#31216
|
CaptionOptions.Text = #23458#25143#21517#31216
|
||||||
Control = custName
|
Control = custName
|
||||||
|
|
@ -389,7 +415,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
end
|
end
|
||||||
object dxLayoutItem_hth: TdxLayoutItem
|
object dxLayoutItem_hth: TdxLayoutItem
|
||||||
Parent = dxLayoutControl_queryGroup_Root
|
Parent = dxLayoutControl_queryGroup_Root
|
||||||
CaptionOptions.Text = #21512#21516#21495
|
CaptionOptions.Text = 'PO'
|
||||||
Control = ConNo
|
Control = ConNo
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 27
|
||||||
ControlOptions.OriginalWidth = 105
|
ControlOptions.OriginalWidth = 105
|
||||||
|
|
@ -406,15 +432,6 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = -1
|
Index = -1
|
||||||
end
|
end
|
||||||
object dxLayoutItem_batchno: TdxLayoutItem
|
|
||||||
Parent = dxLayoutControl_queryGroup_Root
|
|
||||||
CaptionOptions.Text = #26412#21378#32568#21495
|
|
||||||
Control = batchNo
|
|
||||||
ControlOptions.OriginalHeight = 27
|
|
||||||
ControlOptions.OriginalWidth = 105
|
|
||||||
ControlOptions.ShowBorder = False
|
|
||||||
Index = 6
|
|
||||||
end
|
|
||||||
object dxLayoutItem_FtyPCId: TdxLayoutItem
|
object dxLayoutItem_FtyPCId: TdxLayoutItem
|
||||||
CaptionOptions.Text = #26579#21378#32568#21495
|
CaptionOptions.Text = #26579#21378#32568#21495
|
||||||
Control = FtyPCId
|
Control = FtyPCId
|
||||||
|
|
@ -423,6 +440,15 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = -1
|
Index = -1
|
||||||
end
|
end
|
||||||
|
object dxLayoutItem_batchno: TdxLayoutItem
|
||||||
|
Parent = dxLayoutControl_queryGroup_Root
|
||||||
|
CaptionOptions.Text = #26412#21378#32568#21495
|
||||||
|
Control = batchNo
|
||||||
|
ControlOptions.OriginalHeight = 27
|
||||||
|
ControlOptions.OriginalWidth = 121
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
Index = 6
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxPageControl1: TcxPageControl [2]
|
object cxPageControl1: TcxPageControl [2]
|
||||||
Left = 8
|
Left = 8
|
||||||
|
|
@ -527,7 +553,6 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
OptionsBehavior.BestFitMaxRecordCount = 5
|
OptionsBehavior.BestFitMaxRecordCount = 5
|
||||||
OptionsCustomize.ColumnFiltering = False
|
OptionsCustomize.ColumnFiltering = False
|
||||||
OptionsData.Deleting = False
|
OptionsData.Deleting = False
|
||||||
OptionsData.Editing = False
|
|
||||||
OptionsData.Inserting = False
|
OptionsData.Inserting = False
|
||||||
OptionsView.Footer = True
|
OptionsView.Footer = True
|
||||||
OptionsView.GroupByBox = False
|
OptionsView.GroupByBox = False
|
||||||
|
|
@ -564,12 +589,13 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
Width = 75
|
Width = 75
|
||||||
end
|
end
|
||||||
object v1ConNo: TcxGridDBColumn
|
object v1ConNo: TcxGridDBColumn
|
||||||
Caption = 'PO'#21495
|
Caption = 'PO'
|
||||||
DataBinding.FieldName = 'ConNo'
|
DataBinding.FieldName = 'ConNo'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
Properties.OnEditValueChanged = v1ConNoPropertiesEditValueChanged
|
||||||
FixedKind = fkLeftDynamic
|
FixedKind = fkLeftDynamic
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
|
||||||
Width = 80
|
Width = 80
|
||||||
end
|
end
|
||||||
object v1DlyDate: TcxGridDBColumn
|
object v1DlyDate: TcxGridDBColumn
|
||||||
|
|
@ -600,7 +626,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
FixedKind = fkLeftDynamic
|
FixedKind = fkLeftDynamic
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 77
|
Width = 78
|
||||||
end
|
end
|
||||||
object tv1ordNote: TcxGridDBColumn
|
object tv1ordNote: TcxGridDBColumn
|
||||||
Caption = #22791#27880#35201#27714
|
Caption = #22791#27880#35201#27714
|
||||||
|
|
@ -756,6 +782,28 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
Styles.Header = DataLink_TradePlan.grid_head_cyan
|
Styles.Header = DataLink_TradePlan.grid_head_cyan
|
||||||
Width = 71
|
Width = 71
|
||||||
end
|
end
|
||||||
|
object Tv1Column10: TcxGridDBColumn
|
||||||
|
Caption = #22791#27880
|
||||||
|
DataBinding.FieldName = 'OrdNote'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
Properties.OnEditValueChanged = Tv1Column10PropertiesEditValueChanged
|
||||||
|
FooterAlignmentHorz = taCenter
|
||||||
|
GroupSummaryAlignment = taCenter
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderHint = 'OrdNote'
|
||||||
|
Width = 60
|
||||||
|
end
|
||||||
|
object Tv1Column9: TcxGridDBColumn
|
||||||
|
Caption = #20379#24212#21830
|
||||||
|
DataBinding.FieldName = 'factoryName'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
Properties.OnEditValueChanged = Tv1Column9PropertiesEditValueChanged
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderHint = 'factoryName'
|
||||||
|
Width = 74
|
||||||
|
end
|
||||||
object Tv1rKMZ: TcxGridDBColumn
|
object Tv1rKMZ: TcxGridDBColumn
|
||||||
Caption = #20837#24211#27611#37325
|
Caption = #20837#24211#27611#37325
|
||||||
DataBinding.FieldName = 'rKMZ'
|
DataBinding.FieldName = 'rKMZ'
|
||||||
|
|
@ -765,6 +813,26 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
Styles.Header = DataLink_TradePlan.grid_head_cyan
|
Styles.Header = DataLink_TradePlan.grid_head_cyan
|
||||||
Width = 70
|
Width = 70
|
||||||
end
|
end
|
||||||
|
object Tv1Column11: TcxGridDBColumn
|
||||||
|
Caption = #20462#24067#26102#38388
|
||||||
|
DataBinding.FieldName = 'Averagetime'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
Properties.OnEditValueChanged = Tv1Column11PropertiesEditValueChanged
|
||||||
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
|
Width = 81
|
||||||
|
end
|
||||||
|
object Tv1Column12: TcxGridDBColumn
|
||||||
|
Caption = #20869#37096#21697#21517
|
||||||
|
DataBinding.FieldName = 'C_EName'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
Properties.OnEditValueChanged = Tv1Column12PropertiesEditValueChanged
|
||||||
|
FooterAlignmentHorz = taCenter
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
|
Width = 100
|
||||||
|
end
|
||||||
object Tv1Column1: TcxGridDBColumn
|
object Tv1Column1: TcxGridDBColumn
|
||||||
Caption = #20986#24211#21305#25968
|
Caption = #20986#24211#21305#25968
|
||||||
DataBinding.FieldName = 'CKRoll'
|
DataBinding.FieldName = 'CKRoll'
|
||||||
|
|
@ -803,6 +871,20 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 60
|
Width = 60
|
||||||
end
|
end
|
||||||
|
object Tv1Column13: TcxGridDBColumn
|
||||||
|
Caption = #26412#21378#32568#21495
|
||||||
|
DataBinding.FieldName = 'batchNo'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 60
|
||||||
|
end
|
||||||
|
object Tv1Column14: TcxGridDBColumn
|
||||||
|
Caption = #26579#21378#32568#21495
|
||||||
|
DataBinding.FieldName = 'FtyPCId'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 60
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxGrid1Level1: TcxGridLevel
|
object cxGrid1Level1: TcxGridLevel
|
||||||
GridView = Tv1
|
GridView = Tv1
|
||||||
|
|
@ -815,6 +897,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
Height = 155
|
Height = 155
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
|
Visible = False
|
||||||
LookAndFeel.ScrollbarMode = sbmDefault
|
LookAndFeel.ScrollbarMode = sbmDefault
|
||||||
object TV2: TcxGridDBTableView
|
object TV2: TcxGridDBTableView
|
||||||
Navigator.Buttons.CustomButtons = <>
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
|
@ -1303,6 +1386,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
object cxTabSheet2: TcxTabSheet
|
object cxTabSheet2: TcxTabSheet
|
||||||
Caption = #26126#32454#35270#22270
|
Caption = #26126#32454#35270#22270
|
||||||
ImageIndex = 1
|
ImageIndex = 1
|
||||||
|
ExplicitWidth = 0
|
||||||
|
ExplicitHeight = 0
|
||||||
object cxGrid3: TcxGrid
|
object cxGrid3: TcxGrid
|
||||||
Left = -549
|
Left = -549
|
||||||
Top = 46
|
Top = 46
|
||||||
|
|
@ -1850,8 +1935,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
end
|
end
|
||||||
object DataSource3: TDataSource
|
object DataSource3: TDataSource
|
||||||
DataSet = cds_mxlist
|
DataSet = cds_mxlist
|
||||||
Left = 336
|
Left = 824
|
||||||
Top = 275
|
Top = 307
|
||||||
end
|
end
|
||||||
object ADOQueryMxList: TADOQuery
|
object ADOQueryMxList: TADOQuery
|
||||||
Connection = DataLink_TradePlan.ADOLink
|
Connection = DataLink_TradePlan.ADOLink
|
||||||
|
|
@ -1915,6 +2000,105 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
Visible = False
|
Visible = False
|
||||||
DataSet = ADOQueryPrint
|
DataSet = ADOQueryPrint
|
||||||
Left = 1012
|
Left = 1012
|
||||||
Top = 16
|
Top = 104
|
||||||
|
end
|
||||||
|
object RMDB_B: TRMDBDataSet
|
||||||
|
Visible = True
|
||||||
|
DataSet = ADO_2
|
||||||
|
Left = 516
|
||||||
|
Top = 484
|
||||||
|
end
|
||||||
|
object ADO_1: TADOQuery
|
||||||
|
Connection = DataLink_TradePlan.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 120
|
||||||
|
Top = 476
|
||||||
|
end
|
||||||
|
object RMDB_A: TRMDBDataSet
|
||||||
|
Visible = True
|
||||||
|
DataSet = ADO_1
|
||||||
|
Left = 476
|
||||||
|
Top = 480
|
||||||
|
end
|
||||||
|
object ADO_2: TADOQuery
|
||||||
|
Connection = DataLink_TradePlan.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 160
|
||||||
|
Top = 468
|
||||||
|
end
|
||||||
|
object ADO_3: TADOQuery
|
||||||
|
Connection = DataLink_TradePlan.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 208
|
||||||
|
Top = 476
|
||||||
|
end
|
||||||
|
object RMDB_C: TRMDBDataSet
|
||||||
|
Visible = True
|
||||||
|
DataSet = ADO_3
|
||||||
|
Left = 372
|
||||||
|
Top = 484
|
||||||
|
end
|
||||||
|
object RMDB_D: TRMDBDataSet
|
||||||
|
Visible = True
|
||||||
|
DataSet = ADO_4
|
||||||
|
Left = 340
|
||||||
|
Top = 484
|
||||||
|
end
|
||||||
|
object ADO_4: TADOQuery
|
||||||
|
Connection = DataLink_TradePlan.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 256
|
||||||
|
Top = 484
|
||||||
|
end
|
||||||
|
object RMDB_F: TRMDBDataSet
|
||||||
|
Visible = True
|
||||||
|
DataSet = ADO_5
|
||||||
|
Left = 412
|
||||||
|
Top = 484
|
||||||
|
end
|
||||||
|
object ADO_5: TADOQuery
|
||||||
|
Connection = DataLink_TradePlan.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 296
|
||||||
|
Top = 484
|
||||||
|
end
|
||||||
|
object RMXLSExport1: TRMXLSExport
|
||||||
|
ShowAfterExport = True
|
||||||
|
ExportPrecision = 1
|
||||||
|
PagesOfSheet = 1
|
||||||
|
ExportImages = True
|
||||||
|
ExportFrames = True
|
||||||
|
ExportImageFormat = ifBMP
|
||||||
|
JPEGQuality = 0
|
||||||
|
ScaleX = 1.000000000000000000
|
||||||
|
ScaleY = 1.000000000000000000
|
||||||
|
CompressFile = False
|
||||||
|
Left = 936
|
||||||
|
Top = 240
|
||||||
|
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
|
||||||
|
CompressLevel = rmzcFastest
|
||||||
|
CompressThread = False
|
||||||
|
LaterBuildEvents = True
|
||||||
|
OnlyOwnerDataSet = False
|
||||||
|
Left = 572
|
||||||
|
Top = 480
|
||||||
|
ReportData = {}
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
|
||||||
|
|
@ -14,7 +14,7 @@ uses
|
||||||
Data.Win.ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, Datasnap.DBClient,
|
Data.Win.ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, Datasnap.DBClient,
|
||||||
cxCheckBox, cxButtonEdit, cxSplitter, dxCore, cxDateUtils, cxMaskEdit,
|
cxCheckBox, cxButtonEdit, cxSplitter, dxCore, cxDateUtils, cxMaskEdit,
|
||||||
cxDropDownEdit, cxProgressBar, Vcl.Menus, RM_Common, RM_Class, RM_GridReport,
|
cxDropDownEdit, cxProgressBar, Vcl.Menus, RM_Common, RM_Class, RM_GridReport,
|
||||||
RM_Dataset, cxLookAndFeelPainters, Vcl.ExtCtrls;
|
RM_Dataset, cxLookAndFeelPainters, Vcl.ExtCtrls, RM_e_Xls;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmTradePlanMgeList = class(TfrmBaseList)
|
TfrmTradePlanMgeList = class(TfrmBaseList)
|
||||||
|
|
@ -180,8 +180,6 @@ type
|
||||||
RM1: TRMGridReport;
|
RM1: TRMGridReport;
|
||||||
RMDB_1: TRMDBDataSet;
|
RMDB_1: TRMDBDataSet;
|
||||||
Tupdateto: TToolButton;
|
Tupdateto: TToolButton;
|
||||||
dxLayoutItem_batchno: TdxLayoutItem;
|
|
||||||
batchNo: TcxTextEdit;
|
|
||||||
FtyPCId: TcxTextEdit;
|
FtyPCId: TcxTextEdit;
|
||||||
dxLayoutItem_FtyPCId: TdxLayoutItem;
|
dxLayoutItem_FtyPCId: TdxLayoutItem;
|
||||||
tv3batchNo: TcxGridDBColumn;
|
tv3batchNo: TcxGridDBColumn;
|
||||||
|
|
@ -207,6 +205,28 @@ type
|
||||||
TV2Column10: TcxGridDBColumn;
|
TV2Column10: TcxGridDBColumn;
|
||||||
ToolButton1: TToolButton;
|
ToolButton1: TToolButton;
|
||||||
ToolButton2: TToolButton;
|
ToolButton2: TToolButton;
|
||||||
|
Tv1Column9: TcxGridDBColumn;
|
||||||
|
Tv1Column10: TcxGridDBColumn;
|
||||||
|
Tv1Column11: TcxGridDBColumn;
|
||||||
|
Tv1Column12: TcxGridDBColumn;
|
||||||
|
ToolButton3: TToolButton;
|
||||||
|
TBJYbutton: TToolButton;
|
||||||
|
RMDB_B: TRMDBDataSet;
|
||||||
|
ADO_1: TADOQuery;
|
||||||
|
RMDB_A: TRMDBDataSet;
|
||||||
|
ADO_2: TADOQuery;
|
||||||
|
ADO_3: TADOQuery;
|
||||||
|
RMDB_C: TRMDBDataSet;
|
||||||
|
RMDB_D: TRMDBDataSet;
|
||||||
|
ADO_4: TADOQuery;
|
||||||
|
RMDB_F: TRMDBDataSet;
|
||||||
|
ADO_5: TADOQuery;
|
||||||
|
RMXLSExport1: TRMXLSExport;
|
||||||
|
RM2: TRMGridReport;
|
||||||
|
Tv1Column13: TcxGridDBColumn;
|
||||||
|
Tv1Column14: TcxGridDBColumn;
|
||||||
|
batchNo: TcxTextEdit;
|
||||||
|
dxLayoutItem_batchno: TdxLayoutItem;
|
||||||
procedure TBCloseClick(Sender: TObject);
|
procedure TBCloseClick(Sender: TObject);
|
||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
|
@ -238,6 +258,13 @@ type
|
||||||
procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer);
|
procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer);
|
||||||
procedure ToolButton1Click(Sender: TObject);
|
procedure ToolButton1Click(Sender: TObject);
|
||||||
procedure ToolButton2Click(Sender: TObject);
|
procedure ToolButton2Click(Sender: TObject);
|
||||||
|
procedure Tv1Column9PropertiesEditValueChanged(Sender: TObject);
|
||||||
|
procedure Tv1Column10PropertiesEditValueChanged(Sender: TObject);
|
||||||
|
procedure Tv1Column11PropertiesEditValueChanged(Sender: TObject);
|
||||||
|
procedure Tv1Column12PropertiesEditValueChanged(Sender: TObject);
|
||||||
|
procedure v1ConNoPropertiesEditValueChanged(Sender: TObject);
|
||||||
|
procedure ToolButton3Click(Sender: TObject);
|
||||||
|
procedure TBJYbuttonClick(Sender: TObject);
|
||||||
private
|
private
|
||||||
canshu1, canshu2: string;
|
canshu1, canshu2: string;
|
||||||
fIsLoad: Boolean;
|
fIsLoad: Boolean;
|
||||||
|
|
@ -259,7 +286,7 @@ implementation
|
||||||
uses
|
uses
|
||||||
U_DataLink, U_RTFun, U_TradePlanInPut, U_globalVar, U_FormLayOutDesign,
|
U_DataLink, U_RTFun, U_TradePlanInPut, U_globalVar, U_FormLayOutDesign,
|
||||||
U_TradeInspSet, U_AttachmentUpload, U_LabelPrint, U_ZDYHelp, U_iniParam,
|
U_TradeInspSet, U_AttachmentUpload, U_LabelPrint, U_ZDYHelp, U_iniParam,
|
||||||
U_UptPlanDataToRoll, U_PictureUpload, U_PlanDR;
|
U_UptPlanDataToRoll, U_PictureUpload, U_PlanDR, U_MdPrint;
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
procedure TfrmTradePlanMgeList.btnCopyClick(Sender: TObject);
|
procedure TfrmTradePlanMgeList.btnCopyClick(Sender: TObject);
|
||||||
|
|
@ -315,22 +342,22 @@ end;
|
||||||
|
|
||||||
procedure TfrmTradePlanMgeList.cxPageControl1Click(Sender: TObject);
|
procedure TfrmTradePlanMgeList.cxPageControl1Click(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
if cxPageControl1.ActivePageIndex = 0 then
|
// if cxPageControl1.ActivePageIndex = 0 then
|
||||||
begin
|
// begin
|
||||||
dxLayoutItem_khdh.Visible := false;
|
// dxLayoutItem_khdh.Visible := false;
|
||||||
dxLayoutItem_pm.Visible := false;
|
// dxLayoutItem_pm.Visible := false;
|
||||||
dxLayoutItem_batchno.Visible := false;
|
// dxLayoutItem_batchno.Visible := false;
|
||||||
dxLayoutItem_FtyPCId.Visible := false;
|
// dxLayoutItem_FtyPCId.Visible := false;
|
||||||
dxLayoutItem_pm.Visible := false;
|
// dxLayoutItem_pm.Visible := false;
|
||||||
end
|
// end
|
||||||
else
|
// else
|
||||||
begin
|
// begin
|
||||||
dxLayoutItem_khdh.Visible := true;
|
// dxLayoutItem_khdh.Visible := true;
|
||||||
dxLayoutItem_pm.Visible := true;
|
// dxLayoutItem_pm.Visible := true;
|
||||||
dxLayoutItem_batchno.Visible := true;
|
// dxLayoutItem_batchno.Visible := true;
|
||||||
dxLayoutItem_FtyPCId.Visible := true;
|
// dxLayoutItem_FtyPCId.Visible := true;
|
||||||
dxLayoutItem_pm.Visible := true;
|
// dxLayoutItem_pm.Visible := true;
|
||||||
end;
|
// end;
|
||||||
TBRafresh.Click
|
TBRafresh.Click
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
@ -716,11 +743,11 @@ begin
|
||||||
begin
|
begin
|
||||||
if Order_Main.IsEmpty then
|
if Order_Main.IsEmpty then
|
||||||
Exit;
|
Exit;
|
||||||
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
|
// if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
|
||||||
begin
|
// begin
|
||||||
Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
// Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
||||||
Exit;
|
// Exit;
|
||||||
end;
|
// end;
|
||||||
mOrderNo := Trim(Order_Main.fieldbyname('orderNo').AsString);
|
mOrderNo := Trim(Order_Main.fieldbyname('orderNo').AsString);
|
||||||
mMainId := Trim(Order_Main.fieldbyname('mainId').AsString);
|
mMainId := Trim(Order_Main.fieldbyname('mainId').AsString);
|
||||||
end
|
end
|
||||||
|
|
@ -803,6 +830,7 @@ procedure TfrmTradePlanMgeList.TfilterClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
conno.Tag := 2;
|
conno.Tag := 2;
|
||||||
|
batchno.Tag := 2;
|
||||||
if cxPageControl1.ActivePageIndex = 0 then
|
if cxPageControl1.ActivePageIndex = 0 then
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
|
|
@ -933,6 +961,29 @@ begin
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradePlanMgeList.ToolButton3Click(Sender: TObject);
|
||||||
|
var
|
||||||
|
WSql: string;
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmMdPrint := TfrmMdPrint.Create(Application);
|
||||||
|
with frmMdPrint do
|
||||||
|
begin
|
||||||
|
FLMType := '入库码单';
|
||||||
|
FFiltration1 := Trim(Order_Main.fieldbyname('mainId').AsString);
|
||||||
|
FFiltration2 := Trim(Order_Main.fieldbyname('mainId').AsString);
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
// if gPrintMdAutoOut then
|
||||||
|
// autoOut(WSql);
|
||||||
|
// Self.InitGrid();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmMdPrint.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrmTradePlanMgeList.ToolButton4Click(Sender: TObject);
|
procedure TfrmTradePlanMgeList.ToolButton4Click(Sender: TObject);
|
||||||
var
|
var
|
||||||
mMainId: string;
|
mMainId: string;
|
||||||
|
|
@ -968,6 +1019,110 @@ begin
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradePlanMgeList.Tv1Column10PropertiesEditValueChanged(Sender: TObject);
|
||||||
|
var
|
||||||
|
mvalues: string;
|
||||||
|
begin
|
||||||
|
mvalues := TCXTextEdit(Sender).Text;
|
||||||
|
|
||||||
|
with Order_Main do
|
||||||
|
begin
|
||||||
|
edit;
|
||||||
|
fieldbyname('OrdNote').Value := mvalues;
|
||||||
|
post;
|
||||||
|
end;
|
||||||
|
tv1.Controller.EditingController.ShowEdit();
|
||||||
|
|
||||||
|
with ADOQueryBaseTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('Update Trade_Plan_Main Set OrdNote =''' + trim(mvalues) + ''' ');
|
||||||
|
sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + '''');
|
||||||
|
// showmessage(sql.text);
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradePlanMgeList.Tv1Column11PropertiesEditValueChanged(Sender: TObject);
|
||||||
|
var
|
||||||
|
mvalues: string;
|
||||||
|
begin
|
||||||
|
mvalues := TCXTextEdit(Sender).Text;
|
||||||
|
|
||||||
|
with Order_Main do
|
||||||
|
begin
|
||||||
|
edit;
|
||||||
|
fieldbyname('Averagetime').Value := mvalues;
|
||||||
|
post;
|
||||||
|
end;
|
||||||
|
tv1.Controller.EditingController.ShowEdit();
|
||||||
|
|
||||||
|
with ADOQueryBaseTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('Update Trade_Plan_Sub Set Averagetime =''' + trim(mvalues) + ''' ');
|
||||||
|
sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + '''');
|
||||||
|
// showmessage(sql.text);
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradePlanMgeList.Tv1Column12PropertiesEditValueChanged(Sender: TObject);
|
||||||
|
var
|
||||||
|
mvalues: string;
|
||||||
|
begin
|
||||||
|
mvalues := TCXTextEdit(Sender).Text;
|
||||||
|
|
||||||
|
with Order_Main do
|
||||||
|
begin
|
||||||
|
edit;
|
||||||
|
fieldbyname('C_EName').Value := mvalues;
|
||||||
|
post;
|
||||||
|
end;
|
||||||
|
tv1.Controller.EditingController.ShowEdit();
|
||||||
|
|
||||||
|
with ADOQueryBaseTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('Update Trade_Plan_SUB Set C_EName =''' + trim(mvalues) + ''' ');
|
||||||
|
sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + '''');
|
||||||
|
// showmessage(sql.text);
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradePlanMgeList.Tv1Column9PropertiesEditValueChanged(Sender: TObject);
|
||||||
|
var
|
||||||
|
mvalues: string;
|
||||||
|
begin
|
||||||
|
mvalues := TCXTextEdit(Sender).Text;
|
||||||
|
|
||||||
|
with Order_Main do
|
||||||
|
begin
|
||||||
|
edit;
|
||||||
|
fieldbyname('factoryName').Value := mvalues;
|
||||||
|
post;
|
||||||
|
end;
|
||||||
|
tv1.Controller.EditingController.ShowEdit();
|
||||||
|
|
||||||
|
with ADOQueryBaseTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('Update Trade_Plan_Main Set factoryName =''' + trim(mvalues) + ''' ');
|
||||||
|
sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + '''');
|
||||||
|
// showmessage(sql.text);
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrmTradePlanMgeList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
procedure TfrmTradePlanMgeList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||||||
begin
|
begin
|
||||||
if fIsLoad then
|
if fIsLoad then
|
||||||
|
|
@ -981,11 +1136,11 @@ begin
|
||||||
begin
|
begin
|
||||||
if Order_Main.IsEmpty then
|
if Order_Main.IsEmpty then
|
||||||
Exit;
|
Exit;
|
||||||
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
|
// if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
|
||||||
begin
|
// begin
|
||||||
Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
// Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
||||||
Exit;
|
// Exit;
|
||||||
end;
|
// end;
|
||||||
|
|
||||||
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
|
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
|
||||||
Exit;
|
Exit;
|
||||||
|
|
@ -1018,11 +1173,11 @@ begin
|
||||||
begin
|
begin
|
||||||
if cds_mxlist.IsEmpty then
|
if cds_mxlist.IsEmpty then
|
||||||
Exit;
|
Exit;
|
||||||
if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then
|
// if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then
|
||||||
begin
|
// begin
|
||||||
Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
// Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
||||||
Exit;
|
// Exit;
|
||||||
end;
|
// end;
|
||||||
|
|
||||||
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
|
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
|
||||||
Exit;
|
Exit;
|
||||||
|
|
@ -1054,6 +1209,108 @@ begin
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradePlanMgeList.v1ConNoPropertiesEditValueChanged(Sender: TObject);
|
||||||
|
var
|
||||||
|
mvalues: string;
|
||||||
|
begin
|
||||||
|
mvalues := TCXTextEdit(Sender).Text;
|
||||||
|
|
||||||
|
with Order_Main do
|
||||||
|
begin
|
||||||
|
edit;
|
||||||
|
fieldbyname('ConNo').Value := mvalues;
|
||||||
|
post;
|
||||||
|
end;
|
||||||
|
tv1.Controller.EditingController.ShowEdit();
|
||||||
|
|
||||||
|
with ADOQueryBaseTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('Update Trade_Plan_Sub Set ConNo =''' + trim(mvalues) + ''' ');
|
||||||
|
sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + '''');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradePlanMgeList.TBJYbuttonClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
WSql, FFiltration1: string;
|
||||||
|
fPrintFile, fPrintFile10, FMainID, LBName: string;
|
||||||
|
begin
|
||||||
|
if Order_Main.IsEmpty then
|
||||||
|
Exit;
|
||||||
|
// if Order_Main.Locate('SSel', True, []) = False then
|
||||||
|
// begin
|
||||||
|
// Application.MessageBox('没有选择数据', '提示', 0);
|
||||||
|
// Exit;
|
||||||
|
// end;
|
||||||
|
ExportFtErpFile('验货分析报告.rmf', ADOQueryBaseCmd);
|
||||||
|
|
||||||
|
FFiltration1 := Trim(Order_Main.fieldbyname('mainId').AsString);
|
||||||
|
Order_Main.EnableControls;
|
||||||
|
with ADO_1 do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.add('exec P_Trade_Cloth_IN_djd_Prt_JYFX_ZSD');
|
||||||
|
sql.add(' @Filtration=' + quotedstr(Trim(FFiltration1)));
|
||||||
|
sql.add(',@grade=''A'' ');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
with ADO_2 do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.add('exec P_Trade_Cloth_IN_djd_Prt_JYFX_ZSD');
|
||||||
|
sql.add(' @Filtration=' + quotedstr(Trim(FFiltration1)));
|
||||||
|
sql.add(',@grade=''B'' ');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
with ADO_3 do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.add('exec P_Trade_Cloth_IN_djd_Prt_JYFX_ZSD');
|
||||||
|
sql.add(' @Filtration=' + quotedstr(Trim(FFiltration1)));
|
||||||
|
sql.add(',@grade=''C'' ');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
with ADO_4 do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.add('exec P_Trade_Cloth_IN_djd_Prt_JYFX_ZSD');
|
||||||
|
sql.add(' @Filtration=' + quotedstr(Trim(FFiltration1)));
|
||||||
|
sql.add(',@grade=''D'' ');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
with ADO_5 do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.add('exec P_Trade_Cloth_IN_djd_Prt_JYFX_ZSD');
|
||||||
|
sql.add(' @Filtration=' + quotedstr(Trim(FFiltration1)));
|
||||||
|
sql.add(',@grade=''D/C'' ');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\验货分析报告.rmf';
|
||||||
|
|
||||||
|
RMXLSExport1.ShowDialog := true;
|
||||||
|
if FileExists(fPrintFile) then
|
||||||
|
begin
|
||||||
|
RM2.LoadFromFile(fPrintFile);
|
||||||
|
RM2.DefaultCopies := 1;
|
||||||
|
RM2.ShowReport;
|
||||||
|
// RM1.PrintReport;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrmTradePlanMgeList.ButtonEdit(Sender: TObject; AButtonIndex: Integer);
|
procedure TfrmTradePlanMgeList.ButtonEdit(Sender: TObject; AButtonIndex: Integer);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
|
@ -1091,8 +1348,8 @@ begin
|
||||||
strwhere := ' and ' + Trim(strwhere);
|
strwhere := ' and ' + Trim(strwhere);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
if (Trim(DParameters1) <> '高权限') then
|
// if (Trim(DParameters1) <> '高权限') then
|
||||||
strwhere := strwhere + ' and A.Filler=' + quotedstr(Trim(DName));
|
// strwhere := strwhere + ' and A.Filler=' + quotedstr(Trim(DName));
|
||||||
|
|
||||||
try
|
try
|
||||||
Tv1.BeginUpdate();
|
Tv1.BeginUpdate();
|
||||||
|
|
@ -1113,6 +1370,7 @@ begin
|
||||||
Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', endDate.Date + 1);
|
Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', endDate.Date + 1);
|
||||||
Parameters.ParamByName('mStatus').Value := mStatus;
|
Parameters.ParamByName('mStatus').Value := mStatus;
|
||||||
Parameters.ParamByName('WSql').Value := strwhere;
|
Parameters.ParamByName('WSql').Value := strwhere;
|
||||||
|
// showmessage(strwhere);
|
||||||
Open;
|
Open;
|
||||||
end;
|
end;
|
||||||
// if Order_Main.Fields.Count<=1 then
|
// if Order_Main.Fields.Count<=1 then
|
||||||
|
|
|
||||||
|
|
@ -39,7 +39,8 @@ uses
|
||||||
U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload},
|
U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload},
|
||||||
FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame},
|
FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame},
|
||||||
U_UptPlanDataToRoll in 'U_UptPlanDataToRoll.pas' {frmUptPlanDataToRoll},
|
U_UptPlanDataToRoll in 'U_UptPlanDataToRoll.pas' {frmUptPlanDataToRoll},
|
||||||
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas';
|
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
|
||||||
|
U_MdPrint in '..\A00通用窗体\U_MdPrint.pas' {frmMdPrint};
|
||||||
|
|
||||||
{$R *.res}
|
{$R *.res}
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -156,7 +156,7 @@
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||||
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
||||||
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10djdPackwenshang\项目代码\wenshangkm\G01贸易生产计划\testDll.exe</Debugger_HostApplication>
|
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10DJkaimengwenshang\项目代码\wenshangkm\G01贸易生产计划\testDll.exe</Debugger_HostApplication>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
<DelphiCompile Include="$(MainSource)">
|
<DelphiCompile Include="$(MainSource)">
|
||||||
|
|
@ -246,6 +246,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="..\A00通用窗体\U_MdPrint.pas">
|
||||||
|
<Form>frmMdPrint</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>
|
||||||
|
|
|
||||||
|
|
@ -47,13 +47,15 @@
|
||||||
<File Path="..\A00通用窗体\U_PictureList.dfm"/>
|
<File Path="..\A00通用窗体\U_PictureList.dfm"/>
|
||||||
<File Path="..\A00通用窗体\U_PictureUpload.pas"/>
|
<File Path="..\A00通用窗体\U_PictureUpload.pas"/>
|
||||||
<File Path="..\A00通用窗体\U_PictureUpload.dfm"/>
|
<File Path="..\A00通用窗体\U_PictureUpload.dfm"/>
|
||||||
|
<File Path="..\A00通用窗体\U_MdPrint.pas"/>
|
||||||
|
<File Path="..\A00通用窗体\U_MdPrint.dfm"/>
|
||||||
<File Path="..\A00通用组件"/>
|
<File Path="..\A00通用组件"/>
|
||||||
<File Path="..\A00通用组件\FrameDateSel.pas"/>
|
<File Path="..\A00通用组件\FrameDateSel.pas"/>
|
||||||
<File Path="..\A00通用组件\FrameDateSel.dfm"/>
|
<File Path="..\A00通用组件\FrameDateSel.dfm"/>
|
||||||
<File Path="..\G00贸易通用窗体"/>
|
<File Path="..\G00贸易通用窗体"/>
|
||||||
<File Path="..\G00贸易通用窗体\U_TradeSalesContractSel.pas"/>
|
<File Path="..\G00贸易通用窗体\U_TradeSalesContractSel.pas"/>
|
||||||
<File Path="..\G00贸易通用窗体\U_TradeSalesContractSel.dfm"/>
|
<File Path="..\G00贸易通用窗体\U_TradeSalesContractSel.dfm"/>
|
||||||
<File Path="..\..\..\..\D10djdPackwenshang"/>
|
<File Path="..\..\..\..\D10DJkaimengwenshang"/>
|
||||||
<File Path="..\..\..\public10"/>
|
<File Path="..\..\..\public10"/>
|
||||||
<File Path="..\..\..\public10\design"/>
|
<File Path="..\..\..\public10\design"/>
|
||||||
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
|
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
|
||||||
|
|
@ -99,11 +101,12 @@
|
||||||
<Transactions>
|
<Transactions>
|
||||||
<Transaction>1899-12-30 00:00:00.000.939,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_SysLogOrderzsd.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.939,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_SysLogOrderzsd.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.368,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_OrderInPut.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.368,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_OrderInPut.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_ProductOrderNewList.pas=</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.578,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_MJSJFX.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.578,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_MJSJFX.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.296,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_TradePlanList.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.296,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_TradePlanList.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_ProductOrderNewList.pas=</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.720,=D:\Dp10RepoV1\项目代码\D10DJkaimengwenshang\项目代码\wenshangkm\A00通用窗体\U_MdPrint.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.651,=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.651,=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas</Transaction>
|
||||||
</Transactions>
|
</Transactions>
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|
|
||||||
Binary file not shown.
Binary file not shown.
|
|
@ -1,104 +1,104 @@
|
||||||
<?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.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.157,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradePack.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradePack.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10RepoV1\public10\design\U_FormInitThread.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10RepoV1\public10\design\U_FormInitThread.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.dfm</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.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.417,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.417,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.dfm=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.792,=D:\rtgit\D10djdPack\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.769,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.769,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit2.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.193,D:\Dp10RepoV1\项目代码\D10djdPackwenshang\项目代码\wenshangkm\G03贸易布匹检验\U_DjdDjClList.pas=D:\Dp10RepoV1\项目代码\D10djdPackwenshang\项目代码\wenshangkm\G03贸易布匹检验\U_DjdDjClListJT.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.382,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.792,=D:\rtgit\D10djdPack\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.540,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.888,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_TradeMachInsp.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.888,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_TradeMachInsp.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.540,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.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.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.663,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.663,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\项目代码\D10djdPackwenshang\项目代码\wenshangkm\G03贸易布匹检验\U_DjdDjClListJT.dfm=D:\Dp10RepoV1\项目代码\D10djdPackwenshang\项目代码\wenshangkm\G03贸易布匹检验\U_DjdDjClList.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.673,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_ControlData.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_AdoFunc.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.996,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.996,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.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.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.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.817,D:\Dp10RepoV1\项目代码\djdPack\G00贸易通用窗体\U_TradePlanSel.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.817,D:\Dp10RepoV1\项目代码\djdPack\G00贸易通用窗体\U_TradePlanSel.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.051,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_BillPrintList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.051,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_BillPrintList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.582,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\DjdMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj</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.018,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothWaitPack.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothWaitPack.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.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.230,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.dfm=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.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.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.pas=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.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.991,=D:\Dp10RepoV1\项目代码\djdPack\A00通用组件\FrameDateSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.991,=D:\Dp10RepoV1\项目代码\djdPack\A00通用组件\FrameDateSel.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.990,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.706,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.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.382,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeInsp.dproj</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.661,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.dfm=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.706,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.201,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.201,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.582,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\DjdMachineInsp.dproj</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.448,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.448,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.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.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.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.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.661,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.990,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\项目代码\D10djdPackwenshang\项目代码\wenshangkm\G03贸易布匹检验\U_DjdDjClList.dfm=D:\Dp10RepoV1\项目代码\D10djdPackwenshang\项目代码\wenshangkm\G03贸易布匹检验\U_DjdDjClListJT.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.634,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_AdoFunc.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.679,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.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.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.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.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.634,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.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.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.673,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_ControlData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.054,=D:\Dp10RepoV1\项目代码\TradePack\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.747,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothInspList.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\项目代码\D10djdPackwenshang\项目代码\wenshangkm\G03贸易布匹检验\U_DjdDjClListJT.pas=D:\Dp10RepoV1\项目代码\D10djdPackwenshang\项目代码\wenshangkm\G03贸易布匹检验\U_DjdDjClList.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.054,=D:\Dp10RepoV1\项目代码\TradePack\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.679,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.747,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothInspList.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.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.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"/>
|
||||||
|
|
|
||||||
Binary file not shown.
|
|
@ -1,6 +1,6 @@
|
||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<Default.Personality>
|
<Default.Personality>
|
||||||
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10djdPackwenshang\项目代码\wenshangkm\G03贸易布匹检验\DjdMachineInsp.dproj"/>
|
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10DJkaimengwenshang\项目代码\wenshangkm\G03贸易布匹检验\DjdMachineInsp.dproj"/>
|
||||||
</Default.Personality>
|
</Default.Personality>
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|
|
||||||
|
|
@ -156,9 +156,10 @@ inherited frmDjdDjClList: TfrmDjdDjClList
|
||||||
Width = 112
|
Width = 112
|
||||||
end
|
end
|
||||||
object TV1ConNo: TcxGridDBColumn
|
object TV1ConNo: TcxGridDBColumn
|
||||||
Caption = #21512#21516#21495
|
Caption = 'PO'
|
||||||
DataBinding.FieldName = 'ConNo'
|
DataBinding.FieldName = 'ConNo'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
end
|
end
|
||||||
object TV1CustName: TcxGridDBColumn
|
object TV1CustName: TcxGridDBColumn
|
||||||
Caption = #23458#25143
|
Caption = #23458#25143
|
||||||
|
|
@ -365,6 +366,7 @@ inherited frmDjdDjClList: TfrmDjdDjClList
|
||||||
end
|
end
|
||||||
object dxLayoutItem2: TdxLayoutItem
|
object dxLayoutItem2: TdxLayoutItem
|
||||||
Parent = dxLayoutGroup1
|
Parent = dxLayoutGroup1
|
||||||
|
Visible = False
|
||||||
SizeOptions.Width = 190
|
SizeOptions.Width = 190
|
||||||
AllowRemove = False
|
AllowRemove = False
|
||||||
CaptionOptions.Text = #35746#21333#21495
|
CaptionOptions.Text = #35746#21333#21495
|
||||||
|
|
@ -386,7 +388,7 @@ inherited frmDjdDjClList: TfrmDjdDjClList
|
||||||
object dxLayoutItem_pm: TdxLayoutItem
|
object dxLayoutItem_pm: TdxLayoutItem
|
||||||
Parent = dxLayoutGroup2
|
Parent = dxLayoutGroup2
|
||||||
SizeOptions.Width = 232
|
SizeOptions.Width = 232
|
||||||
CaptionOptions.Text = #20013#25991#21517#31216
|
CaptionOptions.Text = #20135#21697#21517#31216
|
||||||
Control = C_name
|
Control = C_name
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 27
|
||||||
ControlOptions.OriginalWidth = 160
|
ControlOptions.OriginalWidth = 160
|
||||||
|
|
@ -396,7 +398,7 @@ inherited frmDjdDjClList: TfrmDjdDjClList
|
||||||
object dxLayoutItem_hth: TdxLayoutItem
|
object dxLayoutItem_hth: TdxLayoutItem
|
||||||
Parent = dxLayoutGroup1
|
Parent = dxLayoutGroup1
|
||||||
SizeOptions.Width = 233
|
SizeOptions.Width = 233
|
||||||
CaptionOptions.Text = #21512#21516#21495
|
CaptionOptions.Text = 'PO'
|
||||||
Control = conNo
|
Control = conNo
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 27
|
||||||
ControlOptions.OriginalWidth = 161
|
ControlOptions.OriginalWidth = 161
|
||||||
|
|
@ -443,6 +445,7 @@ inherited frmDjdDjClList: TfrmDjdDjClList
|
||||||
end
|
end
|
||||||
object dxLayoutItem1: TdxLayoutItem
|
object dxLayoutItem1: TdxLayoutItem
|
||||||
Parent = dxLayoutGroup2
|
Parent = dxLayoutGroup2
|
||||||
|
Visible = False
|
||||||
SizeOptions.Width = 192
|
SizeOptions.Width = 192
|
||||||
CaptionOptions.Text = #25171#30721#20154
|
CaptionOptions.Text = #25171#30721#20154
|
||||||
Control = Filler
|
Control = Filler
|
||||||
|
|
|
||||||
|
|
@ -156,9 +156,10 @@ inherited frmDjdDjClListJT: TfrmDjdDjClListJT
|
||||||
Width = 112
|
Width = 112
|
||||||
end
|
end
|
||||||
object TV1ConNo: TcxGridDBColumn
|
object TV1ConNo: TcxGridDBColumn
|
||||||
Caption = #21512#21516#21495
|
Caption = 'PO'
|
||||||
DataBinding.FieldName = 'ConNo'
|
DataBinding.FieldName = 'ConNo'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
end
|
end
|
||||||
object TV1CustName: TcxGridDBColumn
|
object TV1CustName: TcxGridDBColumn
|
||||||
Caption = #23458#25143
|
Caption = #23458#25143
|
||||||
|
|
@ -366,6 +367,7 @@ inherited frmDjdDjClListJT: TfrmDjdDjClListJT
|
||||||
end
|
end
|
||||||
object dxLayoutItem2: TdxLayoutItem
|
object dxLayoutItem2: TdxLayoutItem
|
||||||
Parent = dxLayoutGroup1
|
Parent = dxLayoutGroup1
|
||||||
|
Visible = False
|
||||||
SizeOptions.Width = 190
|
SizeOptions.Width = 190
|
||||||
AllowRemove = False
|
AllowRemove = False
|
||||||
CaptionOptions.Text = #35746#21333#21495
|
CaptionOptions.Text = #35746#21333#21495
|
||||||
|
|
@ -387,7 +389,7 @@ inherited frmDjdDjClListJT: TfrmDjdDjClListJT
|
||||||
object dxLayoutItem_pm: TdxLayoutItem
|
object dxLayoutItem_pm: TdxLayoutItem
|
||||||
Parent = dxLayoutGroup2
|
Parent = dxLayoutGroup2
|
||||||
SizeOptions.Width = 232
|
SizeOptions.Width = 232
|
||||||
CaptionOptions.Text = #20013#25991#21517#31216
|
CaptionOptions.Text = #20135#21697#21517#31216
|
||||||
Control = C_name
|
Control = C_name
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 27
|
||||||
ControlOptions.OriginalWidth = 160
|
ControlOptions.OriginalWidth = 160
|
||||||
|
|
@ -397,7 +399,7 @@ inherited frmDjdDjClListJT: TfrmDjdDjClListJT
|
||||||
object dxLayoutItem_hth: TdxLayoutItem
|
object dxLayoutItem_hth: TdxLayoutItem
|
||||||
Parent = dxLayoutGroup1
|
Parent = dxLayoutGroup1
|
||||||
SizeOptions.Width = 233
|
SizeOptions.Width = 233
|
||||||
CaptionOptions.Text = #21512#21516#21495
|
CaptionOptions.Text = 'PO'
|
||||||
Control = conNo
|
Control = conNo
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 27
|
||||||
ControlOptions.OriginalWidth = 161
|
ControlOptions.OriginalWidth = 161
|
||||||
|
|
@ -444,6 +446,7 @@ inherited frmDjdDjClListJT: TfrmDjdDjClListJT
|
||||||
end
|
end
|
||||||
object dxLayoutItem1: TdxLayoutItem
|
object dxLayoutItem1: TdxLayoutItem
|
||||||
Parent = dxLayoutGroup2
|
Parent = dxLayoutGroup2
|
||||||
|
Visible = False
|
||||||
SizeOptions.Width = 192
|
SizeOptions.Width = 192
|
||||||
CaptionOptions.Text = #25171#30721#20154
|
CaptionOptions.Text = #25171#30721#20154
|
||||||
Control = Filler
|
Control = Filler
|
||||||
|
|
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -302,6 +302,12 @@ type
|
||||||
ToolButton2: TToolButton;
|
ToolButton2: TToolButton;
|
||||||
hundredsquare: TLabel;
|
hundredsquare: TLabel;
|
||||||
dxLayoutItem32: TdxLayoutItem;
|
dxLayoutItem32: TdxLayoutItem;
|
||||||
|
ActualLen: TcxTextEdit;
|
||||||
|
dxLayoutItem33: TdxLayoutItem;
|
||||||
|
dxLayoutAutoCreatedGroup8: TdxLayoutAutoCreatedGroup;
|
||||||
|
Tv2Column2: TcxGridDBColumn;
|
||||||
|
Sampling: TcxTextEdit;
|
||||||
|
dxLayoutItem34: TdxLayoutItem;
|
||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure Button_badClick(Sender: TObject);
|
procedure Button_badClick(Sender: TObject);
|
||||||
|
|
@ -357,6 +363,8 @@ type
|
||||||
procedure edtMaBiaoClick(Sender: TObject);
|
procedure edtMaBiaoClick(Sender: TObject);
|
||||||
procedure EDIT_MachiClick(Sender: TObject);
|
procedure EDIT_MachiClick(Sender: TObject);
|
||||||
procedure ToolButton2Click(Sender: TObject);
|
procedure ToolButton2Click(Sender: TObject);
|
||||||
|
procedure presentLenPropertiesChange(Sender: TObject);
|
||||||
|
procedure SamplingPropertiesChange(Sender: TObject);
|
||||||
private
|
private
|
||||||
FCIID, FOperationStatus, FCIFName, FWorkshop: string;
|
FCIID, FOperationStatus, FCIFName, FWorkshop: string;
|
||||||
FBCIOID, FOrderNo, FMainId, FSubId, FPCId, FConNo, FConMId, fBuyConNo, FConSId: string;
|
FBCIOID, FOrderNo, FMainId, FSubId, FPCId, FConNo, FConMId, fBuyConNo, FConSId: string;
|
||||||
|
|
@ -443,13 +451,22 @@ begin
|
||||||
if CDS_2.IsEmpty then
|
if CDS_2.IsEmpty then
|
||||||
Exit;
|
Exit;
|
||||||
|
|
||||||
CDS_2.First;
|
// CDS_2.First;
|
||||||
while not CDS_2.eof do
|
// while not CDS_2.eof do
|
||||||
begin
|
// begin
|
||||||
|
//
|
||||||
|
// mxIds := RoundFloat(CDS_2.FieldByName('CIFPoints').asfloat, 2) + mxIds;
|
||||||
|
// CDS_2.Next;
|
||||||
|
// end;
|
||||||
|
|
||||||
mxIds := RoundFloat(CDS_2.FieldByName('CIFPoints').asfloat, 2) + mxIds;
|
with ADOQueryBaseCmd do
|
||||||
CDS_2.Next;
|
begin
|
||||||
|
close;
|
||||||
|
sql.clear;
|
||||||
|
sql.add('select SUM(CIFPoints) ZCIFPoints from trade_cloth_inspect_flaw where ciid=''' + trim(FCIID) + ''' ');
|
||||||
|
open;
|
||||||
end;
|
end;
|
||||||
|
mxIds := RoundFloat(ADOQueryBaseCmd.FieldByName('ZCIFPoints').asfloat, 2);
|
||||||
if (strtofloatdef(C_Width.text, 0) > 0) and (strtofloatdef(inputlen.text, 0) > 0) then
|
if (strtofloatdef(C_Width.text, 0) > 0) and (strtofloatdef(inputlen.text, 0) > 0) then
|
||||||
begin
|
begin
|
||||||
FCDfs := RoundFloat((mxIds * 10000) / (strtofloatdef((inputlen.text), 0) * strtofloatdef(C_Width.text, 0)), 2);
|
FCDfs := RoundFloat((mxIds * 10000) / (strtofloatdef((inputlen.text), 0) * strtofloatdef(C_Width.text, 0)), 2);
|
||||||
|
|
@ -472,9 +489,18 @@ begin
|
||||||
begin
|
begin
|
||||||
GRade.text := 'C';
|
GRade.text := 'C';
|
||||||
end;
|
end;
|
||||||
if FCDfs > 40 then
|
|
||||||
|
if (FCDfs > 20) and (FCDfs < 30) then
|
||||||
|
begin
|
||||||
|
hundredsquare.Font.color := clblue;
|
||||||
|
end
|
||||||
|
else if FCDfs > 30 then
|
||||||
begin
|
begin
|
||||||
hundredsquare.Font.color := clred;
|
hundredsquare.Font.color := clred;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
hundredsquare.Font.color := clBlack;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
@ -514,7 +540,8 @@ begin
|
||||||
// Panel_msg.Visible := not Panel_msg.Visible;
|
// Panel_msg.Visible := not Panel_msg.Visible;
|
||||||
cxgrid3.Enabled := not cxgrid3.Enabled;
|
cxgrid3.Enabled := not cxgrid3.Enabled;
|
||||||
InitJTM(cds_3.fieldbyName('CIID').AsString);
|
InitJTM(cds_3.fieldbyName('CIID').AsString);
|
||||||
initEditPiece();
|
// initEditPiece();
|
||||||
|
BTPrint.Caption := '修改提交';
|
||||||
//修改提交
|
//修改提交
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -524,7 +551,7 @@ begin
|
||||||
edtScan.SetFocus;
|
edtScan.SetFocus;
|
||||||
if trim(OrderNo.Text) = '' then
|
if trim(OrderNo.Text) = '' then
|
||||||
exit;
|
exit;
|
||||||
if trim(grade.Text) = '' then
|
if (grade.ItemIndex = -1) and (trim(grade.Text) = '') then //trim(grade.Text) = ''
|
||||||
begin
|
begin
|
||||||
Application.MessageBox('等级不能为空!', '提示', 0);
|
Application.MessageBox('等级不能为空!', '提示', 0);
|
||||||
exit;
|
exit;
|
||||||
|
|
@ -534,6 +561,11 @@ begin
|
||||||
Application.MessageBox('门幅不能为空!', '提示', 0);
|
Application.MessageBox('门幅不能为空!', '提示', 0);
|
||||||
exit;
|
exit;
|
||||||
end;
|
end;
|
||||||
|
if StrToFloatDef((C_Width.Text), 0) > 300 then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('门幅不能大于300!', '提示', 0);
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
if (trim(AFiller.text) = '') and (trim(BFiller.text) = '') and (trim(CFiller.text) = '') then
|
if (trim(AFiller.text) = '') and (trim(BFiller.text) = '') and (trim(CFiller.text) = '') then
|
||||||
begin
|
begin
|
||||||
Application.MessageBox('检验人不能都为空!', '提示', 0);
|
Application.MessageBox('检验人不能都为空!', '提示', 0);
|
||||||
|
|
@ -560,6 +592,7 @@ begin
|
||||||
funitPiecesStr := '';
|
funitPiecesStr := '';
|
||||||
unitPieces.Text := '';
|
unitPieces.Text := '';
|
||||||
presentWeight.Text := '';
|
presentWeight.Text := '';
|
||||||
|
Sampling.text := '';
|
||||||
Cause.text := '';
|
Cause.text := '';
|
||||||
FCINote := '';
|
FCINote := '';
|
||||||
BanciqtyC.text := '';
|
BanciqtyC.text := '';
|
||||||
|
|
@ -578,8 +611,8 @@ begin
|
||||||
cxgrid3.Enabled := true;
|
cxgrid3.Enabled := true;
|
||||||
pieceNo.Text := fLastPieceNo;
|
pieceNo.Text := fLastPieceNo;
|
||||||
cds_params.edit;
|
cds_params.edit;
|
||||||
cds_params.fieldbyName('chen').value := fOldCheng;
|
cds_params.fieldbyName('chen').value := 1;
|
||||||
cds_params.fieldbyName('mabiao').value := fOldMaBiao;
|
cds_params.fieldbyName('mabiao').value := 1;
|
||||||
cds_params.Post;
|
cds_params.Post;
|
||||||
edtPacketNo.Enabled := true;
|
edtPacketNo.Enabled := true;
|
||||||
// Panel_msg.Visible := true;
|
// Panel_msg.Visible := true;
|
||||||
|
|
@ -680,7 +713,7 @@ begin
|
||||||
FOperationStatus := '缸条码';
|
FOperationStatus := '缸条码';
|
||||||
InitJYGrid();
|
InitJYGrid();
|
||||||
InitCDGrid('');
|
InitCDGrid('');
|
||||||
FCIID := '';
|
// FCIID := '';
|
||||||
//清除麻痹
|
//清除麻痹
|
||||||
if fIsCommopen and gAutoPostClear then
|
if fIsCommopen and gAutoPostClear then
|
||||||
begin
|
begin
|
||||||
|
|
@ -690,6 +723,7 @@ begin
|
||||||
finally
|
finally
|
||||||
BTPrint.Enabled := true;
|
BTPrint.Enabled := true;
|
||||||
end;
|
end;
|
||||||
|
BTPrint.Caption := '提 交';
|
||||||
edtScan.SetFocus;
|
edtScan.SetFocus;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
@ -1560,7 +1594,7 @@ begin
|
||||||
frameBads1.CIFEnd.Text := trim(InputLen.Text);
|
frameBads1.CIFEnd.Text := trim(InputLen.Text);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
ActualLen.text := FloatToStr(strtoFloatdef(trim(InputLen.Text), 0) - strtoFloatdef(trim(presentlen.Text), 0) - strtoFloatdef(trim(Sampling.Text), 0));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmMachRollMain.Label1Click(Sender: TObject);
|
procedure TfrmMachRollMain.Label1Click(Sender: TObject);
|
||||||
|
|
@ -1815,7 +1849,7 @@ begin
|
||||||
inherited;
|
inherited;
|
||||||
if Application.MessageBox('确定要删除当前病疵记录吗？', '警告信息', 1) = 2 then
|
if Application.MessageBox('确定要删除当前病疵记录吗？', '警告信息', 1) = 2 then
|
||||||
exit;
|
exit;
|
||||||
CDS_2.Delete;
|
|
||||||
with ADOQueryBaseCmd do
|
with ADOQueryBaseCmd do
|
||||||
begin
|
begin
|
||||||
Close;
|
Close;
|
||||||
|
|
@ -1825,6 +1859,7 @@ begin
|
||||||
SQL.Add(' where CIID=''' + trim(cds_3.fieldbyName('CIID').AsString) + ''' and CIFID=''' + trim(CDS_2.fieldbyName('CIFID').AsString) + '''');
|
SQL.Add(' where CIID=''' + trim(cds_3.fieldbyName('CIID').AsString) + ''' and CIFID=''' + trim(CDS_2.fieldbyName('CIFID').AsString) + '''');
|
||||||
execsql;
|
execsql;
|
||||||
end;
|
end;
|
||||||
|
CDS_2.Delete;
|
||||||
gethundredsquares();
|
gethundredsquares();
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
@ -1865,11 +1900,40 @@ begin
|
||||||
// Panel_msg.Visible := not Panel_msg.Visible;
|
// Panel_msg.Visible := not Panel_msg.Visible;
|
||||||
cxgrid3.Enabled := not cxgrid3.Enabled;
|
cxgrid3.Enabled := not cxgrid3.Enabled;
|
||||||
InitJTM(cds_3.fieldbyName('CIID').AsString);
|
InitJTM(cds_3.fieldbyName('CIID').AsString);
|
||||||
initEditPiece();
|
// initEditPiece();
|
||||||
|
// fOldCheng := trim(cds_params.fieldbyName('chen').AsString);
|
||||||
|
// fOldmabiao := trim(cds_params.fieldbyName('mabiao').AsString);
|
||||||
with cds_3 do
|
with cds_3 do
|
||||||
begin
|
begin
|
||||||
InputLen.Text := fieldbyName('InputLen').AsString;
|
InputLen.Text := fieldbyName('InputLen').AsString;
|
||||||
|
fLastPieceNo := trim(PieceNo.Text);
|
||||||
|
PieceNo.Text := fieldbyName('PieceNo').AsString;
|
||||||
|
InputWeight.Text := fieldbyName('InputWeight').AsString;
|
||||||
|
Tare.Text := fieldbyName('Tare').AsString;
|
||||||
grade.ItemIndex := grade.Properties.Items.IndexOf(trim(fieldbyName('grade').AsString));
|
grade.ItemIndex := grade.Properties.Items.IndexOf(trim(fieldbyName('grade').AsString));
|
||||||
|
Coefficient.Text := fieldByName('Coefficient').AsString;
|
||||||
|
Radio_banci.ItemIndex := Radio_banci.Items.IndexOf(trim(fieldbyName('banci').AsString));
|
||||||
|
InspectionType.ItemIndex := InspectionType.Properties.Items.IndexOf(trim(fieldbyName('InspectionType').AsString));
|
||||||
|
if InspectionType.text = '' then
|
||||||
|
begin
|
||||||
|
InspectionType.ItemIndex := 0;
|
||||||
|
end;
|
||||||
|
C_Width.text := fieldbyName('C_Width').AsString;
|
||||||
|
BanciqtyA.text := fieldbyName('BanciqtyA').AsString;
|
||||||
|
BanciqtyB.text := fieldbyName('BanciqtyB').AsString;
|
||||||
|
BanciqtyC.text := fieldbyName('BanciqtyC').AsString;
|
||||||
|
AFiller.text := fieldbyName('AFiller').AsString;
|
||||||
|
BFiller.text := fieldbyName('BFiller').AsString;
|
||||||
|
CFiller.text := fieldbyName('CFiller').AsString;
|
||||||
|
// cds_params.edit;
|
||||||
|
// cds_params.fieldbyName('chen').value := fOldCheng;
|
||||||
|
// cds_params.fieldbyName('mabiao').value := fOldMaBiao;
|
||||||
|
// cds_params.Post;
|
||||||
|
edtPacketNo.Enabled := true;
|
||||||
|
// with cds_3 do
|
||||||
|
// begin
|
||||||
|
// InputLen.Text := fieldbyName('InputLen').AsString;
|
||||||
|
// grade.ItemIndex := grade.Properties.Items.IndexOf(trim(fieldbyName('grade').AsString));
|
||||||
end;
|
end;
|
||||||
InitCDGrid(cds_3.fieldbyName('CIID').AsString);
|
InitCDGrid(cds_3.fieldbyName('CIID').AsString);
|
||||||
gethundredsquares();
|
gethundredsquares();
|
||||||
|
|
@ -1891,8 +1955,8 @@ end;
|
||||||
procedure TfrmMachRollMain.ToolButton7Click(Sender: TObject);
|
procedure TfrmMachRollMain.ToolButton7Click(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
WriteCxGrid(trim(Self.Caption) + 'Tv1', TV1, gDllFileCaption);
|
WriteCxGrid(trim(Self.Caption) + 'Tv1', TV1, gDllFileCaption);
|
||||||
WriteCxGrid(trim(Self.Caption) + 'Tv2', Tv2, gDllFileCaption);
|
WriteCxGrid(trim(Self.Caption) + 'Tv2', Tv2, gDllFileCaption + '1');
|
||||||
WriteCxGrid(trim(Self.Caption) + 'Tv3', Tv3, gDllFileCaption);
|
WriteCxGrid(trim(Self.Caption) + 'Tv3', Tv3, gDllFileCaption + '1');
|
||||||
if gIsCanDesign then
|
if gIsCanDesign then
|
||||||
begin
|
begin
|
||||||
saveLayOut(application, dxLayoutControl_pack, ADOQueryBaseCmd, PWideChar(fDllFileName + '|' + Self.Name + '|' + dxLayoutControl_pack.Name + '.ini'));
|
saveLayOut(application, dxLayoutControl_pack, ADOQueryBaseCmd, PWideChar(fDllFileName + '|' + Self.Name + '|' + dxLayoutControl_pack.Name + '.ini'));
|
||||||
|
|
@ -2300,6 +2364,11 @@ begin
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrmMachRollMain.presentLenPropertiesChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ActualLen.text := FloatToStr(strtoFloatdef(trim(InputLen.Text), 0) - strtoFloatdef(trim(presentlen.Text), 0) - strtoFloatdef(trim(Sampling.Text), 0));
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrmMachRollMain.CloseCom(DllName: string);
|
procedure TfrmMachRollMain.CloseCom(DllName: string);
|
||||||
type
|
type
|
||||||
TMyFunc = function(sCommName: PAnsiChar): hwnd; stdcall;
|
TMyFunc = function(sCommName: PAnsiChar): hwnd; stdcall;
|
||||||
|
|
@ -2413,8 +2482,15 @@ end;
|
||||||
procedure TfrmMachRollMain.cxButton2Click(Sender: TObject);
|
procedure TfrmMachRollMain.cxButton2Click(Sender: TObject);
|
||||||
var
|
var
|
||||||
maxno: string;
|
maxno: string;
|
||||||
|
mvalue: double;
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
if trim(frameBads1.CIFEnd.Text) <> '' then
|
||||||
|
begin
|
||||||
|
if TryStrToFloat((frameBads1.CIFEnd.Text), mvalue) = false then
|
||||||
|
raise Exception.create('疵点截止录入错误!');
|
||||||
|
end;
|
||||||
|
|
||||||
if FCIFName = '' then
|
if FCIFName = '' then
|
||||||
begin
|
begin
|
||||||
// frameBads1.dxPanel1.Visible := false;
|
// frameBads1.dxPanel1.Visible := false;
|
||||||
|
|
@ -2455,6 +2531,11 @@ begin
|
||||||
fieldbyName('CIFPoints').value := 4;
|
fieldbyName('CIFPoints').value := 4;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
if StrToFloatDef((frameBads1.CIFEnd.Text), 0) > 0 then
|
||||||
|
begin
|
||||||
|
fieldbyName('CIFPoints').value := strtofloatdef(format('%.0f', [strtofloatdef(trim(frameBads1.CIFQty.Text), 0)]), 0) * 4;
|
||||||
|
end;
|
||||||
|
|
||||||
fieldbyName('CIFQty').value := strtofloatdef(trim(frameBads1.CIFQty.Text), 0);
|
fieldbyName('CIFQty').value := strtofloatdef(trim(frameBads1.CIFQty.Text), 0);
|
||||||
fieldbyName('CIJBQty').value := strtofloatdef(trim(frameBads1.CIJBQty.Text), 0);
|
fieldbyName('CIJBQty').value := strtofloatdef(trim(frameBads1.CIJBQty.Text), 0);
|
||||||
fieldbyName('SubtractQty').value := strtofloatdef(trim(frameBads1.SubtractQty.Text), 0);
|
fieldbyName('SubtractQty').value := strtofloatdef(trim(frameBads1.SubtractQty.Text), 0);
|
||||||
|
|
@ -2656,10 +2737,16 @@ begin
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrmMachRollMain.SamplingPropertiesChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
ActualLen.text := FloatToStr(strtoFloatdef(trim(InputLen.Text), 0) - strtoFloatdef(trim(presentlen.Text), 0) - strtoFloatdef(trim(Sampling.Text), 0));
|
||||||
|
end;
|
||||||
|
|
||||||
function TfrmMachRollMain.SaveData(): Boolean;
|
function TfrmMachRollMain.SaveData(): Boolean;
|
||||||
var
|
var
|
||||||
maxno, MCIID, BZID, strsql: string;
|
maxno, MCIID, BZID, strsql: string;
|
||||||
MInputLen, MMeter, MYardage: double;
|
MInputLen, MMeter, MYardage, MActualLen: double;
|
||||||
MInputWeight, MGrossWeight, MNetWeight, MTare, Maddwet, maddLen: double;
|
MInputWeight, MGrossWeight, MNetWeight, MTare, Maddwet, maddLen: double;
|
||||||
mYardStick: double;
|
mYardStick: double;
|
||||||
mPresentLen, mpresentWeight: double;
|
mPresentLen, mpresentWeight: double;
|
||||||
|
|
@ -2795,15 +2882,17 @@ begin
|
||||||
MInputLen := strtofloatdef(trim(Edit_fixLen.Text), 0)
|
MInputLen := strtofloatdef(trim(Edit_fixLen.Text), 0)
|
||||||
else
|
else
|
||||||
MInputLen := RoundFloat(strtofloatdef(trim(InputLen.Text), 0), 4);
|
MInputLen := RoundFloat(strtofloatdef(trim(InputLen.Text), 0), 4);
|
||||||
|
|
||||||
|
MActualLen := RoundFloat(strtofloatdef(trim(ActualLen.Text), 0), 4);
|
||||||
// 换算后数量+mAddLen
|
// 换算后数量+mAddLen
|
||||||
if (uppercase(lblLenUnit.CaptionOptions.Hint) = 'M') or (lblLenUnit.CaptionOptions.Hint = '米') then
|
if (uppercase(lblLenUnit.CaptionOptions.Hint) = 'M') or (lblLenUnit.CaptionOptions.Hint = '米') then
|
||||||
begin
|
begin
|
||||||
MMeter := RoundFloat((MInputLen + maddLen + mPresentLen) * (mYardStick / 100), cds_params.fieldbyName('MPlace').AsInteger);
|
MMeter := RoundFloat((MActualLen + maddLen) * (mYardStick / 100), cds_params.fieldbyName('MPlace').AsInteger); // + mPresentLen
|
||||||
MYardage := RoundFloat(MMeter / 0.9144, cds_params.fieldbyName('YPlace').AsInteger);
|
MYardage := RoundFloat(MMeter / 0.9144, cds_params.fieldbyName('YPlace').AsInteger);
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
MYardage := RoundFloat((MInputLen + maddLen + mPresentLen) * (mYardStick / 100), cds_params.fieldbyName('YPlace').AsInteger);
|
MYardage := RoundFloat((MActualLen + maddLen ) * (mYardStick / 100), cds_params.fieldbyName('YPlace').AsInteger);
|
||||||
MMeter := RoundFloat(MYardage * 0.9144, cds_params.fieldbyName('MPlace').AsInteger);
|
MMeter := RoundFloat(MYardage * 0.9144, cds_params.fieldbyName('MPlace').AsInteger);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
@ -2813,6 +2902,8 @@ begin
|
||||||
fieldbyName('LenUnit').value := trim(lblLenUnit.CaptionOptions.Hint);
|
fieldbyName('LenUnit').value := trim(lblLenUnit.CaptionOptions.Hint);
|
||||||
fieldbyName('AddLen').value := maddLen;
|
fieldbyName('AddLen').value := maddLen;
|
||||||
fieldbyName('YardStick').value := mYardStick;
|
fieldbyName('YardStick').value := mYardStick;
|
||||||
|
fieldbyName('ActualLen').value := RoundFloat(strtofloatdef(trim(ActualLen.Text), 0), 2);
|
||||||
|
fieldbyName('Sampling').value := StrToFloatDef((Sampling.Text), 0);
|
||||||
|
|
||||||
/// ////////////////////// 保存长度 /////////////////////////
|
/// ////////////////////// 保存长度 /////////////////////////
|
||||||
|
|
||||||
|
|
@ -2867,7 +2958,7 @@ begin
|
||||||
fieldbyName('ConMId').value := trim(FConMId);
|
fieldbyName('ConMId').value := trim(FConMId);
|
||||||
fieldbyName('ConSId').value := trim(FConSId);
|
fieldbyName('ConSId').value := trim(FConSId);
|
||||||
fieldbyName('BCIOID').value := trim(FBCIOID);
|
fieldbyName('BCIOID').value := trim(FBCIOID);
|
||||||
fieldbyName('PCID').value := trim(maxno);
|
// fieldbyName('PCID').value := trim(maxno);
|
||||||
fieldbyName('Workshop').value := trim(FWorkshop);
|
fieldbyName('Workshop').value := trim(FWorkshop);
|
||||||
// if dxLayoutItem_rk.Visible then
|
// if dxLayoutItem_rk.Visible then
|
||||||
// fieldbyName('CIIOFlag').value := '未入库'
|
// fieldbyName('CIIOFlag').value := '未入库'
|
||||||
|
|
@ -3255,7 +3346,7 @@ begin
|
||||||
FCIFName := trim(TSpeedButton(Sender).Hint);
|
FCIFName := trim(TSpeedButton(Sender).Hint);
|
||||||
|
|
||||||
frameBads1.lblCIFName.Caption := trim(TSpeedButton(Sender).Hint);
|
frameBads1.lblCIFName.Caption := trim(TSpeedButton(Sender).Hint);
|
||||||
|
frameBads1.CIFNumber.text := '1';
|
||||||
frameBads1.CIFNumber.SetFocus;
|
frameBads1.CIFNumber.SetFocus;
|
||||||
|
|
||||||
frameBads1cxCheckBox_readLenPropertiesChange(frameBads1.IsSubtract);
|
frameBads1cxCheckBox_readLenPropertiesChange(frameBads1.IsSubtract);
|
||||||
|
|
@ -3371,16 +3462,29 @@ begin
|
||||||
fOldCheng := trim(cds_params.fieldbyName('chen').AsString);
|
fOldCheng := trim(cds_params.fieldbyName('chen').AsString);
|
||||||
fOldmabiao := trim(cds_params.fieldbyName('mabiao').AsString);
|
fOldmabiao := trim(cds_params.fieldbyName('mabiao').AsString);
|
||||||
BTPrint.Caption := '修改提交';
|
BTPrint.Caption := '修改提交';
|
||||||
with cds_3 do
|
// with cds_3 do
|
||||||
begin
|
// begin
|
||||||
// InputLen.Text := fieldbyName('InputLen').AsString;
|
// InputLen.Text := fieldbyName('InputLen').AsString;
|
||||||
fLastPieceNo := trim(PieceNo.Text);
|
// fLastPieceNo := trim(PieceNo.Text);
|
||||||
PieceNo.Text := fieldbyName('PieceNo').AsString;
|
// PieceNo.Text := fieldbyName('PieceNo').AsString;
|
||||||
// InputWeight.Text := fieldbyName('InputWeight').AsString;
|
// InputWeight.Text := fieldbyName('InputWeight').AsString;
|
||||||
Tare.Text := fieldbyName('Tare').AsString;
|
// Tare.Text := fieldbyName('Tare').AsString;
|
||||||
// grade.ItemIndex := grade.Properties.Items.IndexOf(trim(fieldbyName('grade').AsString));
|
// grade.ItemIndex := grade.Properties.Items.IndexOf(trim(fieldbyName('grade').AsString));
|
||||||
// Coefficient.Text := fieldByName('Coefficient').AsString;
|
// Coefficient.Text := fieldByName('Coefficient').AsString;
|
||||||
end;
|
// Radio_banci.ItemIndex := Radio_banci.Items.IndexOf(trim(fieldbyName('banci').AsString));
|
||||||
|
// InspectionType.ItemIndex := InspectionType.Properties.Items.IndexOf(trim(fieldbyName('InspectionType').AsString));
|
||||||
|
// if InspectionType.text = '' then
|
||||||
|
// begin
|
||||||
|
// InspectionType.ItemIndex := 0;
|
||||||
|
// end;
|
||||||
|
//
|
||||||
|
// BanciqtyA.text := fieldbyName('BanciqtyA').AsString;
|
||||||
|
// BanciqtyB.text := fieldbyName('BanciqtyB').AsString;
|
||||||
|
// BanciqtyC.text := fieldbyName('BanciqtyC').AsString;
|
||||||
|
// AFiller.text := fieldbyName('AFiller').AsString;
|
||||||
|
// BFiller.text := fieldbyName('BFiller').AsString;
|
||||||
|
// CFiller.text := fieldbyName('CFiller').AsString;
|
||||||
|
// end;
|
||||||
|
|
||||||
edtPacketNo.Enabled := False;
|
edtPacketNo.Enabled := False;
|
||||||
{end
|
{end
|
||||||
|
|
@ -3617,8 +3721,8 @@ begin
|
||||||
procedure
|
procedure
|
||||||
begin
|
begin
|
||||||
ReadCxGrid(trim(Self.Caption) + 'Tv1', TV1, gDllFileCaption);
|
ReadCxGrid(trim(Self.Caption) + 'Tv1', TV1, gDllFileCaption);
|
||||||
ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, gDllFileCaption);
|
ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, gDllFileCaption + '1');
|
||||||
ReadCxGrid(trim(Self.Caption) + 'Tv3', Tv3, gDllFileCaption);
|
ReadCxGrid(trim(Self.Caption) + 'Tv3', Tv3, gDllFileCaption + '1');
|
||||||
// readLayOut(dxLayoutControl_pack,ADOQueryBaseTemp,PWideChar( fDllFileName+'|'+self.name+'|'+dxLayoutControl_pack.Name+'.ini'));
|
// readLayOut(dxLayoutControl_pack,ADOQueryBaseTemp,PWideChar( fDllFileName+'|'+self.name+'|'+dxLayoutControl_pack.Name+'.ini'));
|
||||||
InitCDGrid(FCIID);
|
InitCDGrid(FCIID);
|
||||||
end)
|
end)
|
||||||
|
|
|
||||||
|
|
@ -2,27 +2,26 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
Left = 160
|
Left = 160
|
||||||
Top = 87
|
Top = 87
|
||||||
Caption = #26816#39564#25253#21578
|
Caption = #26816#39564#25253#21578
|
||||||
ClientHeight = 609
|
ClientHeight = 687
|
||||||
ClientWidth = 1296
|
ClientWidth = 1353
|
||||||
Color = clBtnFace
|
Color = clBtnFace
|
||||||
Font.Height = -16
|
Font.Height = -16
|
||||||
Position = poDefault
|
Position = poDefault
|
||||||
ExplicitWidth = 1312
|
ExplicitWidth = 1369
|
||||||
ExplicitHeight = 648
|
ExplicitHeight = 726
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 21
|
TextHeight = 21
|
||||||
object Panel6: TPanel [0]
|
object Panel6: TPanel [0]
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 146
|
Top = 146
|
||||||
Width = 1296
|
Width = 1353
|
||||||
Height = 40
|
Height = 40
|
||||||
Align = alTop
|
Align = alTop
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
BevelInner = bvLowered
|
BevelInner = bvLowered
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
ExplicitTop = 130
|
|
||||||
DesignSize = (
|
DesignSize = (
|
||||||
1296
|
1353
|
||||||
40)
|
40)
|
||||||
object Label31: TLabel
|
object Label31: TLabel
|
||||||
Left = 14
|
Left = 14
|
||||||
|
|
@ -100,7 +99,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
end
|
end
|
||||||
object cxGrid1: TcxGrid [1]
|
object cxGrid1: TcxGrid [1]
|
||||||
Left = 8
|
Left = 8
|
||||||
Top = 167
|
Top = 192
|
||||||
Width = 1296
|
Width = 1296
|
||||||
Height = 426
|
Height = 426
|
||||||
BorderStyle = cxcbsNone
|
BorderStyle = cxcbsNone
|
||||||
|
|
@ -556,7 +555,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1296
|
Width = 1353
|
||||||
Height = 76
|
Height = 76
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ButtonHeight = 38
|
ButtonHeight = 38
|
||||||
|
|
@ -587,6 +586,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
DropdownMenu = PopupMenu3
|
DropdownMenu = PopupMenu3
|
||||||
ImageIndex = 21
|
ImageIndex = 21
|
||||||
Style = tbsDropDown
|
Style = tbsDropDown
|
||||||
|
Visible = False
|
||||||
OnClick = btnJBQClick
|
OnClick = btnJBQClick
|
||||||
end
|
end
|
||||||
object ToolButton3: TToolButton
|
object ToolButton3: TToolButton
|
||||||
|
|
@ -595,6 +595,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25171#21360#21253#26631#31614
|
Caption = #25171#21360#21253#26631#31614
|
||||||
ImageIndex = 21
|
ImageIndex = 21
|
||||||
|
Visible = False
|
||||||
OnClick = ToolButton3Click
|
OnClick = ToolButton3Click
|
||||||
end
|
end
|
||||||
object btnEdit: TToolButton
|
object btnEdit: TToolButton
|
||||||
|
|
@ -639,6 +640,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
ImageIndex = 49
|
ImageIndex = 49
|
||||||
Wrap = True
|
Wrap = True
|
||||||
Style = tbsDropDown
|
Style = tbsDropDown
|
||||||
|
Visible = False
|
||||||
OnClick = ToutClick
|
OnClick = ToutClick
|
||||||
end
|
end
|
||||||
object Tunout: TToolButton
|
object Tunout: TToolButton
|
||||||
|
|
@ -647,6 +649,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25764#38144#20986#24211
|
Caption = #25764#38144#20986#24211
|
||||||
ImageIndex = 11
|
ImageIndex = 11
|
||||||
|
Visible = False
|
||||||
OnClick = TunoutClick
|
OnClick = TunoutClick
|
||||||
end
|
end
|
||||||
object ToolButton4: TToolButton
|
object ToolButton4: TToolButton
|
||||||
|
|
@ -655,6 +658,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25171#21253
|
Caption = #25171#21253
|
||||||
ImageIndex = 34
|
ImageIndex = 34
|
||||||
|
Visible = False
|
||||||
OnClick = ToolButton4Click
|
OnClick = ToolButton4Click
|
||||||
end
|
end
|
||||||
object btnJYBG: TToolButton
|
object btnJYBG: TToolButton
|
||||||
|
|
@ -663,6 +667,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #26816#39564#25253#21578
|
Caption = #26816#39564#25253#21578
|
||||||
ImageIndex = 21
|
ImageIndex = 21
|
||||||
|
Visible = False
|
||||||
OnClick = btnJYBGClick
|
OnClick = btnJYBGClick
|
||||||
end
|
end
|
||||||
object Tprintmd: TToolButton
|
object Tprintmd: TToolButton
|
||||||
|
|
@ -734,7 +739,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
object dxLayoutControl_query: TdxLayoutControl [4]
|
object dxLayoutControl_query: TdxLayoutControl [4]
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 76
|
Top = 76
|
||||||
Width = 1296
|
Width = 1353
|
||||||
Height = 70
|
Height = 70
|
||||||
Align = alTop
|
Align = alTop
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
|
|
@ -742,128 +747,128 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
LayoutLookAndFeel = DataLink_TradeInsp.dxLayoutSkinLookAndFeel1
|
LayoutLookAndFeel = DataLink_TradeInsp.dxLayoutSkinLookAndFeel1
|
||||||
object OrderNo: TcxTextEdit
|
object OrderNo: TcxTextEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 296
|
Left = 491
|
||||||
Top = 6
|
|
||||||
Hint = '0'
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.TransparentBorder = False
|
|
||||||
TabOrder = 2
|
|
||||||
OnKeyPress = OrderNoKeyPress
|
|
||||||
Width = 103
|
|
||||||
end
|
|
||||||
object conNO: TcxTextEdit
|
|
||||||
Tag = 2
|
|
||||||
Left = 464
|
|
||||||
Top = 6
|
|
||||||
Hint = '0'
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.TransparentBorder = False
|
|
||||||
TabOrder = 3
|
|
||||||
OnKeyPress = conNOKeyPress
|
|
||||||
Width = 100
|
|
||||||
end
|
|
||||||
object CIID: TcxTextEdit
|
|
||||||
Tag = 2
|
|
||||||
Left = 731
|
|
||||||
Top = 36
|
|
||||||
Hint = '1'
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.TransparentBorder = False
|
|
||||||
TabOrder = 13
|
|
||||||
OnKeyPress = KHConNOKeyPress
|
|
||||||
Width = 80
|
|
||||||
end
|
|
||||||
object C_Name: TcxTextEdit
|
|
||||||
Tag = 2
|
|
||||||
Left = 478
|
|
||||||
Top = 36
|
|
||||||
Hint = '0'
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.TransparentBorder = False
|
|
||||||
TabOrder = 11
|
|
||||||
OnKeyPress = conNOKeyPress
|
|
||||||
Width = 82
|
|
||||||
end
|
|
||||||
object C_Color: TcxTextEdit
|
|
||||||
Tag = 2
|
|
||||||
Left = 613
|
|
||||||
Top = 6
|
Top = 6
|
||||||
Hint = '0'
|
Hint = '0'
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.TransparentBorder = False
|
Style.TransparentBorder = False
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
OnKeyPress = conNOKeyPress
|
OnKeyPress = OrderNoKeyPress
|
||||||
Width = 56
|
Width = 103
|
||||||
end
|
end
|
||||||
object BCIOID: TcxTextEdit
|
object conNO: TcxTextEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 880
|
Left = 634
|
||||||
Top = 6
|
|
||||||
Hint = '0'
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.TransparentBorder = False
|
|
||||||
TabOrder = 6
|
|
||||||
OnKeyPress = KHConNOKeyPress
|
|
||||||
Width = 79
|
|
||||||
end
|
|
||||||
object CIMachNo: TcxTextEdit
|
|
||||||
Tag = 1
|
|
||||||
Left = 892
|
|
||||||
Top = 36
|
|
||||||
Hint = '1'
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.TransparentBorder = False
|
|
||||||
TabOrder = 14
|
|
||||||
OnKeyPress = KHConNOKeyPress
|
|
||||||
Width = 61
|
|
||||||
end
|
|
||||||
object C_Pattern: TcxTextEdit
|
|
||||||
Tag = 2
|
|
||||||
Left = 609
|
|
||||||
Top = 36
|
|
||||||
Hint = '0'
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.TransparentBorder = False
|
|
||||||
TabOrder = 12
|
|
||||||
OnKeyPress = KHConNOKeyPress
|
|
||||||
Width = 57
|
|
||||||
end
|
|
||||||
object C_Code: TcxTextEdit
|
|
||||||
Tag = 2
|
|
||||||
Left = 307
|
|
||||||
Top = 36
|
|
||||||
Hint = '0'
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.TransparentBorder = False
|
|
||||||
TabOrder = 10
|
|
||||||
OnKeyPress = KHConNOKeyPress
|
|
||||||
Width = 90
|
|
||||||
end
|
|
||||||
object C_EColor: TcxTextEdit
|
|
||||||
Tag = 2
|
|
||||||
Left = 750
|
|
||||||
Top = 6
|
Top = 6
|
||||||
Hint = '0'
|
Hint = '0'
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.TransparentBorder = False
|
Style.TransparentBorder = False
|
||||||
TabOrder = 5
|
TabOrder = 5
|
||||||
OnKeyPress = KHConNOKeyPress
|
OnKeyPress = conNOKeyPress
|
||||||
Width = 65
|
Width = 100
|
||||||
end
|
end
|
||||||
object BatchNO: TcxTextEdit
|
object CIID: TcxTextEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 1135
|
Left = 837
|
||||||
|
Top = 36
|
||||||
|
Hint = '1'
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.TransparentBorder = False
|
||||||
|
TabOrder = 16
|
||||||
|
OnKeyPress = KHConNOKeyPress
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object C_Name: TcxTextEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 584
|
||||||
|
Top = 36
|
||||||
|
Hint = '0'
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.TransparentBorder = False
|
||||||
|
TabOrder = 14
|
||||||
|
OnKeyPress = conNOKeyPress
|
||||||
|
Width = 82
|
||||||
|
end
|
||||||
|
object C_Color: TcxTextEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 783
|
||||||
|
Top = 6
|
||||||
|
Hint = '0'
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.TransparentBorder = False
|
||||||
|
TabOrder = 6
|
||||||
|
OnKeyPress = conNOKeyPress
|
||||||
|
Width = 56
|
||||||
|
end
|
||||||
|
object BCIOID: TcxTextEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 1034
|
||||||
Top = 6
|
Top = 6
|
||||||
Hint = '0'
|
Hint = '0'
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.TransparentBorder = False
|
Style.TransparentBorder = False
|
||||||
TabOrder = 8
|
TabOrder = 8
|
||||||
OnKeyPress = KHConNOKeyPress
|
OnKeyPress = KHConNOKeyPress
|
||||||
|
Width = 95
|
||||||
|
end
|
||||||
|
object CIMachNo: TcxTextEdit
|
||||||
|
Tag = 1
|
||||||
|
Left = 998
|
||||||
|
Top = 36
|
||||||
|
Hint = '1'
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.TransparentBorder = False
|
||||||
|
TabOrder = 17
|
||||||
|
OnKeyPress = KHConNOKeyPress
|
||||||
|
Width = 61
|
||||||
|
end
|
||||||
|
object C_Pattern: TcxTextEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 715
|
||||||
|
Top = 36
|
||||||
|
Hint = '0'
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.TransparentBorder = False
|
||||||
|
TabOrder = 15
|
||||||
|
OnKeyPress = KHConNOKeyPress
|
||||||
|
Width = 57
|
||||||
|
end
|
||||||
|
object C_Code: TcxTextEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 413
|
||||||
|
Top = 36
|
||||||
|
Hint = '0'
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.TransparentBorder = False
|
||||||
|
TabOrder = 13
|
||||||
|
OnKeyPress = KHConNOKeyPress
|
||||||
|
Width = 90
|
||||||
|
end
|
||||||
|
object C_EColor: TcxTextEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 920
|
||||||
|
Top = 6
|
||||||
|
Hint = '0'
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.TransparentBorder = False
|
||||||
|
TabOrder = 7
|
||||||
|
OnKeyPress = KHConNOKeyPress
|
||||||
|
Width = 65
|
||||||
|
end
|
||||||
|
object BatchNO: TcxTextEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 1305
|
||||||
|
Top = 6
|
||||||
|
Hint = '0'
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.TransparentBorder = False
|
||||||
|
TabOrder = 10
|
||||||
|
OnKeyPress = KHConNOKeyPress
|
||||||
Width = 88
|
Width = 88
|
||||||
end
|
end
|
||||||
object grade: TcxComboBox
|
object grade: TcxComboBox
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 1002
|
Left = 1108
|
||||||
Top = 36
|
Top = 36
|
||||||
Properties.DropDownListStyle = lsEditFixedList
|
Properties.DropDownListStyle = lsEditFixedList
|
||||||
Properties.Items.Strings = (
|
Properties.Items.Strings = (
|
||||||
|
|
@ -872,37 +877,37 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
Properties.OnChange = CIIOFlagChange
|
Properties.OnChange = CIIOFlagChange
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.TransparentBorder = False
|
Style.TransparentBorder = False
|
||||||
TabOrder = 15
|
TabOrder = 18
|
||||||
Width = 80
|
Width = 80
|
||||||
end
|
end
|
||||||
object CIIOFlag: TcxComboBox
|
object CIIOFlag: TcxComboBox
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 1008
|
Left = 1178
|
||||||
Top = 6
|
Top = 6
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
Properties.DropDownListStyle = lsEditFixedList
|
Properties.DropDownListStyle = lsEditFixedList
|
||||||
Properties.Items.Strings = (
|
Properties.Items.Strings = (
|
||||||
#26410#20837#24211
|
#26410#26816#39564
|
||||||
#24050#20837#24211
|
#24050#26816#39564
|
||||||
#24050#20986#24211
|
#24050#20986#24211
|
||||||
'')
|
'')
|
||||||
Properties.OnChange = CIIOFlagPropertiesChange
|
Properties.OnChange = CIIOFlagPropertiesChange
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.TransparentBorder = False
|
Style.TransparentBorder = False
|
||||||
TabOrder = 7
|
TabOrder = 9
|
||||||
Height = 30
|
Height = 30
|
||||||
Width = 78
|
Width = 78
|
||||||
end
|
end
|
||||||
object BegDate: TcxDateEdit
|
object BegDate: TcxDateEdit
|
||||||
Left = 124
|
Left = 170
|
||||||
Top = 6
|
Top = 6
|
||||||
Properties.ImmediatePost = True
|
Properties.ImmediatePost = True
|
||||||
Properties.SaveTime = False
|
Properties.SaveTime = False
|
||||||
Properties.ShowTime = False
|
Properties.ShowTime = False
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.TransparentBorder = False
|
Style.TransparentBorder = False
|
||||||
TabOrder = 1
|
TabOrder = 2
|
||||||
Width = 107
|
Width = 155
|
||||||
end
|
end
|
||||||
object EndDate: TcxDateEdit
|
object EndDate: TcxDateEdit
|
||||||
Left = 111
|
Left = 111
|
||||||
|
|
@ -910,7 +915,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
Properties.ImmediatePost = True
|
Properties.ImmediatePost = True
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.TransparentBorder = False
|
Style.TransparentBorder = False
|
||||||
TabOrder = 9
|
TabOrder = 11
|
||||||
Width = 115
|
Width = 115
|
||||||
end
|
end
|
||||||
object IsJYTime: TcxCheckBox
|
object IsJYTime: TcxCheckBox
|
||||||
|
|
@ -926,17 +931,51 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
end
|
end
|
||||||
object custName: TcxTextEdit
|
object custName: TcxTextEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 1131
|
Left = 1237
|
||||||
Top = 36
|
Top = 36
|
||||||
Hint = '0'
|
Hint = '0'
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.TransparentBorder = False
|
Style.TransparentBorder = False
|
||||||
TabOrder = 16
|
TabOrder = 19
|
||||||
OnKeyPress = KHConNOKeyPress
|
OnKeyPress = KHConNOKeyPress
|
||||||
Height = 29
|
Height = 29
|
||||||
Width = 88
|
Width = 88
|
||||||
end
|
end
|
||||||
|
object BegTime: TDateTimePicker
|
||||||
|
Left = 334
|
||||||
|
Top = 6
|
||||||
|
Width = 92
|
||||||
|
Height = 29
|
||||||
|
Date = 45882.000000000000000000
|
||||||
|
Time = 0.629320682870456900
|
||||||
|
ShowCheckbox = True
|
||||||
|
Kind = dtkTime
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object endTime: TDateTimePicker
|
||||||
|
Left = 235
|
||||||
|
Top = 36
|
||||||
|
Width = 97
|
||||||
|
Height = 29
|
||||||
|
Date = 45882.000000000000000000
|
||||||
|
Time = 0.637470706016756600
|
||||||
|
ShowCheckbox = True
|
||||||
|
Kind = dtkTime
|
||||||
|
TabOrder = 12
|
||||||
|
end
|
||||||
|
object TimeType: TComboBox
|
||||||
|
Left = 52
|
||||||
|
Top = 6
|
||||||
|
Width = 85
|
||||||
|
Height = 29
|
||||||
|
TabOrder = 1
|
||||||
|
Text = #25171#30721#26085#26399
|
||||||
|
Items.Strings = (
|
||||||
|
#25171#30721#26085#26399
|
||||||
|
#26816#39564#26085#26399
|
||||||
|
'')
|
||||||
|
end
|
||||||
object dxLayoutControl_queryGroup_Root: TdxLayoutGroup
|
object dxLayoutControl_queryGroup_Root: TdxLayoutGroup
|
||||||
AlignHorz = ahLeft
|
AlignHorz = ahLeft
|
||||||
AlignVert = avTop
|
AlignVert = avTop
|
||||||
|
|
@ -951,7 +990,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
Parent = dxLayoutControl_queryGroup_Root
|
Parent = dxLayoutControl_queryGroup_Root
|
||||||
CaptionOptions.Text = #32452'1'
|
CaptionOptions.Text = #32452'1'
|
||||||
Hidden = True
|
Hidden = True
|
||||||
ItemIndex = 2
|
ItemIndex = 1
|
||||||
LayoutDirection = ldHorizontal
|
LayoutDirection = ldHorizontal
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
Index = 0
|
Index = 0
|
||||||
|
|
@ -963,7 +1002,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
SizeOptions.SizableHorz = True
|
SizeOptions.SizableHorz = True
|
||||||
SizeOptions.SizableVert = True
|
SizeOptions.SizableVert = True
|
||||||
Hidden = True
|
Hidden = True
|
||||||
ItemIndex = 8
|
ItemIndex = 2
|
||||||
LayoutDirection = ldHorizontal
|
LayoutDirection = ldHorizontal
|
||||||
Padding.AssignedValues = [lpavTop]
|
Padding.AssignedValues = [lpavTop]
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
|
|
@ -976,12 +1015,12 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
SizeOptions.SizableVert = True
|
SizeOptions.SizableVert = True
|
||||||
SizeOptions.Width = 179
|
SizeOptions.Width = 179
|
||||||
AllowRemove = False
|
AllowRemove = False
|
||||||
CaptionOptions.Text = #26816#39564#26085#26399
|
CaptionOptions.Text = #36215
|
||||||
Control = BegDate
|
Control = BegDate
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 27
|
||||||
ControlOptions.OriginalWidth = 107
|
ControlOptions.OriginalWidth = 155
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 1
|
Index = 2
|
||||||
end
|
end
|
||||||
object dxLayoutItem2: TdxLayoutItem
|
object dxLayoutItem2: TdxLayoutItem
|
||||||
Parent = dxLayoutGroup1
|
Parent = dxLayoutGroup1
|
||||||
|
|
@ -994,7 +1033,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 27
|
||||||
ControlOptions.OriginalWidth = 103
|
ControlOptions.OriginalWidth = 103
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 2
|
Index = 4
|
||||||
end
|
end
|
||||||
object dxLayoutItem3: TdxLayoutItem
|
object dxLayoutItem3: TdxLayoutItem
|
||||||
Parent = dxLayoutGroup2
|
Parent = dxLayoutGroup2
|
||||||
|
|
@ -1012,6 +1051,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
end
|
end
|
||||||
object dxLayoutItem4: TdxLayoutItem
|
object dxLayoutItem4: TdxLayoutItem
|
||||||
Parent = dxLayoutGroup2
|
Parent = dxLayoutGroup2
|
||||||
|
Visible = False
|
||||||
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
|
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
|
||||||
SizeOptions.SizableHorz = True
|
SizeOptions.SizableHorz = True
|
||||||
SizeOptions.SizableVert = True
|
SizeOptions.SizableVert = True
|
||||||
|
|
@ -1021,7 +1061,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 27
|
||||||
ControlOptions.OriginalWidth = 90
|
ControlOptions.OriginalWidth = 90
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 2
|
Index = 3
|
||||||
end
|
end
|
||||||
object dxLayoutItem5: TdxLayoutItem
|
object dxLayoutItem5: TdxLayoutItem
|
||||||
Parent = dxLayoutGroup2
|
Parent = dxLayoutGroup2
|
||||||
|
|
@ -1029,27 +1069,28 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
SizeOptions.SizableHorz = True
|
SizeOptions.SizableHorz = True
|
||||||
SizeOptions.SizableVert = True
|
SizeOptions.SizableVert = True
|
||||||
SizeOptions.Width = 154
|
SizeOptions.Width = 154
|
||||||
CaptionOptions.Text = #21697#21517#20013#25991
|
CaptionOptions.Text = #20135#21697#21517#31216
|
||||||
Control = C_Name
|
Control = C_Name
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 27
|
||||||
ControlOptions.OriginalWidth = 82
|
ControlOptions.OriginalWidth = 82
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 3
|
Index = 4
|
||||||
end
|
end
|
||||||
object dxLayoutItem6: TdxLayoutItem
|
object dxLayoutItem6: TdxLayoutItem
|
||||||
Parent = dxLayoutGroup1
|
Parent = dxLayoutGroup1
|
||||||
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
|
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
|
||||||
SizeOptions.SizableHorz = True
|
SizeOptions.SizableHorz = True
|
||||||
SizeOptions.SizableVert = True
|
SizeOptions.SizableVert = True
|
||||||
CaptionOptions.Text = #21512#21516#21495
|
CaptionOptions.Text = 'PO'
|
||||||
Control = conNO
|
Control = conNO
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 27
|
||||||
ControlOptions.OriginalWidth = 100
|
ControlOptions.OriginalWidth = 100
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 3
|
Index = 5
|
||||||
end
|
end
|
||||||
object dxLayoutItem7: TdxLayoutItem
|
object dxLayoutItem7: TdxLayoutItem
|
||||||
Parent = dxLayoutGroup1
|
Parent = dxLayoutGroup1
|
||||||
|
Visible = False
|
||||||
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
|
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
|
||||||
SizeOptions.SizableHorz = True
|
SizeOptions.SizableHorz = True
|
||||||
SizeOptions.SizableVert = True
|
SizeOptions.SizableVert = True
|
||||||
|
|
@ -1059,10 +1100,11 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 27
|
||||||
ControlOptions.OriginalWidth = 56
|
ControlOptions.OriginalWidth = 56
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 4
|
Index = 6
|
||||||
end
|
end
|
||||||
object dxLayoutItem8: TdxLayoutItem
|
object dxLayoutItem8: TdxLayoutItem
|
||||||
Parent = dxLayoutGroup2
|
Parent = dxLayoutGroup2
|
||||||
|
Visible = False
|
||||||
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
|
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
|
||||||
SizeOptions.SizableHorz = True
|
SizeOptions.SizableHorz = True
|
||||||
SizeOptions.SizableVert = True
|
SizeOptions.SizableVert = True
|
||||||
|
|
@ -1072,7 +1114,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 27
|
||||||
ControlOptions.OriginalWidth = 57
|
ControlOptions.OriginalWidth = 57
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 4
|
Index = 5
|
||||||
end
|
end
|
||||||
object dxLayoutItem9: TdxLayoutItem
|
object dxLayoutItem9: TdxLayoutItem
|
||||||
Tag = 2
|
Tag = 2
|
||||||
|
|
@ -1081,16 +1123,17 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
SizeOptions.SizableHorz = True
|
SizeOptions.SizableHorz = True
|
||||||
SizeOptions.SizableVert = True
|
SizeOptions.SizableVert = True
|
||||||
SizeOptions.Width = 135
|
SizeOptions.Width = 135
|
||||||
CaptionOptions.Text = #32568#26465#30721
|
CaptionOptions.Text = #21367#21495
|
||||||
Control = BCIOID
|
Control = BCIOID
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 27
|
||||||
ControlOptions.OriginalWidth = 79
|
ControlOptions.OriginalWidth = 95
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 6
|
Index = 8
|
||||||
end
|
end
|
||||||
object dxLayoutItem10: TdxLayoutItem
|
object dxLayoutItem10: TdxLayoutItem
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Parent = dxLayoutGroup2
|
Parent = dxLayoutGroup2
|
||||||
|
Visible = False
|
||||||
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
|
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
|
||||||
SizeOptions.SizableHorz = True
|
SizeOptions.SizableHorz = True
|
||||||
SizeOptions.SizableVert = True
|
SizeOptions.SizableVert = True
|
||||||
|
|
@ -1100,10 +1143,11 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 27
|
||||||
ControlOptions.OriginalWidth = 80
|
ControlOptions.OriginalWidth = 80
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 5
|
Index = 6
|
||||||
end
|
end
|
||||||
object dxLayoutItem11: TdxLayoutItem
|
object dxLayoutItem11: TdxLayoutItem
|
||||||
Parent = dxLayoutGroup1
|
Parent = dxLayoutGroup1
|
||||||
|
Visible = False
|
||||||
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
|
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
|
||||||
SizeOptions.SizableHorz = True
|
SizeOptions.SizableHorz = True
|
||||||
SizeOptions.SizableVert = True
|
SizeOptions.SizableVert = True
|
||||||
|
|
@ -1113,11 +1157,12 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 27
|
||||||
ControlOptions.OriginalWidth = 65
|
ControlOptions.OriginalWidth = 65
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 5
|
Index = 7
|
||||||
end
|
end
|
||||||
object dxLayoutItem12: TdxLayoutItem
|
object dxLayoutItem12: TdxLayoutItem
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Parent = dxLayoutGroup2
|
Parent = dxLayoutGroup2
|
||||||
|
Visible = False
|
||||||
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
|
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
|
||||||
SizeOptions.SizableHorz = True
|
SizeOptions.SizableHorz = True
|
||||||
SizeOptions.SizableVert = True
|
SizeOptions.SizableVert = True
|
||||||
|
|
@ -1127,7 +1172,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 27
|
||||||
ControlOptions.OriginalWidth = 61
|
ControlOptions.OriginalWidth = 61
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 6
|
Index = 7
|
||||||
end
|
end
|
||||||
object dxLayoutItem13: TdxLayoutItem
|
object dxLayoutItem13: TdxLayoutItem
|
||||||
Tag = 1
|
Tag = 1
|
||||||
|
|
@ -1142,7 +1187,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
ControlOptions.OriginalHeight = 30
|
ControlOptions.OriginalHeight = 30
|
||||||
ControlOptions.OriginalWidth = 78
|
ControlOptions.OriginalWidth = 78
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 7
|
Index = 9
|
||||||
end
|
end
|
||||||
object dxLayoutItem14: TdxLayoutItem
|
object dxLayoutItem14: TdxLayoutItem
|
||||||
Parent = dxLayoutGroup2
|
Parent = dxLayoutGroup2
|
||||||
|
|
@ -1155,7 +1200,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 27
|
||||||
ControlOptions.OriginalWidth = 80
|
ControlOptions.OriginalWidth = 80
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 7
|
Index = 8
|
||||||
end
|
end
|
||||||
object dxLayoutItem15: TdxLayoutItem
|
object dxLayoutItem15: TdxLayoutItem
|
||||||
Tag = 2
|
Tag = 2
|
||||||
|
|
@ -1168,7 +1213,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 27
|
||||||
ControlOptions.OriginalWidth = 88
|
ControlOptions.OriginalWidth = 88
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 8
|
Index = 10
|
||||||
end
|
end
|
||||||
object dxLayoutItem16: TdxLayoutItem
|
object dxLayoutItem16: TdxLayoutItem
|
||||||
Parent = dxLayoutGroup1
|
Parent = dxLayoutGroup1
|
||||||
|
|
@ -1200,6 +1245,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Parent = dxLayoutGroup2
|
Parent = dxLayoutGroup2
|
||||||
AlignVert = avClient
|
AlignVert = avClient
|
||||||
|
Visible = False
|
||||||
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
|
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
|
||||||
SizeOptions.SizableHorz = True
|
SizeOptions.SizableHorz = True
|
||||||
SizeOptions.SizableVert = True
|
SizeOptions.SizableVert = True
|
||||||
|
|
@ -1208,7 +1254,33 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
ControlOptions.OriginalHeight = 29
|
ControlOptions.OriginalHeight = 29
|
||||||
ControlOptions.OriginalWidth = 88
|
ControlOptions.OriginalWidth = 88
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 8
|
Index = 9
|
||||||
|
end
|
||||||
|
object dxLayoutItem18: TdxLayoutItem
|
||||||
|
Parent = dxLayoutGroup1
|
||||||
|
AlignHorz = ahLeft
|
||||||
|
AlignVert = avTop
|
||||||
|
Control = BegTime
|
||||||
|
ControlOptions.OriginalHeight = 29
|
||||||
|
ControlOptions.OriginalWidth = 92
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
Index = 3
|
||||||
|
end
|
||||||
|
object dxLayoutItem19: TdxLayoutItem
|
||||||
|
Parent = dxLayoutGroup2
|
||||||
|
Control = endTime
|
||||||
|
ControlOptions.OriginalHeight = 29
|
||||||
|
ControlOptions.OriginalWidth = 97
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
Index = 2
|
||||||
|
end
|
||||||
|
object dxLayoutItem20: TdxLayoutItem
|
||||||
|
Parent = dxLayoutGroup1
|
||||||
|
Control = TimeType
|
||||||
|
ControlOptions.OriginalHeight = 29
|
||||||
|
ControlOptions.OriginalWidth = 85
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
Index = 1
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object cxGroupBox1: TcxGroupBox [5]
|
object cxGroupBox1: TcxGroupBox [5]
|
||||||
|
|
@ -1332,7 +1404,11 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
|
||||||
ExplicitTop = 233
|
ExplicitTop = 233
|
||||||
end
|
end
|
||||||
inherited cxProgressBar2: TcxProgressBar
|
inherited cxProgressBar2: TcxProgressBar
|
||||||
|
Left = 324
|
||||||
|
Top = 184
|
||||||
TabOrder = 7
|
TabOrder = 7
|
||||||
|
ExplicitLeft = 324
|
||||||
|
ExplicitTop = 184
|
||||||
ExplicitHeight = 29
|
ExplicitHeight = 29
|
||||||
end
|
end
|
||||||
inherited ADOQueryBaseCmd: TADOQuery
|
inherited ADOQueryBaseCmd: TADOQuery
|
||||||
|
|
|
||||||
|
|
@ -19,7 +19,7 @@ uses
|
||||||
RM_E_llPDF, dxX509Certificate, dxPDFCore, dxPDFBase, dxPDFText,
|
RM_E_llPDF, dxX509Certificate, dxPDFCore, dxPDFBase, dxPDFText,
|
||||||
dxPDFRecognizedObject, dxPDFForm, dxPDFFormData, dxPDFDocument, dxPrintUtils,
|
dxPDFRecognizedObject, dxPDFForm, dxPDFFormData, dxPDFDocument, dxPrintUtils,
|
||||||
dxCustomPreview, dxPDFDocumentViewer, dxPDFViewer, cxProgressBar,
|
dxCustomPreview, dxPDFDocumentViewer, dxPDFViewer, cxProgressBar,
|
||||||
dxSkinsDefaultPainters;
|
dxSkinsDefaultPainters, dxLayoutControlAdapters;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmTradeClothInspList = class(TfrmBaseList)
|
TfrmTradeClothInspList = class(TfrmBaseList)
|
||||||
|
|
@ -181,6 +181,12 @@ type
|
||||||
ADO_4: TADOQuery;
|
ADO_4: TADOQuery;
|
||||||
ADO_5: TADOQuery;
|
ADO_5: TADOQuery;
|
||||||
RM2: TRMGridReport;
|
RM2: TRMGridReport;
|
||||||
|
dxLayoutItem18: TdxLayoutItem;
|
||||||
|
BegTime: TDateTimePicker;
|
||||||
|
dxLayoutItem19: TdxLayoutItem;
|
||||||
|
endTime: TDateTimePicker;
|
||||||
|
dxLayoutItem20: TdxLayoutItem;
|
||||||
|
TimeType: TComboBox;
|
||||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
procedure TBCloseClick(Sender: TObject);
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
|
@ -322,8 +328,20 @@ begin
|
||||||
|
|
||||||
if IsJYTime.Checked then
|
if IsJYTime.Checked then
|
||||||
begin
|
begin
|
||||||
WSql := WSql + ' and A.Filltime>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date));
|
if TimeType.text = '¼ìÑéÈÕÆÚ' then
|
||||||
WSql := WSql + ' and A.Filltime<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1));
|
begin
|
||||||
|
WSql := WSql + ' and A.edittime>' + quotedstr(FormatDateTime('yyyy-MM-dd HH:mm', BegDate.Date + begTime.datetime));
|
||||||
|
WSql := WSql + ' and A.edittime<=' + quotedstr(FormatDateTime('yyyy-MM-dd HH:mm', (enddate.Date) + EndTime.datetime));
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
|
||||||
|
// WSql := WSql + ' and A.Filltime>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date));
|
||||||
|
// WSql := WSql + ' and A.Filltime<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1));
|
||||||
|
|
||||||
|
WSql := WSql + ' and A.Filltime>' + quotedstr(FormatDateTime('yyyy-MM-dd HH:mm', BegDate.Date + begTime.datetime));
|
||||||
|
WSql := WSql + ' and A.Filltime<=' + quotedstr(FormatDateTime('yyyy-MM-dd HH:mm', (enddate.Date) + EndTime.datetime));
|
||||||
|
end;
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
|
|
@ -332,6 +350,7 @@ begin
|
||||||
else
|
else
|
||||||
WSql := WSql + ' and 1=2 ';
|
WSql := WSql + ' and 1=2 ';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
if trim(WSql) = 'and 1=2' then
|
if trim(WSql) = 'and 1=2' then
|
||||||
Application.MessageBox('勾选检验日期或填入搜索条件', '提示', 0);
|
Application.MessageBox('勾选检验日期或填入搜索条件', '提示', 0);
|
||||||
|
|
||||||
|
|
@ -348,6 +367,7 @@ begin
|
||||||
sql.Add('@pageIndex=' + inttostr(CurrentPage));
|
sql.Add('@pageIndex=' + inttostr(CurrentPage));
|
||||||
sql.Add(',@pageSize=' + inttostr(RecordsNumber));
|
sql.Add(',@pageSize=' + inttostr(RecordsNumber));
|
||||||
sql.Add(',@criteria= ' + quotedstr(WSql));
|
sql.Add(',@criteria= ' + quotedstr(WSql));
|
||||||
|
// showmessage(sql.text);
|
||||||
Open;
|
Open;
|
||||||
end;
|
end;
|
||||||
SCreateCDS(ADOQueryMain, Order_Main);
|
SCreateCDS(ADOQueryMain, Order_Main);
|
||||||
|
|
@ -381,7 +401,8 @@ begin
|
||||||
|
|
||||||
EndDate.Date := SGetServerDate(ADOQueryTemp);
|
EndDate.Date := SGetServerDate(ADOQueryTemp);
|
||||||
BegDate.Date := EndDate.Date;
|
BegDate.Date := EndDate.Date;
|
||||||
//
|
Begtime.DateTime := StrToTime('00:00:00');
|
||||||
|
EndTime.DateTime := StrToTime('23:59:59');
|
||||||
//ReadCxGrid(Trim(self.Caption) + 'Tv1', Tv1, gDllFileCaption);
|
//ReadCxGrid(Trim(self.Caption) + 'Tv1', Tv1, gDllFileCaption);
|
||||||
// InitGrid();
|
// InitGrid();
|
||||||
// SetStatus();
|
// SetStatus();
|
||||||
|
|
|
||||||
|
|
@ -1,7 +1,7 @@
|
||||||
object frameBads: TframeBads
|
object frameBads: TframeBads
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 300
|
Width = 291
|
||||||
Height = 435
|
Height = 435
|
||||||
DoubleBuffered = False
|
DoubleBuffered = False
|
||||||
Font.Charset = ANSI_CHARSET
|
Font.Charset = ANSI_CHARSET
|
||||||
|
|
@ -15,16 +15,16 @@ object frameBads: TframeBads
|
||||||
object dxPanel1: TdxPanel
|
object dxPanel1: TdxPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 144
|
Top = 144
|
||||||
Width = 300
|
Width = 291
|
||||||
Height = 291
|
Height = 291
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
Visible = False
|
Visible = False
|
||||||
ExplicitWidth = 321
|
ExplicitWidth = 300
|
||||||
object RadioGroup1: TRadioGroup
|
object RadioGroup1: TRadioGroup
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 108
|
Top = 108
|
||||||
Width = 298
|
Width = 289
|
||||||
Height = 132
|
Height = 132
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
Columns = 2
|
Columns = 2
|
||||||
|
|
@ -44,17 +44,17 @@ object frameBads: TframeBads
|
||||||
ParentCtl3D = False
|
ParentCtl3D = False
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ExplicitWidth = 319
|
ExplicitWidth = 298
|
||||||
end
|
end
|
||||||
object dxPanel3: TdxPanel
|
object dxPanel3: TdxPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 240
|
Top = 240
|
||||||
Width = 298
|
Width = 289
|
||||||
Height = 49
|
Height = 49
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
Frame.Borders = [bLeft, bRight, bBottom]
|
Frame.Borders = [bLeft, bRight, bBottom]
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
ExplicitWidth = 319
|
ExplicitWidth = 298
|
||||||
object cxButton1: TcxButton
|
object cxButton1: TcxButton
|
||||||
Left = 25
|
Left = 25
|
||||||
Top = 3
|
Top = 3
|
||||||
|
|
@ -89,7 +89,7 @@ object frameBads: TframeBads
|
||||||
object dxLayoutControl1: TdxLayoutControl
|
object dxLayoutControl1: TdxLayoutControl
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 9
|
Top = 9
|
||||||
Width = 298
|
Width = 289
|
||||||
Height = 99
|
Height = 99
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
Font.Charset = ANSI_CHARSET
|
Font.Charset = ANSI_CHARSET
|
||||||
|
|
@ -100,9 +100,9 @@ object frameBads: TframeBads
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
LayoutLookAndFeel = DataLink_TradeInsp.dxLayoutSkinLookAndFeel1
|
LayoutLookAndFeel = DataLink_TradeInsp.dxLayoutSkinLookAndFeel1
|
||||||
ExplicitWidth = 319
|
ExplicitWidth = 298
|
||||||
object CIFBeg: TcxTextEdit
|
object CIFBeg: TcxTextEdit
|
||||||
Left = -21
|
Left = 48
|
||||||
Top = 54
|
Top = 54
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
Properties.OnEditValueChanged = CIFBegPropertiesEditValueChanged
|
Properties.OnEditValueChanged = CIFBegPropertiesEditValueChanged
|
||||||
|
|
@ -118,7 +118,7 @@ object frameBads: TframeBads
|
||||||
Width = 52
|
Width = 52
|
||||||
end
|
end
|
||||||
object CIFEnd: TcxTextEdit
|
object CIFEnd: TcxTextEdit
|
||||||
Left = 55
|
Left = 124
|
||||||
Top = 54
|
Top = 54
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
|
|
@ -136,7 +136,7 @@ object frameBads: TframeBads
|
||||||
Width = 58
|
Width = 58
|
||||||
end
|
end
|
||||||
object CIFQty: TcxTextEdit
|
object CIFQty: TcxTextEdit
|
||||||
Left = 137
|
Left = 206
|
||||||
Top = 54
|
Top = 54
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
|
|
@ -153,7 +153,7 @@ object frameBads: TframeBads
|
||||||
Width = 53
|
Width = 53
|
||||||
end
|
end
|
||||||
object CIFNumber: TcxTextEdit
|
object CIFNumber: TcxTextEdit
|
||||||
Left = -20
|
Left = 49
|
||||||
Top = 9
|
Top = 9
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
Style.Font.Charset = ANSI_CHARSET
|
Style.Font.Charset = ANSI_CHARSET
|
||||||
|
|
@ -168,7 +168,7 @@ object frameBads: TframeBads
|
||||||
Width = 56
|
Width = 56
|
||||||
end
|
end
|
||||||
object IsSubtract: TcxCheckBox
|
object IsSubtract: TcxCheckBox
|
||||||
Left = 193
|
Left = 262
|
||||||
Top = 9
|
Top = 9
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
Caption = ' '
|
Caption = ' '
|
||||||
|
|
@ -193,7 +193,7 @@ object frameBads: TframeBads
|
||||||
Width = 117
|
Width = 117
|
||||||
end
|
end
|
||||||
object SubtractQty: TcxTextEdit
|
object SubtractQty: TcxTextEdit
|
||||||
Left = 125
|
Left = 194
|
||||||
Top = 9
|
Top = 9
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
|
|
@ -211,7 +211,7 @@ object frameBads: TframeBads
|
||||||
Width = 60
|
Width = 60
|
||||||
end
|
end
|
||||||
object cxCheck_len: TcxCheckBox
|
object cxCheck_len: TcxCheckBox
|
||||||
Left = -65
|
Left = 4
|
||||||
Top = 54
|
Top = 54
|
||||||
Caption = #38271#24230
|
Caption = #38271#24230
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
|
|
@ -221,7 +221,7 @@ object frameBads: TframeBads
|
||||||
Transparent = True
|
Transparent = True
|
||||||
end
|
end
|
||||||
object CIJBQty: TcxTextEdit
|
object CIJBQty: TcxTextEdit
|
||||||
Left = 237
|
Left = 306
|
||||||
Top = 54
|
Top = 54
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.TransparentBorder = False
|
Style.TransparentBorder = False
|
||||||
|
|
@ -386,11 +386,17 @@ object frameBads: TframeBads
|
||||||
object cxScrollBox1: TcxScrollBox
|
object cxScrollBox1: TcxScrollBox
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 300
|
Width = 291
|
||||||
Height = 144
|
Height = 144
|
||||||
Align = alClient
|
Align = alClient
|
||||||
|
Font.Charset = ANSI_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -14
|
||||||
|
Font.Name = #24494#36719#38597#40657
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
ExplicitWidth = 321
|
ExplicitWidth = 300
|
||||||
end
|
end
|
||||||
object ADOTmp: TADOQuery
|
object ADOTmp: TADOQuery
|
||||||
Connection = DataLink_TradeInsp.ADOLink
|
Connection = DataLink_TradeInsp.ADOLink
|
||||||
|
|
|
||||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user