上下键增行

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

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;
 

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

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