diff --git a/T02贸易汇总仓库/U_ItemizedListInPut.dfm b/T02贸易汇总仓库/U_ItemizedListInPut.dfm index eef3eaa..992fe4f 100644 --- a/T02贸易汇总仓库/U_ItemizedListInPut.dfm +++ b/T02贸易汇总仓库/U_ItemizedListInPut.dfm @@ -75,13 +75,13 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut List = True ShowCaptions = True TabOrder = 1 - object ToolButton1: TToolButton + object btnAdd: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #22686#34892 ImageIndex = 2 - OnClick = ToolButton1Click + OnClick = btnAddClick end object ToolButton2: TToolButton Left = 71 @@ -280,6 +280,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut DataBinding.FieldName = 'TISUnit' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsEditFixedList Properties.Items.Strings = ( 'M' 'Y' @@ -561,8 +562,8 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut Connection = DataLink_TradeTotalClothStk.ADOLink LockType = ltReadOnly Parameters = <> - Left = 779 - Top = 204 + Left = 775 + Top = 188 end object DS_YS: TDataSource DataSet = ADO_YS diff --git a/T02贸易汇总仓库/U_ItemizedListInPut.pas b/T02贸易汇总仓库/U_ItemizedListInPut.pas index d1a8d05..bf5b7b2 100644 --- a/T02贸易汇总仓库/U_ItemizedListInPut.pas +++ b/T02贸易汇总仓库/U_ItemizedListInPut.pas @@ -37,7 +37,7 @@ type DS_I2: TDataSource; ToolBar2: TToolBar; ToolButton4: TToolButton; - ToolButton1: TToolButton; + btnAdd: TToolButton; ToolButton2: TToolButton; Panel2: TPanel; Panel3: TPanel; @@ -83,7 +83,7 @@ type procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); - procedure ToolButton1Click(Sender: TObject); + procedure btnAddClick(Sender: TObject); procedure ToolButton2Click(Sender: TObject); procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); @@ -108,6 +108,7 @@ type procedure ToolButton5Click(Sender: TObject); private FSCXDH: string; + FShowKeyid: integer; procedure InitData(); procedure ZDYHelp(FButn: TcxButtonEdit; LType: string); function SaveData(): Boolean; @@ -115,6 +116,7 @@ type procedure SetXH(); procedure initGrid1(MTIMID: string); + procedure HotyKey(var msg: TMessage); message WM_HOTKEY; //¿ì½Ý¼ü { Private declarations } public PState, CopyInt, PriceFlag: Integer; @@ -146,6 +148,43 @@ begin InitCDSData(ADO_1, CDS_1, Tv1, SqlStr, '', 'TISID'); end; +procedure TfrmItemizedListInPut.HotyKey(var msg: TMessage); +begin +// if msg.LParamHi = VK_LEFT then +// begin +// tsave.click; +// end; +// if msg.LParamHi = VK_UP then +// begin +// ToolButton7.click; +// end; +// if msg.LParamHi = VK_RIGHT then +// begin +// ToolButton8.click; +// end; + if msg.LParamHi = VK_DOWN then + begin + with TV1.DataController.DataSource.DataSet do + begin + Next; + if Eof then + begin + btnAdd.click; + end; + end; + + end; +// if msg.LParamHi = VK_ADD then +// begin +// ToolButton3.click; +// end; +// if msg.LParamHi = VK_SUBTRACT then +// begin +// TClose.click; +// end; + +end; + procedure TfrmItemizedListInPut.SetXH(); var i: Integer; @@ -313,6 +352,25 @@ begin sql.Add(' SELECT C_Code,C_Name,qtyunit FROM Bs_Cloth_Info'); Open; end; + with ADO_YS do + begin + Close; + sql.Clear; + sql.Add(' SELECT A.C_Code,B.C_Color,B.C_ColorNo FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID '); + sql.Add(' where 1=2 '); + Open; + end; + + FShowKeyid := GlobalAddAtom('mykey_show'); + +// RegisterHotKey(handle, FShowKeyid, 0, VK_LEFT); //×ó +// RegisterHotKey(handle, FShowKeyid, 0, VK_UP); //ÉÏ +// RegisterHotKey(handle, FShowKeyid, 0, VK_RIGHT); //ÓÒ + RegisterHotKey(handle, FShowKeyid, 0, VK_DOWN); //Ï +// RegisterHotKey(handle, FShowKeyid, 0, VK_ADD); //+ +// RegisterHotKey(handle, FShowKeyid, 0, VK_SUBTRACT); //- + + end; function TfrmItemizedListInPut.SaveData(): Boolean; @@ -490,7 +548,7 @@ begin end; end; -procedure TfrmItemizedListInPut.ToolButton1Click(Sender: TObject); +procedure TfrmItemizedListInPut.btnAddClick(Sender: TObject); var Smaxno: string; MSerialNo: Double; @@ -506,6 +564,7 @@ begin with cds_1 do begin + DisableControls; MSerialNo := FieldByName('SerialNo').AsFloat + 0.1; Append; FieldByName('SerialNo').Value := MSerialNo; @@ -515,9 +574,10 @@ begin FieldByName('TISQty').Value := 0; FieldByName('TISUnit').Value := 'M'; Post; - end; - SetXH(); + SetXH(); + EnableControls; + end; end; diff --git a/T02贸易汇总仓库/U_ItemizedListList.dfm b/T02贸易汇总仓库/U_ItemizedListList.dfm index 4dd794b..111b6d7 100644 --- a/T02贸易汇总仓库/U_ItemizedListList.dfm +++ b/T02贸易汇总仓库/U_ItemizedListList.dfm @@ -27,7 +27,6 @@ inherited frmItemizedListList: TfrmItemizedListList List = True ShowCaptions = True TabOrder = 3 - ExplicitWidth = 1411 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -135,7 +134,6 @@ inherited frmItemizedListList: TfrmItemizedListList BevelOuter = bvLowered ParentBackground = False TabOrder = 4 - ExplicitWidth = 1411 object Label3: TLabel Left = 24 Top = 51 @@ -178,7 +176,7 @@ inherited frmItemizedListList: TfrmItemizedListList TabOrder = 2 ExplicitLeft = 2 ExplicitTop = 2 - ExplicitWidth = 1407 + ExplicitWidth = 1769 ExplicitHeight = 37 inherited lbl2: TLabel Width = 16 @@ -203,7 +201,6 @@ inherited frmItemizedListList: TfrmItemizedListList ' '#24050#23457#26680' ' ' '#20840#37096' ') OnChange = cxTabControl1Change - ExplicitWidth = 1411 ClientRectBottom = 31 ClientRectRight = 1773 ClientRectTop = 28 @@ -230,8 +227,8 @@ inherited frmItemizedListList: TfrmItemizedListList Height = 584 Align = alClient TabOrder = 5 - ExplicitTop = 158 object TV1: TcxGridDBTableView + OnDblClick = TV1DblClick Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource1 diff --git a/T02贸易汇总仓库/U_ItemizedListList.pas b/T02贸易汇总仓库/U_ItemizedListList.pas index cd33031..964de80 100644 --- a/T02贸易汇总仓库/U_ItemizedListList.pas +++ b/T02贸易汇总仓库/U_ItemizedListList.pas @@ -114,6 +114,7 @@ type procedure ToolButton2Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject); + procedure TV1DblClick(Sender: TObject); private DQdate: TDateTime; procedure InitGrid(); @@ -311,6 +312,8 @@ begin // Exit; // end; + if cxTabControl1.TabIndex <> 0 then + Exit; try frmItemizedListInPut := TfrmItemizedListInPut.Create(Application); with frmItemizedListInPut do @@ -547,6 +550,12 @@ begin Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); end; +procedure TfrmItemizedListList.TV1DblClick(Sender: TObject); +begin + inherited; + TBEdit.Click; +end; + procedure TfrmItemizedListList.ToolButton4Click(Sender: TObject); begin if Order_Main.IsEmpty then