1
This commit is contained in:
parent
3cd54fa56b
commit
27a97653a6
|
|
@ -7,8 +7,8 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
|
|||
Font.Charset = GB2312_CHARSET
|
||||
Font.Height = -16
|
||||
Position = poMainFormCenter
|
||||
ExplicitWidth = 1256
|
||||
ExplicitHeight = 632
|
||||
ExplicitWidth = 1248
|
||||
ExplicitHeight = 624
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 21
|
||||
object ToolBar1: TToolBar [0]
|
||||
|
|
@ -27,7 +27,6 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
|
|||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 1153
|
||||
object TBSave: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -84,7 +83,6 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
|
|||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 1
|
||||
ExplicitWidth = 1153
|
||||
object btnAdd: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -119,7 +117,6 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
|
|||
Align = alClient
|
||||
Caption = 'Panel2'
|
||||
TabOrder = 2
|
||||
ExplicitWidth = 1153
|
||||
object Panel3: TPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
|
|
@ -128,7 +125,6 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
|
|||
Align = alClient
|
||||
Caption = 'Panel2'
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 1151
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 1
|
||||
Top = 1
|
||||
|
|
@ -137,7 +133,6 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
|
|||
Align = alClient
|
||||
PopupMenu = PopupMenu2
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 1149
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnDblClick = Tv1DblClick
|
||||
OnMouseDown = Tv1MouseDown
|
||||
|
|
@ -358,7 +353,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
|
|||
Ctl3D = False
|
||||
ParentCtl3D = False
|
||||
TabOrder = 3
|
||||
ExplicitWidth = 1153
|
||||
ExplicitTop = 24
|
||||
object Label3: TLabel
|
||||
Left = 377
|
||||
Top = 11
|
||||
|
|
|
|||
|
|
@ -489,7 +489,7 @@ begin
|
|||
RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Trade_ItemizedList_Sub', 0);
|
||||
if Trim(CDS_1.FieldByName('FtyPCId').AsString) = '' then
|
||||
begin
|
||||
if GetLSNo(ADOCmd, MFtyPCId, MSJQZ, 'FtyPCId', 3, 0) = False then
|
||||
if GetLSNo(adotemp, MFtyPCId, MSJQZ, 'FtyPCId', 3, 0) = False then
|
||||
raise Exception.Create('È¡¸×ºÅʧ°Ü!');
|
||||
FieldByName('FtyPCId').Value := MFtyPCId;
|
||||
end;
|
||||
|
|
|
|||
|
|
@ -9,8 +9,8 @@ inherited frmItemizedListList: TfrmItemizedListList
|
|||
FormStyle = fsMDIChild
|
||||
Position = poScreenCenter
|
||||
Visible = True
|
||||
ExplicitWidth = 1556
|
||||
ExplicitHeight = 775
|
||||
ExplicitWidth = 1548
|
||||
ExplicitHeight = 767
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 21
|
||||
object ToolBar1: TToolBar [0]
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user